Changeset 4115 for LMDZ6/trunk/libf/phylmd/ecrad/radiation_ifs_rrtm.F90

Timestamp:

Mar 29, 2022, 10:50:19 AM (2 years ago)

Author:

idelkadi

Message:

Implementation of Ecrad in LMDZ (continued) :

• Switch to the first call only in the configuration and initializations part of Ecrad
• Added instructions for parallelization
• Initializations

File:

• LMDZ6/trunk/libf/phylmd/ecrad/radiation_ifs_rrtm.F90 (modified) (2 diffs)

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

@@ -97 +97 @@
     ! can compute UV and photosynthetically active radiation for a
     ! particular wavelength range
-   if (.not.allocated(config%wavenumber1_sw)) then
     allocate(config%wavenumber1_sw(config%n_bands_sw))
-   end if
-   if (.not.allocated(config%wavenumber2_sw)) then
     allocate(config%wavenumber2_sw(config%n_bands_sw))
-   end if
-   if (.not.allocated(config%wavenumber1_lw)) then
     allocate(config%wavenumber1_lw(config%n_bands_lw))
-   end if
-   if (.not.allocated(config%wavenumber2_lw)) then
     allocate(config%wavenumber2_lw(config%n_bands_lw))
-   end if
     config%wavenumber1_lw = (/ 10, 350, 500, 630, 700, 820, 980, 1080, 1180, 1390, 1480, &
          &  1800, 2080, 2250, 2380, 2600 /)
@@ -117 +109 @@
     config%wavenumber2_sw = (/ 3250, 4000, 4650, 5150, 6150, 7700, 8050, 12850, 16000, &
          &  22650, 29000, 38000, 50000, 2600 /)
-
-   if (.not.allocated(config%i_band_from_g_sw)) then
+    print*,'allocate dans ifs_rrtm'
     allocate(config%i_band_from_g_sw          (config%n_g_sw))
-   end if
-   if (.not.allocated(config%i_band_from_g_lw)) then
     allocate(config%i_band_from_g_lw          (config%n_g_lw))
-   end if
-   if (.not.allocated(config%i_band_from_reordered_g_sw)) then
     allocate(config%i_band_from_reordered_g_sw(config%n_g_sw))
-   end if
-   if (.not.allocated(config%i_band_from_reordered_g_lw)) then
     allocate(config%i_band_from_reordered_g_lw(config%n_g_lw))
-   end if
-   if (.not.allocated(config%i_g_from_reordered_g_sw)) then
     allocate(config%i_g_from_reordered_g_sw(config%n_g_sw))
-   end if
-   if (.not.allocated(config%i_g_from_reordered_g_lw)) then
     allocate(config%i_g_from_reordered_g_lw(config%n_g_lw))
-   end if
 
     ! Shortwave starts at 16: need to start at 1