Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
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
12 changes: 2 additions & 10 deletions GEOSdataatm_GridComp/GEOS_DataAtmGridComp.F90
Original file line number Diff line number Diff line change
Expand Up @@ -154,13 +154,6 @@ subroutine SetServices ( GC, RC )
DIMS = MAPL_DimsHorzOnly, &
VLOCATION = MAPL_VLocationNone, __RC__)

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'RUNOFF', &
LONG_NAME = 'overland_runoff_including_throughflow', &
UNITS = 'kg m-2 s-1', &
DIMS = MAPL_DimsHorzOnly, &
VLOCATION = MAPL_VLocationNone, __RC__)

call MAPL_AddImportSpec(GC, &
SHORT_NAME = 'PCU', &
LONG_NAME = 'convective_rainfall', &
Expand Down Expand Up @@ -462,7 +455,6 @@ subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC )
real, pointer, dimension(:,:) :: QA ! => null()
real, pointer, dimension(:,:) :: UA ! => null()
real, pointer, dimension(:,:) :: VA ! => null()
real, pointer, dimension(:,:) :: RUNOFF ! => null()
real, pointer, dimension(:,:) :: PCU ! => null()
real, pointer, dimension(:,:) :: PLS ! => null()
real, pointer, dimension(:,:) :: SNO ! => null()
Expand Down Expand Up @@ -606,8 +598,8 @@ subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC )
! River runoff
! call ReadForcingData(impName='DISCHARGE', frcName='RR', default=0., __RC__)
call MAPL_GetPointer(SurfImport, DISCHARGE, 'DISCHARGE', __RC__)
call MAPL_GetPointer(import, RUNOFF, 'RUNOFF', __RC__)
DISCHARGE=RUNOFF
! runoff is provided directly by Ocean Gc on the tripolar grid
DISCHARGE=0.0

