Skip to content

Move sfc emis alb calculation to its own scheme and z0 composite consistent #627

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

Merged
climbfuji merged 57 commits into from
May 27, 2021
Merged

Move sfc emis alb calculation to its own scheme and z0 composite consistent #627

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
57 commits
Select commit Hold shift + click to select a range
756f2cf
Consistent use of emissivity and albedo between RUC LSM and the
tanyasmirnova Mar 26, 2021
67ddbbd
Merged Moorthi's changes for fractional grid in setemis.
tanyasmirnova Mar 26, 2021
25611d7
Step forward towards fractional albedo and emissivity in the LSM option.
tanyasmirnova Mar 30, 2021
25f789f
Merge pull request #83 from climbfuji/update_gsl_develop_from_master_…
DomHeinzeller Apr 1, 2021
21df401
Fix CODEOWNERS
climbfuji Apr 1, 2021
ed7db4d
Added initialization of 4 albedo components over land and ice to
tanyasmirnova Apr 5, 2021
ad1ad67
Change intent from out to inout for albedo.
tanyasmirnova Apr 5, 2021
ea0c6f0
Fixed problems with the initialization of albedo and emissivity.
tanyasmirnova Apr 8, 2021
b7cbcce
Merge branch 'gsl/develop' of https://github.com/NOAA-GSL/ccpp-physic…
tanyasmirnova Apr 8, 2021
d4531cd
Added the code to compute land, water and ice fractions when
tanyasmirnova Apr 9, 2021
e140651
Adding composite changes on top of Tanya's changes
Apr 12, 2021
efcc07c
Merge branch 'bwg_frac_emiss_albedo' of https://github.com/benwgreen/…
climbfuji Apr 13, 2021
e871573
Move calculation of surface albedo/emissivity out of rrtmg(p) pre sch…
climbfuji Apr 15, 2021
c4e0873
Add initialization of water vapor mixing ratio at the surface to
tanyasmirnova Apr 16, 2021
cbbafc5
Bug fix in the composite for ialb=2 option.
tanyasmirnova Apr 16, 2021
8367123
Move call to 'stability' for composites from sfc_diff to GFS_surface_…
climbfuji Apr 19, 2021
823f6ed
Merge branch 'master' of https://github.com/NCAR/ccpp-physics into mo…
climbfuji Apr 19, 2021
ff766e5
Fix merge conflicts
climbfuji Apr 19, 2021
1a2d365
Bugfix in physics/GFS_phys_time_vary.fv3.F90: remove old variables fr…
climbfuji Apr 19, 2021
a6ade33
physics/GFS_surface_composites.F90: move computation of cmm and chh a…
climbfuji Apr 19, 2021
d83c1a1
Add fractional code to ialb=1 option used with the Noah LSM.
tanyasmirnova Apr 19, 2021
21c87c4
Address reviewer comments
climbfuji Apr 19, 2021
7525515
Merge branch 'move_sfc_emis_alb_calculation_to_its_own_scheme_and_z0_…
climbfuji Apr 19, 2021
4f4be0e
Fix bugs in latest ialbflg==1 code, provide CPP option to switch betw…
climbfuji Apr 19, 2021
0119e95
Small bug fixes and changes in comments in setalb for ialb=1 or 2.
tanyasmirnova Apr 21, 2021
11daddb
Removed t1 from lsm_ruc_init. Some clean-up.
tanyasmirnova Apr 21, 2021
0fc7b40
Merge pull request #9 from tanyasmirnova/move_sfc_emis_alb_calculatio…
climbfuji Apr 22, 2021
2ed6a7c
Add missing dependency to physics/GFS_surface_composites.meta
climbfuji Apr 26, 2021
b51c5b3
Removing GSD_SURFACE_FLUXES_BUGFIX and replacing with flag thsfc_loc
Apr 26, 2021
b6d0ede
Bugfix
Apr 26, 2021
986211f
Merge pull request #10 from benwgreen/thsfc_loc2
climbfuji Apr 26, 2021
d2100a4
Add missing variables to physics/GFS_surface_composites.*
climbfuji Apr 26, 2021
45849a9
Only do 4th call to stability if multiple surface types exist
Apr 28, 2021
1477edd
Merge pull request #11 from benwgreen/composite_bugfix
climbfuji Apr 28, 2021
5be81f1
Merge branch 'move_sfc_emis_alb_calculation_to_its_own_scheme_and_z0_…
tanyasmirnova Apr 28, 2021
5da36fc
Removed interstitial variable from lsm_ruc_init.
tanyasmirnova Apr 28, 2021
a46ae1a
Merge pull request #12 from tanyasmirnova/move_sfc_emis_alb_calculati…
climbfuji Apr 28, 2021
55b4733
Merge branch 'master' of https://github.com/NCAR/ccpp-physics into mo…
climbfuji May 12, 2021
d224b13
Added option for ice on lakes.
tanyasmirnova May 13, 2021
c31b1ba
Merge pull request #13 from tanyasmirnova/move_sfc_emis_alb_calculati…
climbfuji May 14, 2021
e0b1eb6
Return earlier from physics/GFS_radiation_surface.F90 if sw/lw radiat…
climbfuji May 14, 2021
0918b56
physics/GFS_radiation_surface.*: do not reset alb/emis to zero when l…
climbfuji May 14, 2021
79739c7
physics/GFS_phys_time_vary.fv3.*: bug fix, do not initialize sfcalb/s…
climbfuji May 15, 2021
ec07fc0
Updates and bugfixes in physics/GFS_debug.F90
climbfuji May 17, 2021
f1e2db9
Bug fix in physics/sfc_drv_ruc.* to get b4b reproducible results in r…
climbfuji May 17, 2021
1a8a1bf
Remove option to revert to old iemis=1/ialb=1 calculation in physics/…
climbfuji May 18, 2021
c661a57
Bug fix in physics/GFS_phys_time_vary.fv3.meta: use correct horizonta…
climbfuji May 18, 2021
60b873f
Merge branch 'main' of https://github.com/NCAR/ccpp-physics into move…
climbfuji May 18, 2021
329364b
copy GFS_phys_time_vary.fv3.F90/meta changes over to SCM versions
grantfirl May 18, 2021
7468bf8
Merge branch 'move_sfc_emis_alb_calculation_to_its_own_scheme_and_z0_…
grantfirl May 18, 2021
a20fc32
Merge pull request #14 from grantfirl/move_sfc_emis_alb_calculation_t…
climbfuji May 18, 2021
38f28a2
Update metadata for ztmax variables
climbfuji May 18, 2021
c3375bb
Removed SNET. Net sloar radiation is computed from the incoming SW and
tanyasmirnova May 25, 2021
01bb2d5
Merge pull request #15 from tanyasmirnova/move_sfc_emis_alb_calculati…
climbfuji May 25, 2021
0a8aa3a
Add timestep_init andd timestep_final versions of GFS_diagtoscreen an…
climbfuji May 25, 2021
a6df017
Merge branch 'main' of https://github.com/NCAR/ccpp-physics into move…
climbfuji May 25, 2021
0350697
Bug fixes in several metadata files: use horizontal_dimension in _ini…
climbfuji May 26, 2021
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
113 changes: 105 additions & 8 deletions physics/GFS_debug.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -307,7 +307,7 @@ module GFS_diagtoscreen

