Fix cloud_area_fraction conflict

ESCOMP · Jan 6, 2025 · c33eb21 · c33eb21
1 parent 85a1096
commit c33eb21
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 13 deletions.
diff --git a/src/data/registry.xml b/src/data/registry.xml
@@ -533,6 +533,7 @@
               units="fraction" type="real" kind="kind_phys"
               allocatable="allocatable">
       <dimensions>horizontal_dimension vertical_layer_dimension</dimensions>
+      <initial_value>0.7_kind_phys</initial_value>
       <ic_file_input_names>CLD pbuf_CLD</ic_file_input_names>
     </variable>
     <variable local_name="domomtran"

diff --git a/src/physics/utils/musica_ccpp_dependencies.F90 b/src/physics/utils/musica_ccpp_dependencies.F90
@@ -29,7 +29,6 @@ module musica_ccpp_dependencies
   real(kind_phys), allocatable, public, protected :: extraterrestrial_radiation_flux(:)
   real(kind_phys), allocatable, public, protected :: surface_albedo(:)
   real(kind_phys), allocatable, public, protected :: blackbody_temperature_at_surface(:)
-  real(kind_phys), allocatable, public, protected :: cloud_area_fraction(:,:)
 
   ! local parameters
   character(len=*), parameter :: module_name = '(musica_ccpp_dependencies)'
@@ -77,14 +76,9 @@ subroutine musica_ccpp_dependencies_init(horizontal_dimension, &
     call check_allocate(error_code, subroutine_name, &
                         'blackbody_temperature_at_surface(horizontal_dimension)', &
                         file=__FILE__, line=__LINE__)
-    allocate(cloud_area_fraction(horizontal_dimension, vertical_layer_dimension), stat=error_code)
-    call check_allocate(error_code, subroutine_name, &
-                        'cloud_area_fraction(horizontal_dimension, vertical_layer_dimension)', &
-                        file=__FILE__, line=__LINE__)
 
     surface_albedo(:) = 0.1_kind_phys
     blackbody_temperature_at_surface(:) = 292.3_kind_phys
-    cloud_area_fraction(:,:) = 0.7_kind_phys
     extraterrestrial_radiation_flux(:) = 1.0e14_kind_phys
     photolysis_wavelength_grid_interfaces = (/ &
       120.0e-9_kind_phys, &
@@ -194,4 +188,4 @@ subroutine musica_ccpp_dependencies_init(horizontal_dimension, &
 
   end subroutine musica_ccpp_dependencies_init
 
-end module musica_ccpp_dependencies
+end module musica_ccpp_dependencies
diff --git a/src/physics/utils/musica_ccpp_dependencies.meta b/src/physics/utils/musica_ccpp_dependencies.meta
@@ -40,9 +40,3 @@
   units = K
   dimensions = (horizontal_dimension)
   protected = True
-[ cloud_area_fraction ]
-  standard_name = cloud_area_fraction
-  type = real | kind = kind_phys
-  units = fraction
-  dimensions = (horizontal_dimension,vertical_layer_dimension)
-  protected = True