Skip to content

Commit c71f7ad

Browse files
committed
edited/added comments about handling of rc variables (GEOS_CatchGridComp.F90)
1 parent 73da026 commit c71f7ad

File tree

1 file changed

+2
-1
lines changed
  • GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp

1 file changed

+2
-1
lines changed

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/GEOS_CatchGridComp.F90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -187,11 +187,12 @@ subroutine SetServices ( GC, RC )
187187

188188
OFFLINE_MODE = CATCH_INTERNAL_STATE%CATCH_OFFLINE ! shorthand
189189

190-
! resource variables from GEOS_SurfaceGridComp.rc
190+
! put resource variables from rc file into SCF config object (GCM: SURFRC=GEOS_SurfaceGridComp.rc, LDAS: SURFRC=LDAS.rc)
191191
call MAPL_GetResource (MAPL, SURFRC, label = 'SURFRC:', default = 'GEOS_SurfaceGridComp.rc', RC=STATUS) ; VERIFY_(STATUS)
192192
SCF = ESMF_ConfigCreate(rc=status) ; VERIFY_(STATUS)
193193
call ESMF_ConfigLoadFile(SCF,SURFRC,rc=status) ; VERIFY_(STATUS)
194194

195+
! assemble internal state from SCF config object
195196
call surface_params_to_wrap_state(statePtr, SCF, _RC)
196197

197198
call ESMF_ConfigDestroy(SCF, _RC)

0 commit comments

Comments
 (0)