private

public GFS_diagtoscreen_init, GFS_diagtoscreen_run, GFS_diagtoscreen_finalize
public GFS_diagtoscreen_init, GFS_diagtoscreen_timestep_init, GFS_diagtoscreen_run, GFS_diagtoscreen_finalize

contains

Expand Down Expand Up @@ -344,6 +344,39 @@ subroutine GFS_diagtoscreen_init (Model, Data, Interstitial, errmsg, errflg)

end subroutine GFS_diagtoscreen_init

!> \section arg_table_GFS_diagtoscreen_timestep_init Argument Table
!! \htmlinclude GFS_diagtoscreen_timestep_init.html
!!
subroutine GFS_diagtoscreen_timestep_init (Model, Data, Interstitial, errmsg, errflg)

use GFS_typedefs, only: GFS_control_type, GFS_data_type, &
GFS_interstitial_type

implicit none

!--- interface variables
type(GFS_control_type), intent(in) :: Model
type(GFS_data_type), intent(in) :: Data(:)
type(GFS_interstitial_type), intent(in) :: Interstitial(:)
character(len=*), intent(out) :: errmsg
integer, intent(out) :: errflg

!--- local variables
integer :: i

! Initialize CCPP error handling variables
errmsg = ''
errflg = 0

do i=1,size(Data)
call GFS_diagtoscreen_run (Model, Data(i)%Statein, Data(i)%Stateout, Data(i)%Sfcprop, &
Data(i)%Coupling, Data(i)%Grid, Data(i)%Tbd, Data(i)%Cldprop, &
Data(i)%Radtend, Data(i)%Intdiag, Interstitial(1), &
size(Interstitial), i, errmsg, errflg)
end do

