Skip to content

Commit f8c82ad

Browse files
committed
fix "include" and "use" errors in previous commit (lsm_routines.F90, GEOS_CatchGridComp.F90, GEOS_CatchCNCLM51GridComp.F90)
1 parent 54da2c0 commit f8c82ad

File tree

3 files changed

+6
-4
lines changed

3 files changed

+6
-4
lines changed

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/GEOS_CatchCNCLM51GridComp.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -68,7 +68,7 @@ module GEOS_CatchCNCLM51GridCompMod
6868
use MAPL_ConstantsMod,only: Tzero => MAPL_TICE, pi => MAPL_PI, MAPL_RHOWTR
6969
use clm_time_manager, only: get_days_per_year, get_step_size, get_nstep, is_first_step
7070
use pftconMod, only: noveg
71-
use lsm_routines, only: sibalb, catch_calc_soil_moist, catch_calc_peatclsm_waterlevel, catch_calc_zbar, gndtmp
71+
use lsm_routines, only: sibalb, catch_calc_soil_moist, catch_calc_peatclsm_waterlevel, catch_calc_zbar, gndtmp, get_Z0_FORMULATION_params
7272

7373
use update_model_para4cn, only : upd_curr_date_time
7474
use WaterType

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -55,7 +55,7 @@ module GEOS_CatchGridCompMod
5555
PEATCLSM_POROS_THRESHOLD
5656

5757

58-
USE lsm_routines, ONLY : sibalb, catch_calc_soil_moist, catch_calc_peatclsm_waterlevel
58+
USE lsm_routines, ONLY : sibalb, catch_calc_soil_moist, catch_calc_peatclsm_waterlevel, get_Z0_FORMULATION_params
5959

6060
!#for_ldas_coupling
6161
use catch_incr

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/Shared/lsm_routines.F90

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
1+
#include "MAPL_Generic.h"
2+
13
MODULE lsm_routines
24

35
! The module contains subroutines that are shared by Catchment and CatchmentCN.
@@ -21,8 +23,7 @@ MODULE lsm_routines
2123
! large-scale throughfalls. FWETC and FWETL are now passed through the resource file.
2224
! reichle, 27 Jan 2022 - moved "public" constants & subroutine echo_catch_constants() to catch_constants.f90
2325

24-
use MAPL, ONLY: &
25-
MAPL_UNDEF
26+
use MAPL
2627

2728
USE MAPL_ConstantsMod, ONLY: &
2829
PIE => MAPL_PI, & ! -
@@ -56,6 +57,7 @@ MODULE lsm_routines
5657
PUBLIC :: SIBALB, catch_calc_soil_moist, catch_calc_zbar, catch_calc_peatclsm_waterlevel
5758
PUBLIC :: catch_calc_subtile2tile
5859
PUBLIC :: gndtmp, catch_calc_tp, catch_calc_wtotl, catch_calc_ght, catch_calc_FT
60+
PUBLIC :: get_Z0_FORMULATION_params
5961
PUBLIC :: dampen_tc_oscillations, irrigation_rate
6062

6163
INTERFACE catch_calc_zbar

0 commit comments

Comments
 (0)