Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Feature/borescan merge sm peat #524

Merged
merged 75 commits into from
Feb 13, 2022
Merged

Feature/borescan merge sm peat #524

Show file tree
Hide file tree
Changes from 74 commits
Commits
Show all changes
75 commits
Select commit Hold shift + click to select a range
6cdcc7d
Merging SM old code with current develop
biljanaorescanin Dec 20, 2021
f319d72
define FSW_CHANGE
biljanaorescanin Dec 20, 2021
d939ed6
add peat source code "POROS_HighLat"
biljanaorescanin Dec 20, 2021
79d3157
add vars to srunoff
biljanaorescanin Dec 20, 2021
be25bcc
define type
biljanaorescanin Dec 20, 2021
1a82678
adding rzexc type
biljanaorescanin Dec 20, 2021
58170b0
define var types
biljanaorescanin Dec 20, 2021
66b4e67
adding vars to sobroutine
biljanaorescanin Dec 20, 2021
907a493
more vars need type
biljanaorescanin Dec 20, 2021
d345689
edit
biljanaorescanin Dec 20, 2021
51ca254
minor edit
biljanaorescanin Dec 21, 2021
4ca7479
enable NLv4p option in make_bcs
biljanaorescanin Dec 21, 2021
57bcb38
order of arguments
biljanaorescanin Dec 21, 2021
9bf1aa7
clean up
biljanaorescanin Dec 21, 2021
43fcbe1
bf1 and bf2 to call CATCH_CALC_SOIL_MOIST
biljanaorescanin Dec 21, 2021
d160893
more cleanup
biljanaorescanin Dec 21, 2021
096bd96
bf1 and bf2 were missing here
biljanaorescanin Dec 21, 2021
e9fb2b9
edits
biljanaorescanin Dec 21, 2021
d85f25e
typo
biljanaorescanin Dec 21, 2021
8560022
missing porosity at some calls
biljanaorescanin Dec 21, 2021
2bc3180
poros in subtoutine calls
biljanaorescanin Dec 21, 2021
14f253e
wrong code placement
biljanaorescanin Dec 21, 2021
3cf5a62
missing decelaratio
biljanaorescanin Dec 21, 2021
c78bb0c
more edits
biljanaorescanin Dec 21, 2021
f8651e1
fix type
biljanaorescanin Dec 21, 2021
614c6bb
forgot to save change
biljanaorescanin Dec 21, 2021
e32e95f
fixing alignment
biljanaorescanin Dec 21, 2021
af94537
bug fix
biljanaorescanin Dec 21, 2021
f648049
Merge branch 'develop' into feature/borescan_merge_sm_peat
biljanaorescanin Dec 28, 2021
d2daaad
align list
biljanaorescanin Dec 28, 2021
72155b7
must be 3-character alphanumeric code, insted of NL4p we will have NL5
biljanaorescanin Dec 28, 2021
bae955a
fix for RSURFP2
biljanaorescanin Dec 29, 2021
f3b5184
typo
biljanaorescanin Dec 29, 2021
0d7740e
missing poros limit
biljanaorescanin Dec 30, 2021
cb481da
handle division by zero
biljanaorescanin Dec 30, 2021
ec943c2
double check this
biljanaorescanin Dec 30, 2021
3647896
bug fix
biljanaorescanin Jan 4, 2022
81e3384
Merge branch 'develop' into feature/borescan_merge_sm_peat
biljanaorescanin Jan 9, 2022
0233ea0
bug fix for CatchCN_CLM 4.5 BCS's file format
biljanaorescanin Jan 9, 2022
cd9112b
these changes will be updated with separate PR
biljanaorescanin Jan 25, 2022
9daf5a0
typo
biljanaorescanin Jan 26, 2022
646ede4
cleanup of peat code:
gmao-rreichle Jan 26, 2022
47f970c
fix bug I introduced
biljanaorescanin Jan 27, 2022
23d71fc
fixed minor bug introduced in previous commit (poros threshold for PE…
gmao-rreichle Jan 27, 2022
538193b
additional cleanup:
gmao-rreichle Jan 27, 2022
b387828
fixing typo in previous commit (PEATCLSM poros threshold)
gmao-rreichle Jan 27, 2022
4d1c77e
added constants for PEATCLSM's piecewise linear relation between surf…
gmao-rreichle Jan 28, 2022
a076928
fixed comment in previous commit
gmao-rreichle Jan 28, 2022
7741de0
overhauled Scale_Catch.F90 and Scale_CatchCN.F90:
gmao-rreichle Jan 28, 2022
d3d9cab
removed obsolete VEGCLS argument from catch_calc_soil_moist() and rel…
gmao-rreichle Jan 29, 2022
192ce62
fixing bug in previous commit
gmao-rreichle Jan 29, 2022
dcdad24
fixed bug in previous commit
gmao-rreichle Jan 29, 2022
30f91a3
introduced function for zbar calculations; removed redundant zbar cal…
gmao-rreichle Jan 29, 2022
f10f98e
fixed bug in previous commit
gmao-rreichle Jan 29, 2022
65c2fb6
restrict addition of 1e-20 to area(1) to peat tiles to maintain 0-dif…
gmao-rreichle Jan 30, 2022
59e3121
fixed error in previous commit
gmao-rreichle Jan 30, 2022
e44b03b
replacing hardwired 0.05 with named constant DZTC in gndtmp_cn() (cat…
gmao-rreichle Jan 30, 2022
0d1862e
Merged branch 'feature/rreichle/cleancatchconstants' into feature/bor…
gmao-rreichle Feb 1, 2022
f5de16b
Merged branch 'develop' into feature/borescan_merge_sm_peat
gmao-rreichle Feb 1, 2022
e4a8234
fixing errors in manual merge of branch feature/rreichle/cleancatchco…
gmao-rreichle Feb 1, 2022
b3aa6bd
renamed DZTC to DZTSURF to avoid inconsistency with CatchCN's TC vs. TG
gmao-rreichle Feb 2, 2022
30ef2dc
more cleanup (lsm_routines.F90, catch_constants.f90_)
gmao-rreichle Feb 2, 2022
99f1dc9
Bug fixes: missing ./DTSTEP in RUNSRF calc; PEATCLSM implementation …
gmao-rreichle Feb 2, 2022
666d160
Bug fix: PEATCLSM implementation in CatchCN (added missing SWSRF4=WPWET)
gmao-rreichle Feb 2, 2022
24b04a3
fixed bug in implementation of catch_calc_zbar()
gmao-rreichle Feb 3, 2022
4998436
added function catch_calc_watertabled()
gmao-rreichle Feb 3, 2022
e37b74e
Merge branch 'develop' into feature/borescan_merge_sm_peat
gmao-rreichle Feb 8, 2022
6904c78
Merge branch 'bugfix/rreichle/Catchment_RUNSRF_units' into feature/bo…
gmao-rreichle Feb 8, 2022
3c4ee1b
further clarification of throughfall (THRU[x]) units; fixed typo (bu…
gmao-rreichle Feb 8, 2022
9dcb682
additional cleanup: assorted roundoff (non-zero-diff) changes in PEAT…
gmao-rreichle Feb 8, 2022
19b87d7
commented out presumably obsolete subroutine process_peatmap() in mod…
gmao-rreichle Feb 10, 2022
03ab65f
Merge branch 'feature/borescan_fix_make_bcs' into feature/borescan_me…
gmao-rreichle Feb 10, 2022
e3553ef
Merge branch 'feature/jkolassa/gndtmp_cn_cleanup' into feature/boresc…
gmao-rreichle Feb 11, 2022
90f7439
fixes in restart processing; cleanup:
gmao-rreichle Feb 11, 2022
24635de
Merge branch 'develop' into feature/borescan_merge_sm_peat
sdrabenh Feb 13, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
91 changes: 64 additions & 27 deletions GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOS_SurfaceGridComp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2697,6 +2697,24 @@ subroutine SetServices ( GC, RC )
RC=STATUS )
VERIFY_(STATUS)

call MAPL_AddExportSpec(GC ,&
LONG_NAME = 'depth_to_water_table_from_surface',&
UNITS = 'm' ,&
SHORT_NAME = 'WATERTABLED' ,&
DIMS = MAPL_DimsHorzOnly ,&
VLOCATION = MAPL_VLocationNone ,&
RC=STATUS )
VERIFY_(STATUS)

call MAPL_AddExportSpec(GC ,&
LONG_NAME = 'change_in_free_surface_water_reservoir_on_peat',&
UNITS = 'kg m-2 s-1' ,&
SHORT_NAME = 'FSWCHANGE' ,&
DIMS = MAPL_DimsHorzOnly ,&
VLOCATION = MAPL_VLocationNone ,&
RC=STATUS )
VERIFY_(STATUS)

IF(LSM_CHOICE > 1) THEN
call MAPL_AddExportSpec(GC ,&
LONG_NAME = 'CN_exposed_leaf-area_index',&
Expand Down Expand Up @@ -5052,24 +5070,26 @@ subroutine RUN2 ( GC, IMPORT, EXPORT, CLOCK, RC )
real, pointer, dimension(:,:) :: T2MWET => NULL()

! GOSWIM (internal/export variables from catch/catchcn)
real, pointer, dimension(:,:,:) :: RDU001 => NULL()
real, pointer, dimension(:,:,:) :: RDU002 => NULL()
real, pointer, dimension(:,:,:) :: RDU003 => NULL()
real, pointer, dimension(:,:,:) :: RDU004 => NULL()
real, pointer, dimension(:,:,:) :: RDU005 => NULL()
real, pointer, dimension(:,:,:) :: RBC001 => NULL()
real, pointer, dimension(:,:,:) :: RBC002 => NULL()
real, pointer, dimension(:,:,:) :: ROC001 => NULL()
real, pointer, dimension(:,:,:) :: ROC002 => NULL()
real, pointer, dimension(:,:) :: RMELTDU001 => NULL()
real, pointer, dimension(:,:) :: RMELTDU002 => NULL()
real, pointer, dimension(:,:) :: RMELTDU003 => NULL()
real, pointer, dimension(:,:) :: RMELTDU004 => NULL()
real, pointer, dimension(:,:) :: RMELTDU005 => NULL()
real, pointer, dimension(:,:) :: RMELTBC001 => NULL()
real, pointer, dimension(:,:) :: RMELTBC002 => NULL()
real, pointer, dimension(:,:) :: RMELTOC001 => NULL()
real, pointer, dimension(:,:) :: RMELTOC002 => NULL()
real, pointer, dimension(:,:,:) :: RDU001 => NULL()
real, pointer, dimension(:,:,:) :: RDU002 => NULL()
real, pointer, dimension(:,:,:) :: RDU003 => NULL()
real, pointer, dimension(:,:,:) :: RDU004 => NULL()
real, pointer, dimension(:,:,:) :: RDU005 => NULL()
real, pointer, dimension(:,:,:) :: RBC001 => NULL()
real, pointer, dimension(:,:,:) :: RBC002 => NULL()
real, pointer, dimension(:,:,:) :: ROC001 => NULL()
real, pointer, dimension(:,:,:) :: ROC002 => NULL()
real, pointer, dimension(:,:) :: RMELTDU001 => NULL()
real, pointer, dimension(:,:) :: RMELTDU002 => NULL()
real, pointer, dimension(:,:) :: RMELTDU003 => NULL()
real, pointer, dimension(:,:) :: RMELTDU004 => NULL()
real, pointer, dimension(:,:) :: RMELTDU005 => NULL()
real, pointer, dimension(:,:) :: RMELTBC001 => NULL()
real, pointer, dimension(:,:) :: RMELTBC002 => NULL()
real, pointer, dimension(:,:) :: RMELTOC001 => NULL()
real, pointer, dimension(:,:) :: RMELTOC002 => NULL()
real, pointer, dimension(:,:) :: WATERTABLED => NULL()
real, pointer, dimension(:,:) :: FSWCHANGE => NULL()

! CN model
real, pointer, dimension(:,:) :: CNLAI => NULL()
Expand Down Expand Up @@ -5329,6 +5349,8 @@ subroutine RUN2 ( GC, IMPORT, EXPORT, CLOCK, RC )
real, pointer, dimension(:) :: RMELTBC002TILE => NULL()
real, pointer, dimension(:) :: RMELTOC001TILE => NULL()
real, pointer, dimension(:) :: RMELTOC002TILE => NULL()
real, pointer, dimension(:) :: WATERTABLEDTILE => NULL()
real, pointer, dimension(:) :: FSWCHANGETILE => NULL()

real, pointer, dimension(:) :: CNLAITILE => NULL()
real, pointer, dimension(:) :: CNTLAITILE => NULL()
Expand Down Expand Up @@ -6141,6 +6163,9 @@ subroutine RUN2 ( GC, IMPORT, EXPORT, CLOCK, RC )
call MAPL_GetPointer(EXPORT , RMELTBC002 , 'RMELTBC002', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT , RMELTOC001 , 'RMELTOC001', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT , RMELTOC002 , 'RMELTOC002', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT , WATERTABLED, 'WATERTABLED', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT , FSWCHANGE , 'FSWCHANGE', RC=STATUS); VERIFY_(STATUS)


IF(LSM_CHOICE > 1) THEN
call MAPL_GetPointer(EXPORT , CNLAI , 'CNLAI' , RC=STATUS); VERIFY_(STATUS)
Expand Down Expand Up @@ -6714,6 +6739,8 @@ subroutine RUN2 ( GC, IMPORT, EXPORT, CLOCK, RC )
call MKTILE(RMELTBC002 ,RMELTBC002TILE ,NT,RC=STATUS); VERIFY_(STATUS)
call MKTILE(RMELTOC001 ,RMELTOC001TILE ,NT,RC=STATUS); VERIFY_(STATUS)
call MKTILE(RMELTOC002 ,RMELTOC002TILE ,NT,RC=STATUS); VERIFY_(STATUS)
call MKTILE(WATERTABLED,WATERTABLEDTILE,NT,RC=STATUS); VERIFY_(STATUS)
call MKTILE(FSWCHANGE ,FSWCHANGETILE ,NT,RC=STATUS); VERIFY_(STATUS)

IF (LSM_CHOICE > 1) THEN
call MKTILE(CNLAI ,CNLAITILE ,NT,RC=STATUS); VERIFY_(STATUS)
Expand Down Expand Up @@ -7532,15 +7559,17 @@ subroutine RUN2 ( GC, IMPORT, EXPORT, CLOCK, RC )
if(associated(ROC002)) call MAPL_LocStreamTransform( LOCSTREAM,ROC002(:,:,N) ,ROC002TILE(:,N), RC=STATUS); VERIFY_(STATUS)
END DO

if(associated(RMELTDU001))call MAPL_LocStreamTransform( LOCSTREAM,RMELTDU001 ,RMELTDU001TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU002))call MAPL_LocStreamTransform( LOCSTREAM,RMELTDU002 ,RMELTDU002TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU003))call MAPL_LocStreamTransform( LOCSTREAM,RMELTDU003 ,RMELTDU003TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU004))call MAPL_LocStreamTransform( LOCSTREAM,RMELTDU004 ,RMELTDU004TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU005))call MAPL_LocStreamTransform( LOCSTREAM,RMELTDU005 ,RMELTDU005TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTBC001))call MAPL_LocStreamTransform( LOCSTREAM,RMELTBC001 ,RMELTBC001TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTBC002))call MAPL_LocStreamTransform( LOCSTREAM,RMELTBC002 ,RMELTBC002TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTOC001))call MAPL_LocStreamTransform( LOCSTREAM,RMELTOC001 ,RMELTOC001TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTOC002))call MAPL_LocStreamTransform( LOCSTREAM,RMELTOC002 ,RMELTOC002TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU001 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTDU001 ,RMELTDU001TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU002 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTDU002 ,RMELTDU002TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU003 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTDU003 ,RMELTDU003TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU004 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTDU004 ,RMELTDU004TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTDU005 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTDU005 ,RMELTDU005TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTBC001 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTBC001 ,RMELTBC001TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTBC002 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTBC002 ,RMELTBC002TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTOC001 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTOC001 ,RMELTOC001TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(RMELTOC002 ))call MAPL_LocStreamTransform(LOCSTREAM,RMELTOC002 ,RMELTOC002TILE, RC=STATUS); VERIFY_(STATUS)
if(associated(WATERTABLED))call MAPL_LocStreamTransform(LOCSTREAM,WATERTABLED,WATERTABLEDTILE,RC=STATUS); VERIFY_(STATUS)
if(associated(FSWCHANGE ))call MAPL_LocStreamTransform(LOCSTREAM,FSWCHANGE ,FSWCHANGETILE, RC=STATUS); VERIFY_(STATUS)

if(associated(CNLAI)) then
call MAPL_LocStreamTransform( LOCSTREAM,CNLAI ,CNLAITILE , RC=STATUS)
Expand Down Expand Up @@ -8074,6 +8103,8 @@ subroutine RUN2 ( GC, IMPORT, EXPORT, CLOCK, RC )
if(associated(RMELTBC002TILE )) deallocate(RMELTBC002TILE )
if(associated(RMELTOC001TILE )) deallocate(RMELTOC001TILE )
if(associated(RMELTOC002TILE )) deallocate(RMELTOC002TILE )
if(associated(WATERTABLEDTILE)) deallocate(WATERTABLEDTILE)
if(associated(FSWCHANGETILE )) deallocate(FSWCHANGETILE )
if(associated(CNLAITILE )) deallocate(CNLAITILE )
if(associated(CNTLAITILE )) deallocate(CNTLAITILE )
if(associated(CNSAITILE )) deallocate(CNSAITILE )
Expand Down Expand Up @@ -8409,6 +8440,10 @@ subroutine DOTYPE(type,RC)
VERIFY_(STATUS)
call MAPL_GetPointer(GEX(type), dum, 'RMELTOC002' , ALLOC=associated(RMELTOC002TILE ), notFoundOK=.true., RC=STATUS)
VERIFY_(STATUS)
call MAPL_GetPointer(GEX(type), dum, 'WATERTABLED', ALLOC=associated(WATERTABLEDTILE ),notFoundOK=.true., RC=STATUS)
VERIFY_(STATUS)
call MAPL_GetPointer(GEX(type), dum, 'FSWCHANGE' , ALLOC=associated(FSWCHANGETILE ) , notFoundOK=.true., RC=STATUS)
VERIFY_(STATUS)

IF (LSM_CHOICE > 1) THEN
call MAPL_GetPointer(GEX(type), dum, 'CNLAI' , ALLOC=associated(CNLAITILE ), notFoundOK=.true., RC=STATUS)
Expand Down Expand Up @@ -8977,6 +9012,8 @@ subroutine DOTYPE(type,RC)
if(associated(RMELTBC002TILE)) call FILLOUT_TILE(GEX(type), 'RMELTBC002' , RMELTBC002TILE , XFORM, RC=STATUS);VERIFY_(STATUS)
if(associated(RMELTOC001TILE)) call FILLOUT_TILE(GEX(type), 'RMELTOC001' , RMELTOC001TILE , XFORM, RC=STATUS);VERIFY_(STATUS)
if(associated(RMELTOC002TILE)) call FILLOUT_TILE(GEX(type), 'RMELTOC002' , RMELTOC002TILE , XFORM, RC=STATUS);VERIFY_(STATUS)
if(associated(WATERTABLEDTILE))call FILLOUT_TILE(GEX(type), 'WATERTABLED', WATERTABLEDTILE, XFORM, RC=STATUS);VERIFY_(STATUS)
if(associated(FSWCHANGETILE)) call FILLOUT_TILE(GEX(type), 'FSWCHANGE' , FSWCHANGETILE , XFORM, RC=STATUS);VERIFY_(STATUS)