end subroutine GFS_diagtoscreen_timestep_init

subroutine GFS_diagtoscreen_finalize ()
end subroutine GFS_diagtoscreen_finalize

Expand Down Expand Up @@ -507,6 +540,26 @@ subroutine GFS_diagtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling,
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%snowfallac_land', Sfcprop%snowfallac_land)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%snowfallac_ice', Sfcprop%snowfallac_ice)
end if
! Revised surface albedo and emissivity calculation
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%emis_lnd', Sfcprop%emis_lnd)
! NoahMP and RUC
if (Model%lsm == Model%lsm_ruc .or. Model%lsm == Model%lsm_noahmp) then
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%albdvis_lnd', Sfcprop%albdvis_lnd)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%albdnir_lnd', Sfcprop%albdnir_lnd)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%albivis_lnd', Sfcprop%albivis_lnd)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%albinir_lnd', Sfcprop%albinir_lnd)
end if
! RUC only
if (Model%lsm == Model%lsm_ruc) then
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%emis_ice', Sfcprop%emis_ice)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%albdvis_ice', Sfcprop%albdvis_ice)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%albdnir_ice', Sfcprop%albdnir_ice)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%albivis_ice', Sfcprop%albivis_ice)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%albinir_ice', Sfcprop%albinir_ice)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%sfalb_lnd', Sfcprop%sfalb_lnd)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%sfalb_ice', Sfcprop%sfalb_ice)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Sfcprop%sfalb_lnd_bck', Sfcprop%sfalb_lnd_bck)
end if
! Radtend
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Radtend%sfcfsw%upfxc', Radtend%sfcfsw(:)%upfxc)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Radtend%sfcfsw%dnfxc', Radtend%sfcfsw(:)%dnfxc)
Expand Down Expand Up @@ -835,6 +888,13 @@ subroutine GFS_diagtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling,
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Coupling%nwfa2d', Coupling%nwfa2d)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Coupling%nifa2d', Coupling%nifa2d)
end if
if (Model%do_RRTMGP) then
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Coupling%fluxlwUP_jac', Coupling%fluxlwUP_jac)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Coupling%fluxlwUP_allsky', Coupling%fluxlwUP_allsky)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Coupling%fluxlwDOWN_allsky', Coupling%fluxlwDOWN_allsky)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Coupling%htrlw', Coupling%htrlw)
end if
!
! Grid
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%xlon ', Grid%xlon )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%xlat ', Grid%xlat )
Expand All @@ -843,17 +903,17 @@ subroutine GFS_diagtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling,
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%coslat', Grid%coslat)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%area ', Grid%area )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%dx ', Grid%dx )
if (Model%ntoz > 0) then
if (Model%kdt>0 .and. Model%ntoz>0) then
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%ddy_o3 ', Grid%ddy_o3 )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%jindx1_o3', Grid%jindx1_o3)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%jindx2_o3', Grid%jindx2_o3)
endif
if (Model%h2o_phys) then
if (Model%kdt>0 .and. Model%h2o_phys) then
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%ddy_h ', Grid%ddy_h )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%jindx1_h', Grid%jindx1_h)
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%jindx2_h', Grid%jindx2_h)
endif
if (Model%do_ugwp_v1) then
if (Model%kdt>0 .and. Model%do_ugwp_v1) then
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%ddy_j1tau ', Grid%ddy_j1tau )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%ddy_j2tau ', Grid%ddy_j2tau )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Grid%jindx1_tau', Grid%jindx1_tau )
Expand Down Expand Up @@ -889,10 +949,13 @@ module GFS_interstitialtoscreen

