Fix ignore date for TL and ADJ in CHIMERE

model_sources/chimereGES/src_ad/initio/areadhour.F90

@@ -219,11 +219,15 @@ NCERR(__LINE__)
      NCERR(__LINE__)
      idr=mm5date2numeric(datebuf)
      idex = idate(ihourrun)
-     if(idr.ne.idex) then
-        print *,'*** ERROR: WRONG EXPECTED DATE IN BOUN_CONCS FILE'
-        print *,'IHOURRUN=',ihourrun,'  EXPECTED= ' &
-             ,idex,' BOUN_CONCS= ',idr
-        call exit1('Exiting')
+     if (ignore_chck_dates == 0) then
+       if(idr.ne.idex) then
+          print *,'*** ERROR: WRONG EXPECTED DATE IN BOUN_CONCS FILE'
+          print *,'IHOURRUN=',ihourrun,'  EXPECTED= ' &
+               ,idex,' BOUN_CONCS= ',idr
+          call exit1('Exiting')
+       endif
+     else
+       print *,'*** NO CHECK ON DATES in BOUN_CONCS'
      endif
      allocate(buf3(nspecboun, nhbound_domain, nverti))
      stvec4 =(/1       , 1      , 1     , ihourrun+1 /)

model_sources/chimereGES/src_tl/initio/iniboun_tl.F90

@@ -144,11 +144,15 @@ NCERR(__LINE__)
           bounconc_ncid,bounconc_times_varid,datebuf,(/1,1/),(/dlen,1/))
 NCERR(__LINE__)
     idex = idate(0)
-    idr=mm5date2numeric(datebuf) 
-    if(idr.ne.idex) then
-        print *,'*** ERROR: WRONG EXPECTED DATE IN BOUN_CONCS FILE'
-        print *,'IHOURRUN=0,  EXPECTED= ',idex,' BOUN_CONCS= ',idr
-        call exit1('Exiting')
+    idr=mm5date2numeric(datebuf)
+    if (ignore_chck_dates == 0) then
+      if(idr.ne.idex) then
+          print *,'*** ERROR: WRONG EXPECTED DATE IN BOUN_CONCS FILE'
+          print *,'IHOURRUN=0,  EXPECTED= ',idex,' BOUN_CONCS= ',idr
+          call exit1('Exiting')
+      endif
+    else
+      print *,'*** NO CHECK ON DATES in BOUN_CONCS'
     endif
 ! Boundary concentration increment file is already open
 
@@ -204,11 +208,15 @@ NCERR(__LINE__)
           bounconcincr_ncid,bounconcincr_times_varid,datebuf,(/1,1/),(/dlen,1/))
       NCERR(__LINE__)
       idex = idate(0)
-      idr=mm5date2numeric(datebuf) 
-      if(idr.ne.idex) then
-        print *,'*** ERROR: WRONG EXPECTED DATE IN BOUN_CONCS INCREMENT FILE'
-        print *,'IHOURRUN=0,  EXPECTED= ',idex,' BOUN_CONCS= ',idr
-        call exit1('Exiting')
+      idr=mm5date2numeric(datebuf)
+      if (ignore_chck_dates == 0) then
+        if(idr.ne.idex) then
+          print *,'*** ERROR: WRONG EXPECTED DATE IN BOUN_CONCS INCREMENT FILE'
+          print *,'IHOURRUN=0,  EXPECTED= ',idex,' BOUN_CONCS= ',idr
+          call exit1('Exiting')
+        endif
+      else
+        print *,'*** NO CHECK ON DATES in BOUN_CONCS'
       endif
     !*** Lateral Boundary Concentrations
 
@@ -247,11 +255,15 @@ NCERR(__LINE__)
           bounconc_ncid, bounconc_times_varid, datebuf,(/1,2/),(/dlen,1/))
 NCERR(__LINE__)
     idex = idate(1)
-    idr=mm5date2numeric(datebuf) 
-    if(idr.ne.idex) then
-        print *,'*** ERROR: WRONG EXPECTED DATE IN BOUN_CONCS FILE'
-        print *,'IHOURRUN=1,  EXPECTED= ',idex,' BOUN_CONCS= ',idr
-        call exit1('Exiting')
+    idr=mm5date2numeric(datebuf)
+    if (ignore_chck_dates == 0) then
+      if(idr.ne.idex) then
+          print *,'*** ERROR: WRONG EXPECTED DATE IN BOUN_CONCS FILE'
+          print *,'IHOURRUN=1,  EXPECTED= ',idex,' BOUN_CONCS= ',idr
+          call exit1('Exiting')
+      endif
+    else
+      print *,'*** NO CHECK ON DATES in BOUN_CONCS'
     endif
     stvec4 =(/1        , 1      , 1,      2/)
     cntvec4=(/nspecboun, nhbound_domain, nverti, 1/)