Commit aff48c32 authored by Antoine Berchet's avatar Antoine Berchet
Browse files

Fix ignore date for TL and ADJ in CHIMERE

parent 90242fef
......@@ -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 /)
......
......@@ -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/)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment