Changeset 2280 for trunk/LMDZ.MARS/util
- Timestamp:
- Apr 7, 2020, 9:30:46 PM (5 years ago)
- Location:
- trunk/LMDZ.MARS/util
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/util/localtime.F90
r2227 r2280 259 259 ierr=NF_INQ_VARID(nid,"longitude",lonvar) 260 260 if (ierr.NE.NF_NOERR) then 261 write(*,*) 'ERROR: Field <longitude> is missing in file '//trim(file)261 write(*,*) 'ERROR: Field <longitude> is missing in file '//trim(file) 262 262 stop "" 263 263 endif … … 272 272 ierr=NF_INQ_VARID(nid,"altitude",altvar) 273 273 if (ierr.NE.NF_NOERR) then 274 write(*,*) 'ERROR: Field <altitude> is missing in file '//trim(file)274 write(*,*) 'ERROR: Field <altitude> is missing in file '//trim(file) 275 275 stop "" 276 276 endif … … 280 280 ierr=NF_INQ_DIMID(nid,"index",ctldim) 281 281 if (ierr.NE.NF_NOERR) then 282 write(*,*) 'ERROR: Dimension <index> is missing in file '//trim(file) 283 stop "" 282 write(*,*) 'Dimension <index> is missing in file '//trim(file) 283 ctllen=0 284 !stop "" 284 285 endif 285 286 ierr=NF_INQ_VARID(nid,"controle",ctlvar) 286 287 if (ierr.NE.NF_NOERR) then 287 write(*,*) 'Field <controle> is missing in file '//trim(file)288 write(*,*) 'Field <controle> is missing in file '//trim(file) 288 289 ctllen=0 289 290 !stop ""
Note: See TracChangeset
for help on using the changeset viewer.