Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add/update HWRF physics #509

Merged
merged 65 commits into from
Nov 5, 2020
Merged

Add/update HWRF physics #509

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
65 commits
Select commit Hold shift + click to select a range
9648204
Merge branch 'master' into support/HAFS
BinLiu-NOAA Jan 23, 2020
1274c44
Merge branch 'feature/hafs_ccpp' into support/HAFS
BinLiu-NOAA Jan 27, 2020
8ba1c3c
Changes to EDMF-HAFS and EDMF-TKE to OutputEddy Diffusivity
AndrewHazelton Mar 4, 2020
3419162
Merge pull request #1 from hafs-community/feature/add_km
JiliDong-NOAA Mar 5, 2020
31a294a
Merge branch 'master' into support/HAFS
BinLiu-NOAA Mar 24, 2020
1df7376
Update CODEOWNERS for HWRF physics development
climbfuji Apr 3, 2020
10867d1
add hurricane-specific code to moninedmf.f
grantfirl Dec 10, 2019
cce995d
clean up logic to better align with HAFS version from Bin Liu, Chunxi…
grantfirl Feb 3, 2020
e839247
send constants through the argument list
grantfirl Feb 6, 2020
78c03e0
send constants through physcons module; sending constants through the…
grantfirl Mar 26, 2020
b492f72
physics/moninedmf.{f,meta}: apply missing updates that were hidden in…
climbfuji Apr 6, 2020
0346c38
Merge pull request #428 from climbfuji/dtc-hwrf-physics-add-moninedmf
climbfuji Apr 7, 2020
a8a2ab8
enable icloud=3 capability
mzhangw Feb 11, 2020
9309fc6
add exponential cloud overlapping for LW component
mzhangw Feb 13, 2020
5597b2c
finalize HWRF RRTMG LW capability
mzhangw Feb 16, 2020
bb68108
HWRF RRTMG cloud-rad interaction
mzhangw Mar 17, 2020
c47c2cb
add progcld6 for GSD suite
mzhangw Mar 21, 2020
ac32ce0
remove the connection of iovrlw/iovrsw with physparam
mzhangw Mar 24, 2020
5404462
add new radlw/radsw main with modern fortran
mzhangw Apr 7, 2020
28d1bc2
Clean up HWRF RRTMG additions
climbfuji Apr 7, 2020
2933be7
Cleanup comments in newly added/modified radiation code
climbfuji Apr 8, 2020
6c27ff2
Merge pull request #430 from climbfuji/dtc_hwrf-physics_add_rrtmg
climbfuji Apr 9, 2020
ffc2755
Merge branch 'man_hafs_sas_for_master' of https://github.com/climbfuj…
climbfuji Apr 10, 2020
02bede0
Merge remote-tracking branch 'ncar/dtc/hwrf-physics' into merge_hwrf-…
climbfuji Apr 10, 2020
dd891d8
Merge pull request #433 from climbfuji/merge_hwrf-sasas_into_dtc_hwrf…
climbfuji Apr 13, 2020
6a8c80e
Merge mzhangw:HAFS_fer_hires into NCAR:dtc/hwrf-physics
mzhangw Apr 14, 2020
08bcc39
Merge pull request #435 from climbfuji/HAFS_fer_hires_for_dtc_hwrf-ph…
climbfuji Apr 16, 2020
cb2d558
fix unitialized parameter and dimensions in FA
mzhangw Apr 30, 2020
b084396
fix unitialized parameters in samfdeepcnv
mzhangw Apr 30, 2020
d35fad0
bug fix in HWRF RRTMG
mzhangw Apr 30, 2020
9e5c8bf
Merge branch 'master' into support/HAFS
BinLiu-NOAA May 1, 2020
eddf41c
Merge pull request #447 from mzhangw/dtc_hwrf_physics
climbfuji May 6, 2020
ef38696
add force_read_ferhires capability in FA
mzhangw May 8, 2020
ce348d9
Merge branch 'dtc/hwrf-physics' of https://github.com/NCAR/ccpp-physi…
mzhangw May 8, 2020
4233a04
addition of HWRF Noah LSM and GFDL surface layer; for HWRF Noah LSM 1…
grantfirl May 13, 2020
e072e17
Merge branch 'support/HAFS' of https://github.com/hafs-community/ccpp…
climbfuji May 14, 2020
d9c5e06
Update GFS_rrtmgp_pre.F90 with progcld changes, update GFS_rrtmgp_set…
climbfuji May 15, 2020
b850fe7
add limits to fh, fh2
grantfirl May 19, 2020
6d3ce4f
use precalculated wind speed with convective gustiness component in g…
grantfirl May 19, 2020
b8629ee
add logic to maintain ratio between fh and fh2 to attempt to reign in…
grantfirl May 20, 2020
0d4717a
Merge pull request #453 from climbfuji/update_dtc_hwrf_physics_from_h…
climbfuji May 20, 2020
0298ceb
add time-averaged calculation of skin temperature and soil temperatur…
grantfirl May 27, 2020
997d378
Merge branch 'dtc/hwrf-physics' into hwrf_sfc_PR
grantfirl May 28, 2020
c7c2c3c
Merge branch 'hwrf_sfc_PR_2' into hwrf_sfc_PR
grantfirl May 28, 2020
76a02b8
Merge pull request #452 from grantfirl/hwrf_sfc_PR
grantfirl May 29, 2020
03ec64b
Merge remote-tracking branch 'remotes/upstream/master' into support/HAFS
BinLiu-NOAA Jun 6, 2020
d58fa4f
Merge branch 'support/HAFS' of https://github.com/hafs-community/ccpp…
climbfuji Jun 18, 2020
0e4496c
Merge pull request #463 from climbfuji/update_dtc-hwrf-physics_from_h…
climbfuji Jun 19, 2020
69e5888
Merge branch 'master' of https://github.com/NCAR/ccpp-physics into HEAD
climbfuji Sep 22, 2020
807dd0b
Update HWRF physics (except FA) after merge, add CCPP dependencies to…
climbfuji Oct 7, 2020
2ad28e6
Apply boundds to znt_ocn in physics/gfdl_sfc_layer.F90 before trying …
climbfuji Oct 10, 2020
fce80a1
physics/module_mp_thompson.F90: adjust lower bounds of cloud effectiv…
climbfuji Oct 10, 2020
030dcfd
Add CCPP dependencies to physics/radlw_main.meta and physics/radsw_ma…
climbfuji Oct 10, 2020
3c01284
Bugfix in physics/samfdeepcnv.f for uninitialized variable crtlame
climbfuji Oct 10, 2020
afa335f
physics/module_MP_FER_HIRES.F90: bugfixes for MPI calls in init routine
climbfuji Oct 10, 2020
b871fb9
Remove trailing whitespaces from physics/gfdl_sfc_layer.F90
climbfuji Oct 10, 2020
d257347
Fix error handling in physics/radlw_main.F90
climbfuji Oct 10, 2020
a171fbb
Merge branch 'master' of https://github.com/NCAR/ccpp-physics into dt…
climbfuji Oct 13, 2020
57d1b4d
Bugfixes following update from master
climbfuji Oct 14, 2020
b580c58
Always calculate Julian day, since it is getting used by more and mor…
climbfuji Oct 16, 2020
9b63668
Fix metadata, remove moninedmf_hafs, remove dkudiagnostic from satmed…
climbfuji Oct 17, 2020
c3105d8
Bugfix: remove dkudiagnostic from satmedmfvdifq.meta
climbfuji Oct 17, 2020
b7eff6b
Fix uninitialized variable mvd_r in physics/module_mp_thompson.F90
climbfuji Oct 20, 2020
390ec21
Fix calls to mcica_subcol_sw in radsw_main.F90
climbfuji Oct 20, 2020
e7b4531
physics/GFS_surface_composites.F90: update tsfc correctly when there …
climbfuji Nov 3, 2020
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
22 changes: 0 additions & 22 deletions CMakeLists.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -163,28 +163,6 @@ if (${CMAKE_Fortran_COMPILER_ID} STREQUAL "GNU")
elseif (${CMAKE_Fortran_COMPILER_ID} STREQUAL "Intel")
# Adjust settings for bit-for-bit reproducibility of NEMSfv3gfs
if (PROJECT STREQUAL "CCPP-FV3")
SET_SOURCE_FILES_PROPERTIES(${CMAKE_CURRENT_SOURCE_DIR}/physics/module_bfmicrophysics.f
${CMAKE_CURRENT_SOURCE_DIR}/physics/sflx.f
${CMAKE_CURRENT_SOURCE_DIR}/physics/sfc_diff.f
${CMAKE_CURRENT_SOURCE_DIR}/physics/sfc_diag.f
${CMAKE_CURRENT_SOURCE_DIR}/physics/module_nst_model.f90
${CMAKE_CURRENT_SOURCE_DIR}/physics/calpreciptype.f90
${CMAKE_CURRENT_SOURCE_DIR}/physics/mersenne_twister.f
${CMAKE_CURRENT_SOURCE_DIR}/physics/module_nst_water_prop.f90
${CMAKE_CURRENT_SOURCE_DIR}/physics/aer_cloud.F
${CMAKE_CURRENT_SOURCE_DIR}/physics/wv_saturation.F
${CMAKE_CURRENT_SOURCE_DIR}/physics/cldwat2m_micro.F
${CMAKE_CURRENT_SOURCE_DIR}/physics/surface_perturbation.F90
${CMAKE_CURRENT_SOURCE_DIR}/physics/radiation_aerosols.f
${CMAKE_CURRENT_SOURCE_DIR}/physics/cu_gf_deep.F90
${CMAKE_CURRENT_SOURCE_DIR}/physics/cu_gf_sh.F90
${CMAKE_CURRENT_SOURCE_DIR}/physics/module_bl_mynn.F90
${CMAKE_CURRENT_SOURCE_DIR}/physics/module_MYNNPBL_wrapper.F90
${CMAKE_CURRENT_SOURCE_DIR}/physics/module_MYNNSFC_wrapper.F90
${CMAKE_CURRENT_SOURCE_DIR}/physics/module_mp_thompson_make_number_concentrations.F90
${CMAKE_CURRENT_SOURCE_DIR}/physics/module_SF_JSFC.F90
${CMAKE_CURRENT_SOURCE_DIR}/physics/module_BL_MYJPBL.F90
PROPERTIES COMPILE_FLAGS "-r8 -ftz")
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Does this mean "-r8 -ftz" will not be applied to those files?

Copy link
Collaborator Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

These flags are redundant, they are set anyway by the build system.


if (${CMAKE_CURRENT_SOURCE_DIR}/physics/module_sf_mynn.F90 IN_LIST SCHEMES)
# Reduce optimization for module_sf_mynn.F90 (to avoid an apparent compiler bug with Intel 18 on Hera)
Expand Down
144 changes: 114 additions & 30 deletions physics/GFS_rrtmg_pre.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,7 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &
lmfdeep2, fhswr, fhlwr, solhr, sup, eps, epsm1, fvirt, &
rog, rocp, con_rd, xlat_d, xlat, xlon, coslat, sinlat, tsfc, slmsk, &
prsi, prsl, prslk, tgrs, sfc_wts, mg_cld, effrr_in, &
cnvw_in, cnvc_in, qgrs, aer_nm, & !inputs from here and above
cnvw_in, cnvc_in, qgrs, aer_nm, dx, icloud, & !inputs from here and above
coszen, coszdg, effrl_inout, effri_inout, effrs_inout, &
clouds1, clouds2, clouds3, clouds4, clouds5, & !in/out from here and above
kd, kt, kb, mtopa, mbota, raddt, tsfg, tsfa, de_lgth, alb1d, delp, dz, & !output from here and below
Expand All @@ -45,18 +45,25 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &
qme5, qme6, epsq, prsmin
use funcphys, only: fpvs

use module_radiation_astronomy,only: coszmn ! sol_init, sol_update
use module_radiation_gases, only: NF_VGAS, getgases, getozn ! gas_init, gas_update,
use module_radiation_aerosols, only: NF_AESW, NF_AELW, setaer, & ! aer_init, aer_update,
use module_radiation_astronomy,only: coszmn ! sol_init, sol_update
use module_radiation_gases, only: NF_VGAS, getgases, getozn ! gas_init, gas_update,
use module_radiation_aerosols, only: NF_AESW, NF_AELW, setaer, & ! aer_init, aer_update,
& NSPC1
use module_radiation_clouds, only: NF_CLDS, & ! cld_init
& progcld1, progcld3, &
& progcld2, &
& progcld4, progcld5, &
& progclduni
use module_radsw_parameters, only: topfsw_type, sfcfsw_type, &
use module_radiation_clouds, only: NF_CLDS, & ! cld_init
& progcld1, progcld3, &
& progcld2, &
& progcld4, progcld5, &
& progcld6, &
& progclduni, &
& cal_cldfra3, &
& find_cloudLayers, &
& adjust_cloudIce, &
& adjust_cloudH2O, &
& adjust_cloudFinal

use module_radsw_parameters, only: topfsw_type, sfcfsw_type, &
& profsw_type, NBDSW
use module_radlw_parameters, only: topflw_type, sfcflw_type, &
use module_radlw_parameters, only: topflw_type, sfcflw_type, &
& proflw_type, NBDLW
use surface_perturbation, only: cdfnor

Expand Down Expand Up @@ -84,7 +91,7 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &
imp_physics_zhao_carr_pdf, &
imp_physics_mg, imp_physics_wsm6, &
imp_physics_fer_hires, &
yearlen
yearlen, icloud

character(len=3), dimension(:), intent(in) :: lndp_var_list

Expand All @@ -97,7 +104,7 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &

real(kind=kind_phys), dimension(:), intent(in) :: xlat_d, xlat, xlon, &
coslat, sinlat, tsfc, &
slmsk
slmsk, dx

real(kind=kind_phys), dimension(:,:), intent(in) :: prsi, prsl, prslk, &
tgrs, sfc_wts, &
Expand Down Expand Up @@ -168,20 +175,23 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &

integer :: i, j, k, k1, k2, lsk, lv, n, itop, ibtc, LP1, lla, llb, lya,lyb

real(kind=kind_phys) :: es, qs, delt, tem0d, pfac
real(kind=kind_phys) :: es, qs, delt, tem0d, gridkm, pfac

real(kind=kind_phys), dimension(im) :: cvt1, cvb1, tem1d, tskn
real(kind=kind_phys), dimension(im) :: cvt1, cvb1, tem1d, tskn, xland

real(kind=kind_phys), dimension(im,lm+LTP) :: &
htswc, htlwc, gcice, grain, grime, htsw0, htlw0, &
rhly, tvly,qstl, vvel, clw, ciw, prslk1, tem2da, &
dzb, hzb, cldcov, deltaq, cnvc, cnvw, &
effrl, effri, effrr, effrs, rho, orho
effrl, effri, effrr, effrs, rho, orho, plyrpa

! for Thompson MP
real(kind=kind_phys), dimension(im,lm+LTP) :: &
re_cloud, re_ice, re_snow, qv_mp, qc_mp, &
qi_mp, qs_mp, nc_mp, ni_mp, nwfa

! for F-A MP
real(kind=kind_phys), dimension(im,lm+LTP) :: qc_save, qi_save, qs_save
real(kind=kind_phys), dimension(im,lm+LTP+1) :: tem2db, hz

real(kind=kind_phys), dimension(im,lm+LTP,min(4,ncnd)) :: ccnd
Expand All @@ -191,6 +201,10 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &
real(kind=kind_phys), dimension(im,lm+LTP,NBDSW,NF_AESW) :: faersw
real(kind=kind_phys), dimension(im,lm+LTP,NBDLW,NF_AELW) :: faerlw

integer :: ids, ide, jds, jde, kds, kde, &
ims, ime, jms, jme, kms, kme, &
its, ite, jts, jte, kts, kte

real(kind=kind_phys) :: qvs
!
!===> ... begin here
Expand Down Expand Up @@ -587,7 +601,7 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &
ccnd(i,k,1) = tracer1(i,k,ntcw) ! liquid water/ice
enddo
enddo
elseif (ncnd == 2) then ! MG or F-A
elseif (ncnd == 2) then ! MG
do k=1,LMK
do i=1,IM
ccnd(i,k,1) = tracer1(i,k,ntcw) ! liquid water
Expand All @@ -603,13 +617,17 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &
ccnd(i,k,4) = tracer1(i,k,ntsw) ! snow water
enddo
enddo
elseif (ncnd == 5) then ! GFDL MP, Thompson, MG3
elseif (ncnd == 5) then ! GFDL MP, Thompson, MG3, FA
do k=1,LMK
do i=1,IM
ccnd(i,k,1) = tracer1(i,k,ntcw) ! liquid water
ccnd(i,k,2) = tracer1(i,k,ntiw) ! ice water
ccnd(i,k,3) = tracer1(i,k,ntrw) ! rain water
ccnd(i,k,4) = tracer1(i,k,ntsw) + tracer1(i,k,ntgl) ! snow + graupel
if (imp_physics == imp_physics_fer_hires ) then
ccnd(i,k,4) = 0.0
else
ccnd(i,k,4) = tracer1(i,k,ntsw) + tracer1(i,k,ntgl) ! snow + graupel
endif
enddo
enddo
! for Thompson MP - prepare variables for calc_effr
Expand Down Expand Up @@ -827,6 +845,72 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &
enddo
endif