!ALT: we should read topo, but for now over ocean this is fine
call SetVarToZero('PHIS', __RC__)
Expand Down
24 changes: 24 additions & 0 deletions GEOSdataatm_GridComp/JRA55-DO_DataAtm_Forcings_ExtData.yaml
Original file line number Diff line number Diff line change
Expand Up @@ -41,6 +41,24 @@ Collections:
friver_1_5_0_1:
template: ExtData/JRA55-DO/v1-5-0-1/friver/friver_input4MIPs_atmosphericState_OMIP_MRI-JRA55-do-1-5-0-1_gr_%y40101-%y41231.nc
valid_range: "2020-01-01T00:00:00/2024-02-02T00:00:00"
friver_remap_1_5_0:
template: ExtData/JRA55-DO/v1-5-0/friver_remap/%OCN_RES%/friver_input4MIPs_atmosphericState_OMIP_MRI-JRA55-do-1-5-0_gr_%y40101-%y41231.nc
valid_range: "1958-01-01T00:00:00/2020-01-01T00:00:00"
friver_remap_1_5_0_1:
template: ExtData/JRA55-DO/v1-5-0-1/friver_remap/%OCN_RES%/friver_input4MIPs_atmosphericState_OMIP_MRI-JRA55-do-1-5-0-1_gr_%y40101-%y41231.nc
valid_range: "2020-01-01T00:00:00/2024-02-02T00:00:00"
licalvf_1_5_0:
template: ExtData/JRA55-DO/v1-5-0/licalvf/licalvf_input4MIPs_atmosphericState_OMIP_MRI-JRA55-do-1-5-0_gr_%y40101-%y41231.nc
valid_range: "1958-01-01T00:00:00/2020-01-01T00:00:00"
licalvf_1_5_0_1:
template: ExtData/JRA55-DO/v1-5-0-1/licalvf/licalvf_input4MIPs_atmosphericState_OMIP_MRI-JRA55-do-1-5-0-1_gr_%y40101-%y41231.nc
valid_range: "2020-01-01T00:00:00/2024-02-02T00:00:00"
licalvf_remap_1_5_0:
template: ExtData/JRA55-DO/v1-5-0/licalvf_remap/%OCN_RES%/licalvf_input4MIPs_atmosphericState_OMIP_MRI-JRA55-do-1-5-0_gr_%y40101-%y41231.nc
valid_range: "1958-01-01T00:00:00/2020-01-01T00:00:00"
licalvf_remap_1_5_0_1:
template: ExtData/JRA55-DO/v1-5-0-1/licalvf_remap/%OCN_RES%/licalvf_input4MIPs_atmosphericState_OMIP_MRI-JRA55-do-1-5-0-1_gr_%y40101-%y41231.nc
valid_range: "2020-01-01T00:00:00/2024-02-02T00:00:00"
prra_1_5_0:
template: ExtData/JRA55-DO/v1-5-0/prra/prra_input4MIPs_atmosphericState_OMIP_MRI-JRA55-do-1-5-0_gr_%y401010130-%y412312230.nc
valid_range: "1958-01-01T00:00:00/2020-01-01T00:00:00"
Expand Down Expand Up @@ -91,6 +109,12 @@ Exports:
RUNOFF:
- {starting: "1958-01-01T00:00:00", collection: friver_1_5_0, regrid: CONSERVE, sample: river_conserve_sample, variable: friver}
- {starting: "2020-01-01T00:00:00", collection: friver_1_5_0_1, regrid: CONSERVE, sample: river_conserve_sample, variable: friver}
DISCHARGE:
- {starting: "1958-01-01T00:00:00", collection: friver_remap_1_5_0, regrid: NEAREST_STOD, sample: river_conserve_sample, variable: friver}
- {starting: "2020-01-01T00:00:00", collection: friver_remap_1_5_0_1, regrid: NEAREST_STOD, sample: river_conserve_sample, variable: friver}
CALVING: {collection: /dev/null}
# - {starting: "1958-01-01T00:00:00", collection: licalvf_remap_1_5_0, regrid: NEAREST_STOD, sample: river_conserve_sample, variable: licalvf}
# - {starting: "2020-01-01T00:00:00", collection: licalvf_remap_1_5_0_1, regrid: NEAREST_STOD, sample: river_conserve_sample, variable: licalvf}
PCU:
- {starting: "1958-01-01T00:00:00", collection: prra_1_5_0, regrid: CONSERVE, sample: flux_conserve_sample, variable: prra}
- {starting: "2020-01-01T00:00:00", collection: prra_1_5_0_1, regrid: CONSERVE, sample: flux_conserve_sample, variable: prra}
Expand Down
12 changes: 9 additions & 3 deletions GEOSogcm_GridComp/GEOS_OgcmGridComp.F90
Original file line number Diff line number Diff line change
Expand Up @@ -848,7 +848,11 @@ subroutine SetServices ( GC, RC )
call MAPL_TerminateImport ( GC, ["DATA_KPAR "], [orad], RC=STATUS ) ! need to terminate others as well: cosz, discharge, frocean, pice, taux, tauy
endif
else
call MAPL_TerminateImport(GC, ['DATA_UW', 'DATA_VW'], [OCEAN, OCEAN], _RC)
if(DO_DATA_ATM4OCN) then
call MAPL_TerminateImport(GC, ['DATA_UW', 'DATA_VW', 'DISCHARGE', 'CALVING'], [OCEAN, OCEAN, OCEAN, OCEAN], _RC)
else
call MAPL_TerminateImport(GC, ['DATA_UW', 'DATA_VW'], [OCEAN, OCEAN], _RC)
endif
endif

! Set the Profiling timers
Expand Down Expand Up @@ -1824,8 +1828,10 @@ subroutine RUN ( GC, IMPORT, EXPORT, CLOCK, RC )
VERIFY_(STATUS)

if(DO_DATASEAONLY==0) then
call MAPL_LocStreamTransform( ExchGrid, DISCHARGEO, DISCHARGE, RC=STATUS)
VERIFY_(STATUS)
if(.not. DO_DATA_ATM4OCN) then
call MAPL_LocStreamTransform( ExchGrid, DISCHARGEO, DISCHARGE, RC=STATUS)
VERIFY_(STATUS)
endif

PENUVRM= PENUVRO
PENUVFM= PENUVFO
Expand Down
Loading