Changeset d8eed02 in flexpart.git for src/timemanager_mpi.f90


Ignore:
Timestamp:
Sep 13, 2017, 10:36:25 AM (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:
dd6a4aa
Parents:
5b34509
Message:

Minor edits

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/timemanager_mpi.f90

    r6ecb30a rd8eed02  
    8686! xtra1(maxpart), ytra1(maxpart), ztra1(maxpart) =                           *
    8787!                    spatial positions of trajectories                       *
     88! metdata_format     format of metdata (ecmwf/gfs)                           *
    8889!                                                                            *
    8990! Constants:                                                                 *
     
    106107  implicit none
    107108
     109  integer :: metdata_format
    108110  logical :: reqv_state=.false. ! .true. if waiting for a MPI_Irecv to complete
    109111  integer :: j,ks,kp,l,n,itime=0,nstop,nstop1,memstat=0
     
    349351        write (*,*) 'timemanager> call convmix -- forward'
    350352      endif
    351       call convmix(itime)
     353      call convmix(itime,metdata_format)
    352354    endif
    353355
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG