Skip to content

Commit a158fe8

Browse files
committed
add declarations in GFS_surface_composites_post.F90
1 parent 1105017 commit a158fe8

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_surface_composites_post.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -39,7 +39,7 @@ subroutine GFS_surface_composites_post_run (
3939

4040
integer, intent(in) :: im, kice, km, lkm, iopt_lake, iopt_lake_clm
4141
logical, intent(in) :: cplflx, frac_grid, cplwav2atm, frac_ice, cpl_fire
42-
logical, intent(in) :: lheatstrg
42+
logical, intent(in) :: lheatstrg, use_cdeps_data
4343
logical, dimension(:), intent(in) :: flag_cice, dry, icy
4444
logical, dimension(:), intent(in) :: wet
4545
integer, dimension(:), intent(in) :: islmsk, use_lake_model
@@ -51,7 +51,7 @@ subroutine GFS_surface_composites_post_run (
5151
snowd_lnd, snowd_ice, tprcp_wat, tprcp_lnd, tprcp_ice, evap_wat, evap_lnd, evap_ice, hflx_wat, hflx_lnd, &
5252
hflx_ice, qss_wat, qss_lnd, qss_ice, tsfc_wat, zorlo, zorll, zorli, garea
5353

54-
real(kind=kind_phys), dimension(:), intent(in), optional :: hflx_fire, evap_fire
54+
real(kind=kind_phys), dimension(:), intent(in), optional :: hflx_fire, evap_fire, mask_dat
5555
real(kind=kind_phys), dimension(:), intent(inout) :: zorl, cd, cdq, rb, stress, ffmm, ffhh, uustar, fm10, &
5656
fh2, cmm, chh, gflx, ep1d, weasd, snowd, tprcp, evap, hflx, qss, tsfc, tsfco, tsfcl, tisfc
5757

0 commit comments

Comments
 (0)