Changeset c0884a8 in flexpart.git for src/FLEXPART_MPI.f90
- Timestamp:
- Jul 20, 2018, 2:40:39 PM (6 years ago)
- Branches:
- univie
- Children:
- 7ca2ef4
- Parents:
- f251e57
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART_MPI.f90
r20963b1 rc0884a8 40 40 ! detected metdata format * 41 41 ! - Passed metdata format down to timemanager * 42 ! * 43 ! Petra Seibert, 2018-06-26: simplified version met data format detection * 44 ! * 42 45 !***************************************************************************** 43 46 ! * … … 54 57 use mpi_mod 55 58 use random_mod, only: gasdev1 56 use c lass_gribfile59 use check_gribfile_mod 57 60 58 61 #ifdef USE_NCF … … 62 65 implicit none 63 66 64 integer :: i,j,ix,jy,inest 67 integer :: i,j,ix,jy,inest,id_centre 65 68 integer :: idummy = -320 66 69 character(len=256) :: inline_options !pathfile, flexversion, arg2 67 integer :: metdata_format = GRIBFILE_CENTRE_UNKNOWN68 integer :: detectformat69 70 integer(selected_int_kind(16)), dimension(maxspec) :: tot_b=0, & 70 71 & tot_i=0 … … 203 204 ! Detect metdata format 204 205 !********************** 205 206 metdata_format = detectformat() 207 208 if (metdata_format.eq.GRIBFILE_CENTRE_ECMWF) then 206 call cg_get_centre(path(3)(1:length(3)) // trim(wfname(1)), id_centre) 207 if (id_centre.eq.icg_id_ecmwf) then 209 208 if (lroot) print *,'ECMWF metdata detected' 210 elseif ( metdata_format.eq.GRIBFILE_CENTRE_NCEP) then211 if (lroot) print *,'NCEP met data detected'209 elseif (id_centre.eq.icg_id_ncep) then 210 if (lroot) print *,'NCEP met data detected' 212 211 else 213 if (lroot) print *,'Unknown met data format'212 if (lroot) print *,'Unknown met data format' 214 213 stop 215 214 endif … … 233 232 endif 234 233 235 if ( metdata_format.eq.GRIBFILE_CENTRE_ECMWF) then234 if (id_centre.eq.icg_id_ecmwf) then 236 235 call gridcheck_ecmwf 237 236 else … … 480 479 481 480 482 call timemanager( metdata_format)481 call timemanager(id_centre) 483 482 484 483
Note: See TracChangeset
for help on using the changeset viewer.