Changeset 6ecb30a in flexpart.git for src/timemanager_mpi.f90

Timestamp:

Aug 17, 2017, 4:39:17 PM (7 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

5b34509

Parents:

61e07ba

Message:

Merged changes from CTBTO project

File:

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

src/timemanager_mpi.f90

@@ -20 +20 @@
 !**********************************************************************
 
-subroutine timemanager
+subroutine timemanager(metdata_format)
 
 !*****************************************************************************
@@ -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    *
 !*****************************************************************************
 !                                                                            *
@@ -205 +208 @@
       endif
 ! readwind process skips this step
-      if (.not.(lmpreader.and.lmp_use_reader)) call convmix(itime)
+      if (.not.(lmpreader.and.lmp_use_reader)) call convmix(itime,metdata_format)
     endif
 
@@ -218 +221 @@
     if (mp_measure_time) call mpif_mtime('getfields',0)
 
-    call getfields(itime,nstop1,memstat)
+    call getfields(itime,nstop1,memstat,metdata_format)
 
     if (mp_measure_time) call mpif_mtime('getfields',1)