Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
VERIFY
CIF
Commits
aff48c32
Commit
aff48c32
authored
Jan 11, 2022
by
Antoine Berchet
Browse files
Fix ignore date for TL and ADJ in CHIMERE
parent
90242fef
Changes
2
Hide whitespace changes
Inline
Side-by-side
model_sources/chimereGES/src_ad/initio/areadhour.F90
View file @
aff48c32
...
...
@@ -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
View file @
aff48c32
...
...
@@ -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
/)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment