- Timestamp:
- Dec 6, 2022, 12:01:16 AM (22 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/ecrad/radiation_ifs_rrtm.F90
r3908 r4368 97 97 ! can compute UV and photosynthetically active radiation for a 98 98 ! particular wavelength range 99 if (.not.allocated(config%wavenumber1_sw)) then100 99 allocate(config%wavenumber1_sw(config%n_bands_sw)) 101 end if102 if (.not.allocated(config%wavenumber2_sw)) then103 100 allocate(config%wavenumber2_sw(config%n_bands_sw)) 104 end if105 if (.not.allocated(config%wavenumber1_lw)) then106 101 allocate(config%wavenumber1_lw(config%n_bands_lw)) 107 end if108 if (.not.allocated(config%wavenumber2_lw)) then109 102 allocate(config%wavenumber2_lw(config%n_bands_lw)) 110 end if111 103 config%wavenumber1_lw = (/ 10, 350, 500, 630, 700, 820, 980, 1080, 1180, 1390, 1480, & 112 104 & 1800, 2080, 2250, 2380, 2600 /) … … 117 109 config%wavenumber2_sw = (/ 3250, 4000, 4650, 5150, 6150, 7700, 8050, 12850, 16000, & 118 110 & 22650, 29000, 38000, 50000, 2600 /) 119 120 if (.not.allocated(config%i_band_from_g_sw)) then 111 print*,'allocate dans ifs_rrtm' 121 112 allocate(config%i_band_from_g_sw (config%n_g_sw)) 122 end if123 if (.not.allocated(config%i_band_from_g_lw)) then124 113 allocate(config%i_band_from_g_lw (config%n_g_lw)) 125 end if126 if (.not.allocated(config%i_band_from_reordered_g_sw)) then127 114 allocate(config%i_band_from_reordered_g_sw(config%n_g_sw)) 128 end if129 if (.not.allocated(config%i_band_from_reordered_g_lw)) then130 115 allocate(config%i_band_from_reordered_g_lw(config%n_g_lw)) 131 end if132 if (.not.allocated(config%i_g_from_reordered_g_sw)) then133 116 allocate(config%i_g_from_reordered_g_sw(config%n_g_sw)) 134 end if135 if (.not.allocated(config%i_g_from_reordered_g_lw)) then136 117 allocate(config%i_g_from_reordered_g_lw(config%n_g_lw)) 137 end if138 118 139 119 ! Shortwave starts at 16: need to start at 1
Note: See TracChangeset
for help on using the changeset viewer.