Skip to content

Commit 3a72731

Browse files
gmao-rreichlegmao-rreichle
committed
consistent use of "use shr_kind_mod" in CLM51/*.F90
1 parent 3eea7f7 commit 3a72731

34 files changed

+46
-39
lines changed

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/CNProductsMod.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ module CNProductsMod
33
#include "MAPL_Generic.h"
44
#include "shr_assert.h"
55

6-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
6+
use shr_kind_mod , only : r8 => shr_kind_r8
77
use MAPL_ExceptionHandling
88
use nanMod , only : nan
99
use decompMod , only : bounds_type

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/CNVegCarbonFluxType.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ module CNVegCarbonFluxType
33
#include "MAPL_Generic.h"
44
#include "shr_assert.h"
55

6-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
6+
use shr_kind_mod , only : r8 => shr_kind_r8
77
use nanMod , only : nan
88
use decompMod , only : bounds_type
99
use clm_varpar , only : ndecomp_cascade_transitions, ndecomp_pools,&

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/CNVegCarbonStateType.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@ module CNVegCarbonStateType
22

33
#include "shr_assert.h"
44

5-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
5+
use shr_kind_mod , only : r8 => shr_kind_r8
66
use clm_varctl , only : iulog, use_cndv, use_crop, use_matrixcn
77
use clm_varpar , only : numpft, num_zon, num_veg, &
88
var_col, var_pft, CN_zone_weight

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/CNVegNitrogenFluxType.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
module CNVegNitrogenFluxType
22

3-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
3+
use shr_kind_mod , only : r8 => shr_kind_r8
44
use nanMod , only : nan
55
use decompMod , only : bounds_type
66
use clm_varpar , only : ndecomp_cascade_transitions, ndecomp_pools

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/CNVegNitrogenStateType.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
module CNVegNitrogenStateType
22

3-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
3+
use shr_kind_mod , only : r8 => shr_kind_r8
44
use MAPL_ExceptionHandling
55
use clm_varctl , only : use_matrixcn, use_crop
66
use clm_varctl , only : use_nitrif_denitrif, use_vertsoilc, use_century_decomp

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/CNVegStateType.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
module CNVegStateType
22

3-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
3+
use shr_kind_mod , only : r8 => shr_kind_r8
44
use nanMod , only : nan
55
use clm_varpar , only : nlevsno, nlevgrnd, nlevlak, nlevsoi, &
66
num_zon, num_veg, var_col, var_pft, numpft

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/CanopyStateType.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22

33
module CanopyStateType
44

5-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
5+
use shr_kind_mod , only : r8 => shr_kind_r8
66
use clm_varpar , only : nlevcan, nvegwcs, numpft, num_zon, num_veg, &
77
var_col, var_pft
88
use clm_varcon , only : spval

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/ColumnType.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -19,9 +19,9 @@ module ColumnType
1919
! 75 => (icol_road_perv) urban pervious road
2020

2121

22-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
23-
use nanMod , only : nan
24-
use decompMod , only : bounds_type
22+
use shr_kind_mod , only : r8 => shr_kind_r8
23+
use nanMod , only : nan
24+
use decompMod , only : bounds_type
2525
use clm_varcon , only : zsoi, dzsoi, zisoi, dzsoi_decomp, spval, ispval
2626
use clm_varctl , only : use_fates
2727
use clm_varpar , only : nlevsno, nlevgrnd, nlevlak, nlevmaxurbgrnd,nlevurb, &

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/CropType.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
module CropType
22

3-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8
3+
use shr_kind_mod , only : r8 => shr_kind_r8
44
use clm_varcon , only : spval
55
use nanMod , only : nan
66
use decompMod , only : bounds_type

‎GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM51_GridComp/CLM51/GridcellType.F90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
module GridcellType
22

3-
use MAPL_ConstantsMod, ONLY: r8 => MAPL_R8, MAPL_PI
3+
use MAPL_Constants , ONLY : MAPL_PI
4+
use shr_kind_mod , only : r8 => shr_kind_r8
45
use nanMod , only : nan
56
use decompMod , only : bounds_type
67
use clm_varcon , only : ispval, max_lunit

0 commit comments

Comments
 (0)