diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 index 742abd029..2e4f7b070 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.F90 @@ -182,9 +182,9 @@ subroutine GFS_phys_time_vary_init ( real(kind_phys), intent(inout), optional :: tsnoxy (:,lsnow_lsm_lbound:) real(kind_phys), intent(inout), optional :: smoiseq(:,:) real(kind_phys), intent(inout), optional :: zsnsoxy(:,lsnow_lsm_lbound:) - real(kind_phys), intent(inout) :: sh2o(:,:) - real(kind_phys), intent(inout) :: smois(:,:) - real(kind_phys), intent(inout) :: tslb(:,:) + real(kind_phys), intent(inout), optional :: sh2o(:,:) + real(kind_phys), intent(inout), optional :: smois(:,:) + real(kind_phys), intent(inout), optional :: tslb(:,:) real(kind_phys), intent(in) :: tsfcl(:) real(kind_phys), intent(in) :: snowd(:) real(kind_phys), intent(in) :: canopy(:) diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.meta b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.meta index 3b5033cbd..23887b5c9 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.meta +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.fv3.meta @@ -885,6 +885,7 @@ type = real kind = kind_phys intent = inout + optional = True [smois] standard_name = volume_fraction_of_soil_moisture_for_land_surface_model long_name = volumetric fraction of soil moisture for lsm @@ -893,6 +894,7 @@ type = real kind = kind_phys intent = inout + optional = True [tslb] standard_name = soil_temperature_for_land_surface_model long_name = soil temperature for land surface model @@ -901,6 +903,7 @@ type = real kind = kind_phys intent = inout + optional = True [tsfcl] standard_name = surface_skin_temperature_over_land long_name = surface skin temperature over land @@ -1674,6 +1677,7 @@ type = real kind = kind_phys intent = inout + optional = True [sh2o] standard_name = volume_fraction_of_unfrozen_soil_moisture_for_land_surface_model long_name = volume fraction of unfrozen soil moisture for lsm @@ -1682,6 +1686,7 @@ type = real kind = kind_phys intent = inout + optional = True [tslb] standard_name = soil_temperature_for_land_surface_model long_name = soil temperature for land surface model @@ -1690,6 +1695,7 @@ type = real kind = kind_phys intent = inout + optional = True [tiice] standard_name = temperature_in_ice_layer long_name = sea ice internal temperature diff --git a/physics/SFC_Models/Land/Noahmp/noahmpdrv.F90 b/physics/SFC_Models/Land/Noahmp/noahmpdrv.F90 index 2d1fe921f..18d8645c1 100644 --- a/physics/SFC_Models/Land/Noahmp/noahmpdrv.F90 +++ b/physics/SFC_Models/Land/Noahmp/noahmpdrv.F90 @@ -61,9 +61,9 @@ subroutine noahmpdrv_init(im, lsm, lsm_noahmp, me, isot, ivegsrc, & real (kind=kind_phys), dimension(:,:), intent(in) :: slc real (kind=kind_phys), dimension(:,:), intent(in) :: stc - real (kind=kind_phys), dimension(:,:), intent(inout) :: smois - real (kind=kind_phys), dimension(:,:), intent(inout) :: sh2o - real (kind=kind_phys), dimension(:,:), intent(inout) :: tslb + real (kind=kind_phys), dimension(:,:), intent(inout), optional :: smois + real (kind=kind_phys), dimension(:,:), intent(inout), optional :: sh2o + real (kind=kind_phys), dimension(:,:), intent(inout), optional :: tslb logical, intent(in) :: do_mynnsfclay logical, intent(in) :: do_mynnedmf @@ -383,9 +383,9 @@ subroutine noahmpdrv_run & real(kind=kind_phys), dimension(:) , intent(inout) :: tskin ! ground surface skin temperature [K] real(kind=kind_phys), dimension(:) , intent(inout) :: tprcp ! total precipitation [m] real(kind=kind_phys), dimension(:) , intent(inout) :: srflag ! snow/rain flag for precipitation - real(kind=kind_phys), dimension(:,:) , intent(inout) :: smois ! total soil moisture content [m3/m3] - real(kind=kind_phys), dimension(:,:) , intent(inout) :: tslb ! soil temp [K] - real(kind=kind_phys), dimension(:,:) , intent(inout) :: sh2o ! liquid soil moisture [m3/m3] + real(kind=kind_phys), dimension(:,:) , intent(inout), optional :: smois ! total soil moisture content [m3/m3] + real(kind=kind_phys), dimension(:,:) , intent(inout), optional :: tslb ! soil temp [K] + real(kind=kind_phys), dimension(:,:) , intent(inout), optional :: sh2o ! liquid soil moisture [m3/m3] real(kind=kind_phys), dimension(:) , intent(inout) :: canopy ! canopy moisture content [mm] real(kind=kind_phys), dimension(:) , intent(inout) :: trans ! total plant transpiration [m/s] real(kind=kind_phys), dimension(:) , intent(inout) :: tsurf ! surface skin temperature [K] diff --git a/physics/SFC_Models/Land/Noahmp/noahmpdrv.meta b/physics/SFC_Models/Land/Noahmp/noahmpdrv.meta index 38bc1ed48..57544c293 100644 --- a/physics/SFC_Models/Land/Noahmp/noahmpdrv.meta +++ b/physics/SFC_Models/Land/Noahmp/noahmpdrv.meta @@ -150,6 +150,7 @@ type = real kind = kind_phys intent = inout + optional = True [sh2o] standard_name = volume_fraction_of_unfrozen_soil_moisture_for_land_surface_model long_name = volume fraction of unfrozen soil moisture for lsm @@ -158,6 +159,7 @@ type = real kind = kind_phys intent = inout + optional = True [tslb] standard_name = soil_temperature_for_land_surface_model long_name = soil temperature for land surface model @@ -166,6 +168,7 @@ type = real kind = kind_phys intent = inout + optional = True [do_mynnsfclay] standard_name = flag_for_mellor_yamada_nakanishi_niino_surface_layer_scheme long_name = flag to activate MYNN surface layer @@ -817,6 +820,7 @@ type = real kind = kind_phys intent = inout + optional = True [tslb] standard_name = soil_temperature_for_land_surface_model long_name = soil temperature for land surface model @@ -825,6 +829,7 @@ type = real kind = kind_phys intent = inout + optional = True [sh2o] standard_name = volume_fraction_of_unfrozen_soil_moisture_for_land_surface_model long_name = volume fraction of unfrozen soil moisture for lsm @@ -833,6 +838,7 @@ type = real kind = kind_phys intent = inout + optional = True [canopy] standard_name = canopy_water_amount long_name = canopy water amount