private

public GFS_interstitialtoscreen_init, GFS_interstitialtoscreen_run, GFS_interstitialtoscreen_finalize
public GFS_interstitialtoscreen_init, GFS_interstitialtoscreen_timestep_init, GFS_interstitialtoscreen_run, GFS_interstitialtoscreen_finalize

contains

!> \section arg_table_GFS_interstitialtoscreen_init Argument Table
!! \htmlinclude GFS_interstitialtoscreen_init.html
!!
subroutine GFS_interstitialtoscreen_init (Model, Data, Interstitial, errmsg, errflg)

use GFS_typedefs, only: GFS_control_type, GFS_data_type, &
Expand Down Expand Up @@ -924,6 +987,40 @@ subroutine GFS_interstitialtoscreen_init (Model, Data, Interstitial, errmsg, err

end subroutine GFS_interstitialtoscreen_init

!> \section arg_table_GFS_interstitialtoscreen_timestep_init Argument Table
!! \htmlinclude GFS_interstitialtoscreen_timestep_init.html
!!
subroutine GFS_interstitialtoscreen_timestep_init (Model, Data, Interstitial, errmsg, errflg)

use GFS_typedefs, only: GFS_control_type, GFS_data_type, &
GFS_interstitial_type

implicit none

!--- interface variables
type(GFS_control_type), intent(in) :: Model
type(GFS_data_type), intent(in) :: Data(:)
type(GFS_interstitial_type), intent(in) :: Interstitial(:)
character(len=*), intent(out) :: errmsg
integer, intent(out) :: errflg

!--- local variables
integer :: i

! Initialize CCPP error handling variables
errmsg = ''
errflg = 0


do i=1,size(Interstitial)
call GFS_interstitialtoscreen_run (Model, Data(1)%Statein, Data(1)%Stateout, Data(1)%Sfcprop, &
Data(1)%Coupling, Data(1)%Grid, Data(1)%Tbd, Data(1)%Cldprop, &
Data(1)%Radtend, Data(1)%Intdiag, Interstitial(i), &
size(Interstitial), -999, errmsg, errflg)
end do

end subroutine GFS_interstitialtoscreen_timestep_init

subroutine GFS_interstitialtoscreen_finalize ()
end subroutine GFS_interstitialtoscreen_finalize

Expand Down Expand Up @@ -1233,7 +1330,6 @@ subroutine GFS_interstitialtoscreen_run (Model, Statein, Stateout, Sfcprop, Coup
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tsfc_land ', Interstitial%tsfc_land )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tsfc_water ', Interstitial%tsfc_water )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tsfg ', Interstitial%tsfg )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tsurf ', Interstitial%tsurf )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tsurf_ice ', Interstitial%tsurf_ice )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tsurf_land ', Interstitial%tsurf_land )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tsurf_water ', Interstitial%tsurf_water )
Expand All @@ -1257,6 +1353,9 @@ subroutine GFS_interstitialtoscreen_run (Model, Statein, Stateout, Sfcprop, Coup
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%xmu ', Interstitial%xmu )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%z01d ', Interstitial%z01d )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%zt1d ', Interstitial%zt1d )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%ztmax_ice ', Interstitial%ztmax_ice )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%ztmax_land ', Interstitial%ztmax_land )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%ztmax_water ', Interstitial%ztmax_water )
! UGWP
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tau_mtb ', Interstitial%tau_mtb )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%tau_ogw ', Interstitial%tau_ogw )
Expand Down Expand Up @@ -1345,8 +1444,6 @@ subroutine GFS_interstitialtoscreen_run (Model, Statein, Stateout, Sfcprop, Coup
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%precip_frac ', Interstitial%precip_frac )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%icseed_lw ', Interstitial%icseed_lw )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%icseed_sw ', Interstitial%icseed_sw )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%fluxlwUP_allsky ', Interstitial%fluxlwUP_allsky )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%fluxlwDOWN_allsky ', Interstitial%fluxlwDOWN_allsky )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%fluxlwUP_clrsky ', Interstitial%fluxlwUP_clrsky )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%fluxlwDOWN_clrsky ', Interstitial%fluxlwDOWN_clrsky )
call print_var(mpirank, omprank, blkno, Grid%xlat_d, Grid%xlon_d, 'Interstitial%fluxswUP_allsky ', Interstitial%fluxswUP_allsky )
Expand Down
92 changes: 92 additions & 0 deletions physics/GFS_debug.meta
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -49,6 +49,52 @@
intent = out
optional = F

