Changeset 2280 for trunk/LMDZ.MARS/util/localtime.F90

Timestamp:

Apr 7, 2020, 9:30:46 PM (5 years ago)

Author:

abierjon

Message:

Mars GCM:
Add the program terminator.F90 to the LMDZ.MARS/util/ directory, as well as a terminator.def
This program can be used to interpolate GCM files at one terminator (morning or evening) all around the globe.
+ a fix of localtime.F90 which didn't work for stats files.
by Al Beebak

File:

• trunk/LMDZ.MARS/util/localtime.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/util/localtime.F90

@@ -259 +259 @@
    ierr=NF_INQ_VARID(nid,"longitude",lonvar)
    if (ierr.NE.NF_NOERR) then
-      write(*,*) 'ERROR: Field <longitude> is missing in file'//trim(file)
+      write(*,*) 'ERROR: Field <longitude> is missing in file '//trim(file)
       stop "" 
    endif
@@ -272 +272 @@
    ierr=NF_INQ_VARID(nid,"altitude",altvar)
    if (ierr.NE.NF_NOERR) then
-      write(*,*) 'ERROR: Field <altitude> is missing in file'//trim(file)
+      write(*,*) 'ERROR: Field <altitude> is missing in file '//trim(file)
       stop ""
    endif
@@ -280 +280 @@
    ierr=NF_INQ_DIMID(nid,"index",ctldim)
    if (ierr.NE.NF_NOERR) then
-      write(*,*) 'ERROR: Dimension <index> is missing in file '//trim(file)
-      stop ""  
+      write(*,*) 'Dimension <index> is missing in file '//trim(file)
+      ctllen=0
+      !stop ""  
    endif
    ierr=NF_INQ_VARID(nid,"controle",ctlvar)
    if (ierr.NE.NF_NOERR) then
-      write(*,*) 'Field <controle> is missing in file'//trim(file)
+      write(*,*) 'Field <controle> is missing in file '//trim(file)
       ctllen=0
       !stop ""