Changeset 4570 for LMDZ6/trunk/libf/phylmd/ecrad/setup_config_from_lmdz.F90
- Timestamp:
- Jun 13, 2023, 8:58:55 PM (15 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ecrad/setup_config_from_lmdz.F90
r4543 r4570 8 8 9 9 type driver_config_type 10 logical :: ok_effective_size = .true. 11 logical :: ok_separation = .false. 10 12 real(jprb) :: high_inv_effective_size = -1.0_jprb ! m-1 11 13 real(jprb) :: middle_inv_effective_size = -1.0_jprb ! m-1 12 14 real(jprb) :: low_inv_effective_size = -1.0_jprb ! m-1 13 real(jprb) :: cloud_inhom_separation_factor = 1.0_jprb15 real(jprb) :: cloud_inhom_separation_factor = -1.0_jprb 14 16 real(jprb) :: cloud_separation_scale_surface = -1.0_jprb 15 17 real(jprb) :: cloud_separation_scale_toa = -1.0_jprb … … 34 36 character(*), intent(in) :: file_name 35 37 logical, intent(out), optional :: is_success 36 integer :: iosopen ! Status after calling open 38 logical :: ok_effective_size, ok_separation 39 integer :: iosopen ! Status after calling open 37 40 real(jprb) :: high_inv_effective_size 38 41 real(jprb) :: middle_inv_effective_size … … 45 48 real(jprb) :: overlap_decorr_length 46 49 47 namelist /radiation_driver/ frac_std, overlap_decorr_length, & 50 namelist /radiation_driver/ ok_effective_size, ok_separation, & 51 & frac_std, overlap_decorr_length, & 48 52 & high_inv_effective_size, middle_inv_effective_size, low_inv_effective_size, & 49 53 & cloud_inhom_separation_factor, cloud_separation_scale_surface, & 50 54 & cloud_separation_scale_toa, cloud_separation_scale_power 55 56 ok_effective_size = .false. 57 ok_separation = .false. 58 high_inv_effective_size = -1.0_jprb 59 middle_inv_effective_size = -1.0_jprb 60 low_inv_effective_size = -1.0_jprb 61 cloud_inhom_separation_factor = -1.0_jprb 62 cloud_separation_scale_surface = -1.0_jprb 63 cloud_separation_scale_toa = -1.0_jprb 64 cloud_separation_scale_power = -1.0_jprb 65 frac_std = 0.75_jprb 66 overlap_decorr_length = 2000.0_jprb 51 67 52 68 ! Open the namelist file and read the radiation_driver namelist … … 72 88 73 89 ! Copy namelist data into configuration object 90 this%ok_effective_size = ok_effective_size 91 this%ok_separation = ok_separation 74 92 this%frac_std = frac_std 75 93 this%overlap_decorr_length = overlap_decorr_length
Note: See TracChangeset
for help on using the changeset viewer.