Changes in src/timemanager_mpi.f90 [d8eed02:b5127f9] in flexpart.git

File:

• src/timemanager_mpi.f90 (modified) (7 diffs)

src/timemanager_mpi.f90

@@ -20 +20 @@
 !**********************************************************************
 
-subroutine timemanager(metdata_format)
+subroutine timemanager
 
 !*****************************************************************************
@@ -50 +50 @@
 !   MPI version                                                              *
 !   Variables uap,ucp,uzp,us,vs,ws,cbt now in module com_mod                 *
-!  Unified ECMWF and GFS builds                                              *
-!   Marian Harustak, 12.5.2017                                               *
-!   - Added passing of metdata_format as it was needed by called routines    *
 !*****************************************************************************
 !                                                                            *
@@ -86 +83 @@
 ! xtra1(maxpart), ytra1(maxpart), ztra1(maxpart) =                           *
 !                    spatial positions of trajectories                       *
-! metdata_format     format of metdata (ecmwf/gfs)                           *
 !                                                                            *
 ! Constants:                                                                 *
@@ -107 +103 @@
   implicit none
 
-  integer :: metdata_format
   logical :: reqv_state=.false. ! .true. if waiting for a MPI_Irecv to complete
   integer :: j,ks,kp,l,n,itime=0,nstop,nstop1,memstat=0
@@ -210 +205 @@
       endif
 ! readwind process skips this step
-      if (.not.(lmpreader.and.lmp_use_reader)) call convmix(itime,metdata_format)
+      if (.not.(lmpreader.and.lmp_use_reader)) call convmix(itime)
     endif
 
@@ -223 +218 @@
     if (mp_measure_time) call mpif_mtime('getfields',0)
 
-    call getfields(itime,nstop1,memstat,metdata_format)
+    call getfields(itime,nstop1,memstat)
 
     if (mp_measure_time) call mpif_mtime('getfields',1)
@@ -351 +346 @@
         write (*,*) 'timemanager> call convmix -- forward'
       endif
-      call convmix(itime,metdata_format)
+      call convmix(itime)
     endif