if(associated(CNLAITILE)) then
call FILLOUT_TILE(GEX(type), 'CNLAI' , CNLAITILE , XFORM, RC=STATUS)
Expand Down
4 changes: 4 additions & 0 deletions ...ridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOS_LandGridComp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -920,6 +920,8 @@ subroutine SetServices ( GC, RC )
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTBC002', CHILD_ID = CATCH(1), RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTOC001', CHILD_ID = CATCH(1), RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTOC002', CHILD_ID = CATCH(1), RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'WATERTABLED',CHILD_ID = CATCH(1), RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'FSWCHANGE', CHILD_ID = CATCH(1), RC=STATUS) ; VERIFY_(STATUS)

if (DO_GOSWIM /= 0) then
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RDU001', CHILD_ID = CATCH(1), RC=STATUS) ; VERIFY_(STATUS)
Expand Down Expand Up @@ -1290,6 +1292,8 @@ subroutine SetServices ( GC, RC )
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTBC002', CHILD_ID = CATCHCN(1), RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTOC001', CHILD_ID = CATCHCN(1), RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTOC002', CHILD_ID = CATCHCN(1), RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'WATERTABLED',CHILD_ID = CATCHCN(1), RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'FSWCHANGE', CHILD_ID = CATCHCN(1), RC=STATUS) ; VERIFY_(STATUS)

if (DO_GOSWIM /= 0) then
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RDU001', CHILD_ID = CATCHCN(1), RC=STATUS) ; VERIFY_(STATUS)
Expand Down
2 changes: 2 additions & 0 deletions ...Comp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOS_CatchCNGridComp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -984,6 +984,8 @@ subroutine SetServices ( GC, RC )
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTBC002', CHILD_ID = CATCHCN, RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTOC001', CHILD_ID = CATCHCN, RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RMELTOC002', CHILD_ID = CATCHCN, RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'WATERTABLED',CHILD_ID = CATCHCN, RC=STATUS) ; VERIFY_(STATUS)
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'FSWCHANGE' , CHILD_ID = CATCHCN, RC=STATUS) ; VERIFY_(STATUS)

if (DO_GOSWIM /= 0) then
call MAPL_AddExportSpec ( GC, SHORT_NAME = 'RDU001', CHILD_ID = CATCHCN, RC=STATUS) ; VERIFY_(STATUS)
Expand Down
Loading