########################################################################
[ccpp-arg-table]
name = GFS_diagtoscreen_timestep_init
type = scheme
[Model]
standard_name = GFS_control_type_instance
long_name = instance of derived type GFS_control_type in FV3
units = DDT
dimensions = ()
type = GFS_control_type
intent = in
optional = F
[Data]
standard_name = GFS_data_type_instance_all_blocks
long_name = instance of derived type GFS_data_type
units = DDT
dimensions = (ccpp_block_count)
type = GFS_data_type
intent = in
optional = F
[Interstitial]
standard_name = GFS_interstitial_type_instance_all_threads
long_name = instance of derived type GFS_interstitial_type
units = DDT
dimensions = (omp_threads)
type = GFS_interstitial_type
intent = in
optional = F
[errmsg]
standard_name = ccpp_error_message
long_name = error message for error handling in CCPP
units = none
dimensions = ()
type = character
kind = len=*
intent = out
optional = F
[errflg]
standard_name = ccpp_error_flag
long_name = error flag for error handling in CCPP
units = flag
dimensions = ()
type = integer
intent = out
optional = F

########################################################################
[ccpp-arg-table]
name = GFS_diagtoscreen_run
Expand Down Expand Up @@ -227,6 +273,52 @@
intent = out
optional = F

########################################################################
[ccpp-arg-table]
name = GFS_interstitialtoscreen_timestep_init
type = scheme
[Model]
standard_name = GFS_control_type_instance
long_name = instance of derived type GFS_control_type in FV3
units = DDT
dimensions = ()
type = GFS_control_type
intent = in
optional = F
[Data]
standard_name = GFS_data_type_instance_all_blocks
long_name = instance of derived type GFS_data_type
units = DDT
dimensions = (ccpp_block_count)
type = GFS_data_type
intent = in
optional = F
[Interstitial]
standard_name = GFS_interstitial_type_instance_all_threads
long_name = instance of derived type GFS_interstitial_type
units = DDT
dimensions = (omp_threads)
type = GFS_interstitial_type
intent = in
optional = F
[errmsg]
standard_name = ccpp_error_message
long_name = error message for error handling in CCPP
units = none
dimensions = ()
type = character
kind = len=*
intent = out
optional = F
[errflg]
standard_name = ccpp_error_flag
long_name = error flag for error handling in CCPP
units = flag
dimensions = ()
type = integer
intent = out
optional = F

########################################################################
[ccpp-arg-table]
name = GFS_interstitialtoscreen_run
Expand Down
Loading