fix surface data

uturuncoglu · Jul 15, 2024 · e8d9b89 · e8d9b89
1 parent 2f3d5ff
commit e8d9b89
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 5 deletions.
diff --git a/physics/SFC_Models/Data/sfc_data.F b/physics/SFC_Models/Data/sfc_data.F
@@ -78,8 +78,8 @@ subroutine sfc_data_run                                           &
       integer, intent(in) :: im
       logical, intent(in) :: use_data 
       logical, intent(in) :: thsfc_loc
-      real (kind=kind_phys), dimension(:), intent(in) :: mask_dat,      &
-     & hice_dat, fice_dat, tice_dat, tsfco_dat
+      real (kind=kind_phys), dimension(:), intent(in), optional ::      &
+     & mask_dat, fice_dat, hice_dat, tsfco_dat, tice_dat
       real (kind=kind_phys), dimension(:), intent(in) :: q1, t1, prslki,&
      & prslk1, prsik1, prsl1, ps, cm, ch, wind
       real (kind=kind_phys), intent(in) :: cp, eps, epsm1, hvap, rd,    &
@@ -88,8 +88,8 @@ subroutine sfc_data_run                                           &
 !  ---  input/outputs:
       real (kind=kind_phys), dimension(:), intent(inout) :: hice, fice, &
      & tice, tsfc_wat
-      integer, intent(in) :: naux2d
-      real(kind_phys), intent(inout) :: aux2d(:,:)
+      integer, intent(in), optional :: naux2d
+      real(kind_phys), intent(inout), optional :: aux2d(:,:)
 
 !  ---  outputs:
       real (kind=kind_phys), dimension(:), intent(inout) :: cmm, chh,   &

diff --git a/physics/SFC_Models/Data/sfc_data.meta b/physics/SFC_Models/Data/sfc_data.meta
@@ -2,7 +2,7 @@
 [ccpp-table-properties]
   name = sfc_data 
   type = scheme
-  dependencies = machine.F
+  dependencies = ../../tools/funcphys.f90,../../hooks/machine.F
 
 ########################################################################
 [ccpp-arg-table]
@@ -30,6 +30,7 @@
   type = real
   kind = kind_phys
   intent = in
+  optional = True
 [mask_dat]
   standard_name = land_sea_mask_from_data
   long_name = landmask
@@ -38,6 +39,7 @@
   type = real
   kind = kind_phys
   intent = in
+  optional = True
 [tice_dat]
   standard_name = surface_skin_temperature_over_ice_from_data
   long_name = surface skin temperature over ice
@@ -46,6 +48,7 @@
   type = real
   kind = kind_phys
   intent = in
+  optional = True
 [hice_dat]
   standard_name = sea_ice_thickness_from_data
   long_name = sea-ice thickness
@@ -54,6 +57,7 @@
   type = real
   kind = kind_phys
   intent = in
+  optional = True
 [fice_dat]
   standard_name = sea_ice_area_fraction_of_sea_area_fraction_from_data
   long_name = sea-ice concentration [0,1]
@@ -62,6 +66,7 @@
   type = real
   kind = kind_phys
   intent = in
+  optional = True
 [hvap]
   standard_name = latent_heat_of_vaporization_of_water_at_0C
   long_name = latent heat of evaporation/sublimation
@@ -323,6 +328,7 @@
   dimensions = ()
   type = integer
   intent = in
+  optional = True
 [aux2d]
   standard_name = auxiliary_2d_arrays
   long_name = auxiliary 2d arrays to output (for debugging)
@@ -331,3 +337,4 @@
   type = real
   kind = kind_phys
   intent = out
+  optional = True