Skip to content

Commit 73da026

Browse files
committed
edited/added comments about handling of rc variables (GEOSland_GridComp/GEOScatchCN_GridComp/GEOS_CatchCNGridComp.F90)
1 parent 7bb81c7 commit 73da026

File tree

1 file changed

+3
-2
lines changed
  • GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp

1 file changed

+3
-2
lines changed

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOS_CatchCNGridComp.F90

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -86,17 +86,18 @@ subroutine SetServices ( GC, RC )
8686
call MAPL_GetResource ( MAPL, CATCHCN_INTERNAL_STATE%CATCH_SPINUP, Label="CATCHMENT_SPINUP:", DEFAULT=0, RC=STATUS)
8787
VERIFY_(STATUS)
8888

89-
! resource variables from GEOS_SurfaceGridComp.rc
89+
! put resource variables from rc file into SCF config object (GCM: SURFRC=GEOS_SurfaceGridComp.rc, LDAS: SURFRC=LDAS.rc)
9090
call MAPL_GetResource ( MAPL, SURFRC, label = 'SURFRC:', default = 'GEOS_SurfaceGridComp.rc', RC=STATUS) ; VERIFY_(STATUS)
9191
SCF = ESMF_ConfigCreate(rc=status) ; VERIFY_(STATUS)
9292
call ESMF_ConfigLoadFile(SCF,SURFRC,rc=status) ; VERIFY_(STATUS)
9393

94+
! assemble internal state from SCF config object
9495
call surface_params_to_wrap_state(statePtr, SCF, _RC)
9596

9697
call ESMF_ConfigDestroy(SCF, _RC)
9798

99+
! add select rc variables to the CF config object within MAPL and (again) into the internal state
98100
call MAPL_Get (MAPL, CF=CF, _RC)
99-
100101
call ESMF_ConfigSetAttribute(CF, value=CATCHCN_INTERNAL_STATE%CN_CLM51_NML_FILE, Label='CN_CLM51_NML_FILE:', _RC)
101102
call ESMF_ConfigSetAttribute(CF, value=CATCHCN_INTERNAL_STATE%ATM_CO2, Label='ATM_CO2:', _RC)
102103
call ESMF_ConfigSetAttribute(CF, value=CATCHCN_INTERNAL_STATE%N_CONST_LAND4SNWALB, Label='N_CONST_LAND4SNWALB:', _RC)

0 commit comments

Comments
 (0)