Changeset 4570 for LMDZ6/trunk/libf/phylmd/ecrad/setup_config_from_lmdz.F90

Timestamp:

Jun 13, 2023, 8:58:55 PM (15 months ago)

Author:

idelkadi

Message:

Ecrad version update in LMDZ (SPARTACUS solver)

File:

• LMDZ6/trunk/libf/phylmd/ecrad/setup_config_from_lmdz.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/ecrad/setup_config_from_lmdz.F90

@@ -8 +8 @@
 
   type driver_config_type
+     logical    :: ok_effective_size  = .true.
+     logical    :: ok_separation = .false.   
      real(jprb) :: high_inv_effective_size   = -1.0_jprb ! m-1
      real(jprb) :: middle_inv_effective_size = -1.0_jprb ! m-1
      real(jprb) :: low_inv_effective_size    = -1.0_jprb ! m-1
-     real(jprb) :: cloud_inhom_separation_factor  = 1.0_jprb
+     real(jprb) :: cloud_inhom_separation_factor  = -1.0_jprb
      real(jprb) :: cloud_separation_scale_surface = -1.0_jprb
      real(jprb) :: cloud_separation_scale_toa     = -1.0_jprb
@@ -34 +36 @@
     character(*), intent(in)          :: file_name
     logical, intent(out), optional    :: is_success
-    integer :: iosopen ! Status after calling open
+    logical    :: ok_effective_size, ok_separation
+    integer    :: iosopen ! Status after calling open
     real(jprb) :: high_inv_effective_size 
     real(jprb) :: middle_inv_effective_size
@@ -45 +48 @@
     real(jprb) :: overlap_decorr_length
 
-    namelist /radiation_driver/ frac_std, overlap_decorr_length, &
+    namelist /radiation_driver/ ok_effective_size, ok_separation, &
+         &  frac_std, overlap_decorr_length, &
          &  high_inv_effective_size, middle_inv_effective_size, low_inv_effective_size, &
          &  cloud_inhom_separation_factor, cloud_separation_scale_surface, &
          &  cloud_separation_scale_toa, cloud_separation_scale_power 
+
+    ok_effective_size = .false.
+    ok_separation = .false.
+    high_inv_effective_size   = -1.0_jprb 
+    middle_inv_effective_size = -1.0_jprb 
+    low_inv_effective_size    = -1.0_jprb 
+    cloud_inhom_separation_factor  = -1.0_jprb
+    cloud_separation_scale_surface = -1.0_jprb
+    cloud_separation_scale_toa     = -1.0_jprb
+    cloud_separation_scale_power   = -1.0_jprb
+    frac_std = 0.75_jprb
+    overlap_decorr_length = 2000.0_jprb
 
     ! Open the namelist file and read the radiation_driver namelist
@@ -72 +88 @@
 
     ! Copy namelist data into configuration object
+    this%ok_effective_size = ok_effective_size 
+    this%ok_separation = ok_separation
     this%frac_std = frac_std
     this%overlap_decorr_length = overlap_decorr_length