Skip to content

Commit 81c8fd8

Browse files
HelinWei-NOAAHelinWei-NOAA
authored
Merge pull request #89 from ufs-community/ufs/dev
sync with ufs/dev
2 parents c1daced + 9b0ac7b commit 81c8fd8

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

59 files changed

+1265
-1011
lines changed

‎.gitmodules

+1-4
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,4 @@
1-
[submodule "physics/rte-rrtmgp"]
1+
[submodule "physics/Radiation/RRTMGP/rte-rrtmgp"]
22
path = physics/Radiation/RRTMGP/rte-rrtmgp
33
url = https://github.com/earth-system-radiation/rte-rrtmgp
44
branch = main
5-
[submodule "physics/Radiation/RRTMGP/rte-rrtmgp"]
6-
path = physics/Radiation/RRTMGP/rte-rrtmgp
7-
url = https://github.com/earth-system-radiation/rte-rrtmgp

‎CMakeLists.txt

+8-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
cmake_minimum_required(VERSION 3.3)
1+
cmake_minimum_required(VERSION 3.10)
22

33
project(ccpp_physics
44
VERSION 5.0.0
@@ -8,6 +8,13 @@ project(ccpp_physics
88
set(PACKAGE "ccpp-physics")
99
set(AUTHORS "Grant Firl" "Dustin Swales" "Man Zhang" "Mike Kavulich" )
1010

11+
#------------------------------------------------------------------------------
12+
# Set MPI flags for Fortran with MPI F08 interface
13+
find_package(MPI REQUIRED Fortran)
14+
if(NOT MPI_Fortran_HAVE_F08_MODULE)
15+
message(FATAL_ERROR "MPI implementation does not support the Fortran 2008 mpi_f08 interface")
16+
endif()
17+
1118
#------------------------------------------------------------------------------
1219
# Set OpenMP flags for C/C++/Fortran
1320
if (OPENMP)

‎physics/CONV/Chikira_Sugiyama/cs_conv.F90

+811-640
Large diffs are not rendered by default.

‎physics/CONV/Chikira_Sugiyama/cs_conv.meta

+1-1
Original file line numberDiff line numberDiff line change
@@ -258,7 +258,7 @@
258258
standard_name = convective_updraft_area_fraction_at_model_interfaces
259259
long_name = convective updraft area fraction at model interfaces
260260
units = frac
261-
dimensions = (horizontal_loop_extent,vertical_layer_dimension)
261+
dimensions = (horizontal_loop_extent,vertical_interface_dimension)
262262
type = real
263263
kind = kind_phys
264264
intent = out

‎physics/CONV/Chikira_Sugiyama/cs_conv_post.meta

+1-1
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,7 @@
3333
standard_name = convective_updraft_area_fraction_at_model_interfaces
3434
long_name = convective updraft area fraction at model interfaces
3535
units = frac
36-
dimensions = (horizontal_loop_extent,vertical_layer_dimension)
36+
dimensions = (horizontal_loop_extent,vertical_interface_dimension)
3737
type = real
3838
kind = kind_phys
3939
intent = in

‎physics/GWD/cires_tauamf_data.F90

+1-8
Original file line numberDiff line numberDiff line change
@@ -180,7 +180,6 @@ subroutine gfs_idate_calendar(idate, fhour, ddd, fddd)
180180
integer :: jdow, jdoy, jday
181181
real(8) :: rinc(5)
182182
real(4) :: rinc4(5)
183-
integer :: w3kindreal, w3kindint
184183

185184
integer :: iw3jdn
186185
integer :: jd1, jddd
@@ -196,13 +195,7 @@ subroutine gfs_idate_calendar(idate, fhour, ddd, fddd)
196195
rinc(1:5) = 0.
197196
rinc(2) = fhour
198197
!
199-
call w3kind(w3kindreal,w3kindint)
200-
if(w3kindreal==4) then
201-
rinc4 = rinc
202-
call w3movdat(rinc4, idat,jdat)
203-
else
204-
call w3movdat(rinc, idat,jdat)
205-
endif
198+
call w3movdat(rinc, idat,jdat)
206199
! jdate(8)- date and time (yr, mo, day, [tz], hr, min, sec)
207200
jdow = 0
208201
jdoy = 0

‎physics/GWD/unified_ugwp.F90

+2-2
Original file line numberDiff line numberDiff line change
@@ -253,7 +253,7 @@ subroutine unified_ugwp_run(me, master, im, levs, ak,bk, ntrac, dtp, fhzero, kdt
253253
cdmbgwd, jdat, xlat, xlat_d, sinlat, coslat, area, &
254254
ugrs, vgrs, tgrs, q1, prsi, prsl, prslk, phii, phil, &
255255
del, kpbl, dusfcg, dvsfcg, gw_dudt, gw_dvdt, gw_dtdt, gw_kdis, &
256-
tau_tofd, tau_mtb, tau_ogw, tau_ngw, zmtb, zlwb, zogw, &
256+
tau_tofd, tau_mtb, tau_ogw, tau_ngw, &
257257
dudt_mtb, dudt_tms, du3dt_mtb, du3dt_ogw, du3dt_tms, &
258258
dudt, dvdt, dtdt, rdxzb, con_g, con_omega, con_pi, con_cp, con_rd, con_rv, &
259259
con_rerth, con_fvirt, rain, ntke, q_tke, dqdt_tke, lprnt, ipr, &
@@ -309,7 +309,7 @@ subroutine unified_ugwp_run(me, master, im, levs, ak,bk, ntrac, dtp, fhzero, kdt
309309
& slmsk(:)
310310

311311
real(kind=kind_phys), intent(out), dimension(:) :: dusfcg, dvsfcg
312-
real(kind=kind_phys), intent(out), dimension(:) :: zmtb, zlwb, zogw, rdxzb
312+
real(kind=kind_phys), intent(out), dimension(:) :: rdxzb
313313
real(kind=kind_phys), intent(out), dimension(:) :: tau_mtb, tau_ogw, tau_tofd, tau_ngw
314314
real(kind=kind_phys), intent(out), dimension(:,:) :: gw_dudt, gw_dvdt, gw_dtdt, gw_kdis
315315
real(kind=kind_phys), intent(out), dimension(:,:) :: dudt_mtb, dudt_tms

‎physics/GWD/unified_ugwp.meta

-24
Original file line numberDiff line numberDiff line change
@@ -900,30 +900,6 @@
900900
type = real
901901
kind = kind_phys
902902
intent = out
903-
[zmtb]
904-
standard_name = height_of_mountain_blocking
905-
long_name = height of mountain blocking drag
906-
units = m
907-
dimensions = (horizontal_loop_extent)
908-
type = real
909-
kind = kind_phys
910-
intent = out
911-
[zlwb]
912-
standard_name = height_of_low_level_wave_breaking
913-
long_name = height of low level wave breaking
914-
units = m
915-
dimensions = (horizontal_loop_extent)
916-
type = real
917-
kind = kind_phys
918-
intent = out
919-
[zogw]
920-
standard_name = height_of_launch_level_of_orographic_gravity_wave
921-
long_name = height of launch level of orographic gravity wave
922-
units = m
923-
dimensions = (horizontal_loop_extent)
924-
type = real
925-
kind = kind_phys
926-
intent = out
927903
[dudt_mtb]
928904
standard_name = instantaneous_change_in_x_wind_due_to_mountain_blocking_drag
929905
long_name = instantaneous change in x wind due to mountain blocking drag

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_debug.F90

+2-2
Original file line numberDiff line numberDiff line change
@@ -385,7 +385,7 @@ subroutine GFS_diagtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling,
385385
nthreads, blkno, errmsg, errflg)
386386

387387
#ifdef MPI
388-
use mpi
388+
use mpi_f08
389389
#endif
390390
#ifdef _OPENMP
391391
use omp_lib
@@ -1055,7 +1055,7 @@ subroutine GFS_interstitialtoscreen_run (Model, Statein, Stateout, Sfcprop, Coup
10551055
nthreads, blkno, errmsg, errflg)
10561056

10571057
#ifdef MPI
1058-
use mpi
1058+
use mpi_f08
10591059
#endif
10601060
#ifdef _OPENMP
10611061
use omp_lib

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90

+2-9
Original file line numberDiff line numberDiff line change
@@ -793,7 +793,6 @@ subroutine GFS_phys_time_vary_timestep_init (
793793
real(kind_phys) :: rannie(cny)
794794
real(kind_phys) :: rndval(cnx*cny*nrcm)
795795
real(kind_dbl_prec) :: rinc(5)
796-
real(kind_sngl_prec) :: rinc4(5)
797796

798797
! Initialize CCPP error handling variables
799798
errmsg = ''
@@ -813,7 +812,7 @@ subroutine GFS_phys_time_vary_timestep_init (
813812
!$OMP shared(ozpl,ddy_o3,h2o_phys,jindx1_h,jindx2_h,h2opl,ddy_h,iaerclm,master) &
814813
!$OMP shared(levs,prsl,iccn,jindx1_ci,jindx2_ci,ddy_ci,iindx1_ci,iindx2_ci) &
815814
!$OMP shared(ddx_ci,in_nm,ccn_nm,do_ugwp_v1,jindx1_tau,jindx2_tau,ddy_j1tau) &
816-
!$OMP shared(ddy_j2tau,tau_amf,iflip,ozphys,rjday,n1,n2,idat,jdat,rinc,rinc4) &
815+
!$OMP shared(ddy_j2tau,tau_amf,iflip,ozphys,rjday,n1,n2,idat,jdat,rinc) &
817816
!$OMP shared(w3kindreal,w3kindint,jdow,jdoy,jday) &
818817
!$OMP private(iseed,iskip,i,j,k)
819818

@@ -873,13 +872,7 @@ subroutine GFS_phys_time_vary_timestep_init (
873872
idat(5)=idate(1)
874873
rinc=0.
875874
rinc(2)=fhour
876-
call w3kind(w3kindreal,w3kindint)
877-
if(w3kindreal==4) then
878-
rinc4=rinc
879-
CALL w3movdat(rinc4,idat,jdat)
880-
else
881-
CALL w3movdat(rinc,idat,jdat)
882-
endif
875+
CALL w3movdat(rinc,idat,jdat)
883876
jdow = 0
884877
jdoy = 0
885878
jday = 0

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmg_pre.F90

+3-3
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,7 @@ module GFS_rrtmg_pre
1919
!>\section rrtmg_pre_gen General Algorithm
2020
subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, lextop,&
2121
ltp, imfdeepcnv, imfdeepcnv_gf, imfdeepcnv_c3, me, ncnd, ntrac, &
22-
num_p3d, npdf3d, &
22+
num_p3d, npdf3d, xr_cnvcld, &
2323
ncnvcld3d,ntqv, ntcw,ntiw, ntlnc, ntinc, ntrnc, ntsnc, ntccn, top_at_1,&
2424
ntrw, ntsw, ntgl, nthl, ntwa, ntoz, ntsmoke, ntdust, ntcoarsepm, &
2525
ntclamt, nleffr, nieffr, nseffr, lndp_type, kdt, &
@@ -129,7 +129,7 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, lextop,&
129129
uni_cld, effr_in, do_mynnedmf, &
130130
lmfshal, lmfdeep2, pert_clds, lcrick,&
131131
lcnorm, top_at_1, lextop, mraerosol
132-
logical, intent(in) :: rrfs_sd, aero_dir_fdb
132+
logical, intent(in) :: rrfs_sd, aero_dir_fdb, xr_cnvcld
133133

134134
logical, intent(in) :: nssl_ccn_on, nssl_invertccn
135135
integer, intent(in) :: spp_rad
@@ -981,7 +981,7 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, lextop,&
981981
& iovr_dcorr, iovr_exp, iovr_exprand, idcor, idcor_con, &
982982
& idcor_hogan, idcor_oreopoulos, lcrick, lcnorm, &
983983
& imfdeepcnv, imfdeepcnv_gf, imfdeepcnv_c3, do_mynnedmf, &
984-
& lgfdlmprad, &
984+
& lgfdlmprad, xr_cnvcld, &
985985
& uni_cld, lmfshal, lmfdeep2, cldcov, clouds1, &
986986
& effrl, effri, effrr, effrs, effr_in, &
987987
& effrl_inout, effri_inout, effrs_inout, &

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmg_pre.meta

+7
Original file line numberDiff line numberDiff line change
@@ -56,6 +56,13 @@
5656
dimensions = ()
5757
type = logical
5858
intent = in
59+
[xr_cnvcld]
60+
standard_name = flag_for_suspended_convective_clouds_in_Xu_Randall
61+
long_name = flag for using suspended convective clouds in Xu Randall
62+
units = flag
63+
dimensions = ()
64+
type = logical
65+
intent = in
5966
[ltp]
6067
standard_name = extra_top_layer
6168
long_name = extra top layer for radiation

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_suite_stateout_update.F90

+8-7
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@ module GFS_suite_stateout_update
1818
subroutine GFS_suite_stateout_update_run (im, levs, ntrac, dtp, tgrs, ugrs, vgrs, qgrs, &
1919
dudt, dvdt, dtdt, dqdt, gt0, gu0, gv0, gq0, oz0, ntiw, nqrimef, imp_physics, &
2020
imp_physics_fer_hires, epsq, ozphys, oz_phys_2015, oz_phys_2006, con_1ovg, prsl, &
21-
dp, ozpl, do3_dt_prd, do3_dt_ozmx, do3_dt_temp, do3_dt_ohoz, errmsg, errflg)
21+
dp, ozpl, qdiag3d, do3_dt_prd, do3_dt_ozmx, do3_dt_temp, do3_dt_ohoz, errmsg, errflg)
2222

2323
! Inputs
2424
integer, intent(in ) :: im
@@ -31,12 +31,13 @@ subroutine GFS_suite_stateout_update_run (im, levs, ntrac, dtp, tgrs, ugrs, vgrs
3131
real(kind=kind_phys), intent(in ), dimension(:,:,:) :: qgrs, ozpl
3232
real(kind=kind_phys), intent(in ), dimension(:,:) :: dudt, dvdt, dtdt
3333
real(kind=kind_phys), intent(in ), dimension(:,:,:) :: dqdt
34+
logical, intent(in) :: qdiag3d
3435
logical, intent(in) :: oz_phys_2015
3536
logical, intent(in) :: oz_phys_2006
3637
type(ty_ozphys), intent(in) :: ozphys
3738

3839
! Outputs (optional)
39-
real(kind=kind_phys), intent(inout), dimension(:,:), pointer, optional :: &
40+
real(kind=kind_phys), intent(inout), dimension(:,:) :: &
4041
do3_dt_prd, & ! Physics tendency: production and loss effect
4142
do3_dt_ozmx, & ! Physics tendency: ozone mixing ratio effect
4243
do3_dt_temp, & ! Physics tendency: temperature effect
@@ -50,7 +51,7 @@ subroutine GFS_suite_stateout_update_run (im, levs, ntrac, dtp, tgrs, ugrs, vgrs
5051

5152
! Locals
5253
integer :: i, k
53-
54+
5455
! Initialize CCPP error handling variables
5556
errmsg = ''
5657
errflg = 0
@@ -65,12 +66,12 @@ subroutine GFS_suite_stateout_update_run (im, levs, ntrac, dtp, tgrs, ugrs, vgrs
6566
! If using photolysis physics schemes, update (prognostic) gas concentrations using
6667
! updated state.
6768
if (oz_phys_2015) then
68-
call ozphys%run_o3prog_2015(con_1ovg, dtp, prsl, gt0, dp, ozpl, oz0, do3_dt_prd, &
69-
do3_dt_ozmx, do3_dt_temp, do3_dt_ohoz)
69+
call ozphys%run_o3prog_2015(con_1ovg, dtp, prsl, gt0, dp, ozpl, oz0, qdiag3d, &
70+
do3_dt_prd, do3_dt_ozmx, do3_dt_temp, do3_dt_ohoz)
7071
endif
7172
if (oz_phys_2006) then
72-
call ozphys%run_o3prog_2006(con_1ovg, dtp, prsl, gt0, dp, ozpl, oz0, do3_dt_prd, &
73-
do3_dt_ozmx, do3_dt_temp, do3_dt_ohoz)
73+
call ozphys%run_o3prog_2006(con_1ovg, dtp, prsl, gt0, dp, ozpl, oz0, qdiag3d, &
74+
do3_dt_prd, do3_dt_ozmx, do3_dt_temp, do3_dt_ohoz)
7475
endif
7576

7677
! If using Ferrier-Aligo microphysics, set bounds on the mass-weighted rime factor.

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_suite_stateout_update.meta

+7
Original file line numberDiff line numberDiff line change
@@ -44,6 +44,13 @@
4444
dimensions = ()
4545
type = ty_ozphys
4646
intent = in
47+
[qdiag3d]
48+
standard_name = flag_for_tracer_diagnostics_3D
49+
long_name = flag for 3d tracer diagnostic fields
50+
units = flag
51+
dimensions = ()
52+
type = logical
53+
intent = in
4754
[oz_phys_2015]
4855
standard_name = flag_for_nrl_2015_ozone_scheme
4956
long_name = flag for new (2015) ozone physics

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_composites_pre.F90

+2-8
Original file line numberDiff line numberDiff line change
@@ -42,9 +42,9 @@ subroutine GFS_surface_composites_pre_run (im, lkm, frac_grid, iopt_lake, iopt_l
4242
real(kind=kind_phys), dimension(:), intent(in ) :: landfrac, lakefrac, lakedepth, oceanfrac
4343
real(kind=kind_phys), dimension(:), intent(inout) :: cice, hice
4444
real(kind=kind_phys), dimension(:), intent( out) :: frland
45-
real(kind=kind_phys), dimension(:), intent(in ) :: snowd, tprcp, uustar, weasd, qss
45+
real(kind=kind_phys), dimension(:), intent(in ) :: snowd, tprcp, uustar, weasd, qss, tisfc
4646

47-
real(kind=kind_phys), dimension(:), intent(inout) :: tsfc, tsfco, tsfcl, tisfc
47+
real(kind=kind_phys), dimension(:), intent(inout) :: tsfc, tsfco, tsfcl
4848
real(kind=kind_phys), dimension(:), intent(inout) :: snowd_lnd, snowd_ice, tprcp_wat, &
4949
tprcp_lnd, tprcp_ice, tsfc_wat, tsurf_wat,tsurf_lnd, tsurf_ice, &
5050
uustar_wat, uustar_lnd, uustar_ice, weasd_lnd, weasd_ice, &
@@ -86,7 +86,6 @@ subroutine GFS_surface_composites_pre_run (im, lkm, frac_grid, iopt_lake, iopt_l
8686
if (oceanfrac(i) > zero) then
8787
if (cice(i) >= min_seaice) then
8888
icy(i) = .true.
89-
tisfc(i) = max(timin, min(tisfc(i), tgice))
9089
if (cplflx) then
9190
islmsk_cice(i) = 4
9291
flag_cice(i) = .true.
@@ -111,7 +110,6 @@ subroutine GFS_surface_composites_pre_run (im, lkm, frac_grid, iopt_lake, iopt_l
111110
if (cice(i) >= min_lakeice) then
112111
icy(i) = .true.
113112
islmsk(i) = 2
114-
tisfc(i) = max(timin, min(tisfc(i), tgice))
115113
else
116114
cice(i) = zero
117115
hice(i) = zero
@@ -151,7 +149,6 @@ subroutine GFS_surface_composites_pre_run (im, lkm, frac_grid, iopt_lake, iopt_l
151149
if (oceanfrac(i) > zero) then
152150
if (cice(i) >= min_seaice) then
153151
icy(i) = .true.
154-
tisfc(i) = max(timin, min(tisfc(i), tgice))
155152
! This cplice namelist option was added to deal with the
156153
! situation of the FV3ATM-HYCOM coupling without an active sea
157154
! ice (e.g., CICE6) component. By default, the cplice is true
@@ -187,9 +184,6 @@ subroutine GFS_surface_composites_pre_run (im, lkm, frac_grid, iopt_lake, iopt_l
187184
is_clm = lkm>0 .and. iopt_lake==iopt_lake_clm .and. use_lake_model(i)>0
188185
if (cice(i) >= min_lakeice) then
189186
icy(i) = .true.
190-
if(.not.is_clm) then
191-
tisfc(i) = max(timin, min(tisfc(i), tgice))
192-
endif
193187
islmsk(i) = 2
194188
else
195189
cice(i) = zero

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_composites_pre.meta

+1-1
Original file line numberDiff line numberDiff line change
@@ -358,7 +358,7 @@
358358
dimensions = (horizontal_loop_extent)
359359
type = real
360360
kind = kind_phys
361-
intent = inout
361+
intent = in
362362
[tsurf_wat]
363363
standard_name = surface_skin_temperature_after_iteration_over_water
364364
long_name = surface skin temperature after iteration over water

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_generic_pre.F90

+1-6
Original file line numberDiff line numberDiff line change
@@ -61,8 +61,7 @@ end subroutine GFS_surface_generic_pre_init
6161
!!
6262
subroutine GFS_surface_generic_pre_run (nthreads, im, levs, vfrac, islmsk, isot, ivegsrc, stype, scolor,vtype, slope, &
6363
prsik_1, prslk_1, tsfc, phil, con_g, sigmaf, work3, zlvl, &
64-
drain_cpl, dsnow_cpl, rain_cpl, snow_cpl, lndp_type, n_var_lndp, sfc_wts, &
65-
lndp_var_list, lndp_prt_list, &
64+
lndp_type, n_var_lndp, sfc_wts, lndp_var_list, lndp_prt_list, &
6665
z01d, zt1d, bexp1d, xlai1d, vegf1d, lndp_vgf, &
6766
cplflx, flag_cice, islmsk_cice, slimskin_cpl, &
6867
wind, u1, v1, cnvwind, smcwlt2, smcref2, vtype_save, stype_save,scolor_save, slope_save, &
@@ -87,10 +86,6 @@ subroutine GFS_surface_generic_pre_run (nthreads, im, levs, vfrac, islmsk, isot,
8786
real(kind=kind_phys), dimension(:), intent(inout) :: sigmaf, work3, zlvl
8887

8988
! Stochastic physics / surface perturbations
90-
real(kind=kind_phys), dimension(:), intent(out) :: drain_cpl
91-
real(kind=kind_phys), dimension(:), intent(out) :: dsnow_cpl
92-
real(kind=kind_phys), dimension(:), intent(in) :: rain_cpl
93-
real(kind=kind_phys), dimension(:), intent(in) :: snow_cpl
9489
integer, intent(in) :: lndp_type, n_var_lndp
9590
character(len=3), dimension(:), intent(in) :: lndp_var_list
9691
real(kind=kind_phys), dimension(:), intent(in) :: lndp_prt_list

‎physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_generic_pre.meta

-32
Original file line numberDiff line numberDiff line change
@@ -290,38 +290,6 @@
290290
type = real
291291
kind = kind_phys
292292
intent = inout
293-
[drain_cpl]
294-
standard_name = tendency_of_lwe_thickness_of_rain_amount_on_dynamics_timestep_for_coupling
295-
long_name = change in rain_cpl (coupling_type)
296-
units = m
297-
dimensions = (horizontal_loop_extent)
298-
type = real
299-
kind = kind_phys
300-
intent = out
301-
[dsnow_cpl]
302-
standard_name = tendency_of_lwe_thickness_of_snowfall_amount_on_dynamics_timestep_for_coupling
303-
long_name = change in show_cpl (coupling_type)
304-
units = m
305-
dimensions = (horizontal_loop_extent)
306-
type = real
307-
kind = kind_phys
308-
intent = out
309-
[rain_cpl]
310-
standard_name = cumulative_lwe_thickness_of_precipitation_amount_for_coupling
311-
long_name = total rain precipitation
312-
units = m
313-
dimensions = (horizontal_loop_extent)
314-
type = real
315-
kind = kind_phys
316-
intent = in
317-
[snow_cpl]
318-
standard_name = cumulative_lwe_thickness_of_snow_amount_for_coupling
319-
long_name = total snow precipitation
320-
units = m
321-
dimensions = (horizontal_loop_extent)
322-
type = real
323-
kind = kind_phys
324-
intent = in
325293
[lndp_type]
326294
standard_name = control_for_stochastic_land_surface_perturbation
327295
long_name = index for stochastic land surface perturbations type

0 commit comments

Comments
 (0)