!mz HWRF physics: icloud=3
if(icloud == 3) then

! Set internal dimensions
ids = 1
ims = 1
its = 1
ide = size(xlon,1)
ime = size(xlon,1)
ite = size(xlon,1)
jds = 1
jms = 1
jts = 1
jde = 1
jme = 1
jte = 1
kds = 1
kms = 1
kts = 1
kde = lm+LTP ! should this be lmk instead of lm? no, or?
kme = lm+LTP
kte = lm+LTP

do k = 1, LMK
do i = 1, IM
rho(i,k)=plyr(i,k)*100./(con_rd*tlyr(i,k))
plyrpa(i,k)=plyr(i,k)*100. !hPa->Pa
end do
end do

do i=1,im
if (slmsk(i)==1. .or. slmsk(i)==2.) then ! sea/land/ice mask (=0/1/2) in FV3
xland(i)=1.0 ! but land/water = (1/2) in HWRF
else
xland(i)=2.0
endif
enddo

gridkm = sqrt(2.0)*sqrt(dx(1)*0.001*dx(1)*0.001)

do i =1, im
do k =1, lmk
qc_save(i,k) = ccnd(i,k,1)
qi_save(i,k) = ccnd(i,k,2)
qs_save(i,k) = ccnd(i,k,4)
enddo
enddo


call cal_cldfra3(cldcov,qlyr,ccnd(:,:,1),ccnd(:,:,2), &
ccnd(:,:,4),plyrpa,tlyr,rho,xland,gridkm, &
ids,ide,jds,jde,kds,kde, &
ims,ime,jms,jme,kms,kme, &
its,ite,jts,jte,kts,kte)

!mz* back to micro-only qc qi,qs
do i =1, im
do k =1, lmk
ccnd(i,k,1) = qc_save(i,k)
ccnd(i,k,2) = qi_save(i,k)
ccnd(i,k,4) = qs_save(i,k)
enddo
enddo

endif ! icloud == 3

if (lextop) then
do i=1,im
cldcov(i,lyb) = cldcov(i,lya)
Expand Down Expand Up @@ -900,22 +984,22 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &
! clouds, cldsa, mtopa, mbota, de_lgth, alpha) ! --- outputs
endif

elseif(imp_physics == imp_physics_wsm6 .or. imp_physics == imp_physics_fer_hires) then
elseif(imp_physics == imp_physics_fer_hires) then
if (kdt == 1) then
effrl_inout(:,:) = 10.
effri_inout(:,:) = 50.
effrs_inout(:,:) = 250.
endif

call progcld5 (plyr,plvl,tlyr,qlyr,qstl,rhly,tracer1, & ! --- inputs
xlat,xlon,slmsk,dz,delp, &
ntrac-1, ntcw-1,ntiw-1,ntrw-1, &
ntsw-1,ntgl-1, &
im, lmk, lmp, uni_cld, lmfshal, lmfdeep2, &
cldcov(:,1:LMK),effrl_inout(:,:), &
effri_inout(:,:), effrs_inout(:,:), &
dzb, xlat_d, julian, yearlen, &
clouds,cldsa,mtopa,mbota, de_lgth, alpha) ! --- outputs
call progcld5 (plyr,plvl,tlyr,tvly,qlyr,qstl,rhly,tracer1, & ! --- inputs
xlat,xlon,slmsk,dz,delp, &
ntrac-1, ntcw-1,ntiw-1,ntrw-1, &
!mz ntsw-1,ntgl-1, &
im, lmk, lmp, icloud, uni_cld, lmfshal, lmfdeep2, &
cldcov(:,1:LMK),effrl_inout(:,:), &
effri_inout(:,:), effrs_inout(:,:), &
dzb, xlat_d, julian, yearlen, &
clouds,cldsa,mtopa,mbota, de_lgth, alpha) ! --- outputs

elseif(imp_physics == imp_physics_thompson) then ! Thompson MP

