Skip to content

Commit

Permalink
make 3 soil variables optional
Browse files Browse the repository at this point in the history
  • Loading branch information
HelinWei-NOAA committed Aug 5, 2024
1 parent 608bde4 commit 907649c
Show file tree
Hide file tree
Showing 4 changed files with 21 additions and 9 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -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(:)
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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
Expand All @@ -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
Expand All @@ -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
Expand Down
12 changes: 6 additions & 6 deletions physics/SFC_Models/Land/Noahmp/noahmpdrv.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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]
Expand Down
6 changes: 6 additions & 0 deletions physics/SFC_Models/Land/Noahmp/noahmpdrv.meta
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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
Expand All @@ -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
Expand All @@ -833,6 +838,7 @@
type = real
kind = kind_phys
intent = inout
optional = True
[canopy]
standard_name = canopy_water_amount
long_name = canopy water amount
Expand Down

0 comments on commit 907649c

Please sign in to comment.