- Timestamp:
- Apr 19, 2024, 11:12:57 AM (4 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ecrad/lmdz/setup_config_from_lmdz.F90
r4853 r4911 19 19 real(jprb) :: frac_std = 0.75_jprb 20 20 real(jprb) :: overlap_decorr_length = 2000.0_jprb 21 21 ! KDECOLAT : 0 > cste, 1 > Shonk et al. (2010) 2 > 1 lisse a l'equateur 22 ! 3 : 1+variation sur la verticale 23 ! 4 : 2+variation sur la verticale 24 integer :: kdecolat = 0 25 real(jprb) :: low_decorrelation_length = 2000.0_jprb 26 real(jprb) :: mid_decorrelation_length = 2000.0_jprb 27 real(jprb) :: high_decorrelation_length = 2000.0_jprb 22 28 23 29 contains … … 47 53 real(jprb) :: frac_std 48 54 real(jprb) :: overlap_decorr_length 55 integer :: kdecolat 56 real(jprb) :: low_decorrelation_length 57 real(jprb) :: mid_decorrelation_length 58 real(jprb) :: high_decorrelation_length 49 59 50 60 namelist /radiation_driver/ ok_effective_size, ok_separation, & 51 & frac_std, overlap_decorr_length, & 61 & frac_std, overlap_decorr_length, kdecolat, & 62 & low_decorrelation_length, mid_decorrelation_length, high_decorrelation_length, & 52 63 & high_inv_effective_size, middle_inv_effective_size, low_inv_effective_size, & 53 64 & cloud_inhom_separation_factor, cloud_separation_scale_surface, & … … 65 76 frac_std = 0.75_jprb 66 77 overlap_decorr_length = 2000.0_jprb 78 kdecolat = 0 79 low_decorrelation_length = 2000.0_jprb 80 mid_decorrelation_length = 2000.0_jprb 81 high_decorrelation_length = 2000.0_jprb 67 82 68 83 ! Open the namelist file and read the radiation_driver namelist … … 92 107 this%frac_std = frac_std 93 108 this%overlap_decorr_length = overlap_decorr_length 109 this%kdecolat = kdecolat 110 this%low_decorrelation_length = low_decorrelation_length 111 this%mid_decorrelation_length = mid_decorrelation_length 112 this%high_decorrelation_length = high_decorrelation_length 94 113 this%cloud_inhom_separation_factor = cloud_inhom_separation_factor 95 114 this%cloud_separation_scale_surface = cloud_separation_scale_surface
Note: See TracChangeset
for help on using the changeset viewer.