Expand All @@ -939,7 +1023,7 @@ subroutine GFS_rrtmg_pre_run (im, levs, lm, lmk, lmp, n_var_lndp, &

else
! MYNN PBL or GF convective are not used
call progcld5 (plyr,plvl,tlyr,qlyr,qstl,rhly,tracer1, & ! --- inputs
call progcld6 (plyr,plvl,tlyr,qlyr,qstl,rhly,tracer1, & ! --- inputs
xlat,xlon,slmsk,dz,delp, &
ntrac-1, ntcw-1,ntiw-1,ntrw-1, &
ntsw-1,ntgl-1, &
Expand Down
17 changes: 17 additions & 0 deletions physics/GFS_rrtmg_pre.meta
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -671,6 +671,23 @@
kind = kind_phys
intent = in
optional = F
[dx]
standard_name = cell_size
long_name = relative dx for the grid cell
units = m
dimensions = (horizontal_loop_extent)
type = real
kind = kind_phys
intent = in
optional = F
[icloud]
standard_name = cloud_effect_to_optical_depth_and_cloud_fraction
long_name = cloud effect to the optical depth and cloud fraction in radiation
units = flag
dimensions = ()
type = integer
intent = in
optional = F
[coszen]
standard_name = cosine_of_zenith_angle
long_name = mean cos of zenith angle over rad call period
Expand Down
3 changes: 2 additions & 1 deletion physics/GFS_rrtmg_setup.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -136,6 +136,7 @@ subroutine GFS_rrtmg_setup_init ( &
! =1: max/ran overlapping clouds !
! =2: maximum overlap clouds (mcica only) !
! =3: decorrelation-length overlap (mcica only) !
! =4: exponential overlap clouds
! isubc_sw/isubc_lw: sub-column cloud approx control flag (sw/lw rad) !
! =0: with out sub-column cloud approximation !
! =1: mcica sub-col approx. prescribed random seed !
Expand Down Expand Up @@ -303,7 +304,7 @@ subroutine GFS_rrtmg_setup_init ( &

call radinit &
! --- inputs:
& ( si, levr, imp_physics, me )
& ( si, levr, imp_physics, me )
! --- outputs:
! ( none )

Expand Down
10 changes: 5 additions & 5 deletions physics/GFS_rrtmg_setup.meta
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
[ccpp-table-properties]
name = GFS_rrtmg_setup
type = scheme
dependencies = iounitdef.f,module_bfmicrophysics.f,physparam.f,radcons.f90,radiation_aerosols.f,radiation_astronomy.f,radiation_clouds.f,radiation_gases.f,radiation_surface.f,radlw_main.f,radlw_param.f,radsw_main.f,radsw_param.f
dependencies = iounitdef.f,module_bfmicrophysics.f,physparam.f,radcons.f90,radiation_aerosols.f,radiation_astronomy.f,radiation_clouds.f,radiation_gases.f,radiation_surface.f,radlw_main.F90,radlw_param.f,radsw_main.F90,radsw_param.f

########################################################################
[ccpp-arg-table]
Expand Down Expand Up @@ -129,16 +129,16 @@
intent = in
optional = F
[isubc_sw]
standard_name = flag_for_sw_clouds_without_sub_grid_approximation
long_name = flag for sw clouds without sub-grid approximation
standard_name = flag_for_sw_clouds_grid_approximation
long_name = flag for sw clouds sub-grid approximation
units = flag
dimensions = ()
type = integer
intent = in
optional = F
[isubc_lw]
standard_name = flag_for_lw_clouds_without_sub_grid_approximation
long_name = flag for lw clouds without sub-grid approximation
standard_name = flag_for_lw_clouds_sub_grid_approximation
long_name = flag for lw clouds sub-grid approximation
units = flag
dimensions = ()
type = integer
Expand Down
8 changes: 4 additions & 4 deletions physics/GFS_rrtmgp_setup.meta
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -177,16 +177,16 @@
intent = in
optional = F
[isubc_sw]
standard_name = flag_for_sw_clouds_without_sub_grid_approximation
long_name = flag for sw clouds without sub-grid approximation
standard_name = flag_for_sw_clouds_grid_approximation
long_name = flag for sw clouds sub-grid approximation
units = flag
dimensions = ()
type = integer
intent = in
optional = F
[isubc_lw]
standard_name = flag_for_lw_clouds_without_sub_grid_approximation
long_name = flag for lw clouds without sub-grid approximation
standard_name = flag_for_lw_clouds_sub_grid_approximation
long_name = flag for lw clouds sub-grid approximation
units = flag
dimensions = ()
type = integer
Expand Down
Loading