Changeset 3599 for trunk/LMDZ.COMMON/libf/evolution/read_data_PCM_mod.F90

Timestamp:

Jan 23, 2025, 4:28:27 PM (15 hours ago)

Author:

jbclement

Message:

PEM:
Few small optimizations.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/read_data_PCM_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/read_data_PCM_mod.F90

@@ -102 +102 @@
         write(num,'(i2.2)') islope
         call get_var3("co2ice_slope"//num,co2_ice_slope_dyn(:,:,islope,:))
-    enddo
-    write(*,*) "Data for co2_ice downloaded."
-
-    do islope = 1,nslope
-        write(num,'(i2.2)') islope
+        write(*,*) "Data for co2_ice_slope"//num//" downloaded."
         call get_var3("h2o_ice_s_slope"//num,h2o_ice_s_dyn(:,:,islope,:))
-    enddo
-    write(*,*) "Data for h2o_ice_s downloaded."
-
-    do islope = 1,nslope
-        write(num,'(i2.2)') islope
+        write(*,*) "Data for h2o_ice_s_slope"//num//" downloaded."
         call get_var3("tsurf_slope"//num,tsurf_dyn(:,:,islope,:))
-    enddo
-    write(*,*) "Data for tsurf downloaded."
-
+        write(*,*) "Data for tsurf_slope"//num//" downloaded."
 #ifndef CPP_STD
-    do islope = 1,nslope
-        write(num,'(i2.2)') islope
         call get_var3("watercap_slope"//num,watercap(:,:,islope,:))
-    enddo
-    write(*,*) "Data for watercap downloaded."
-
-    do islope = 1,nslope
-        write(num,'(i2.2)') islope
+        write(*,*) "Data for watercap_slope"//num//" downloaded."
         call get_var3("perennial_co2ice_slope"//num,perennial_co2ice(:,:,islope,:))
-    enddo
-    write(*,*) "Data for perennial_co2ice downloaded."
-#endif
+        write(*,*) "Data for perennial_co2ice_slope"//num//" downloaded."
+#endif
+    enddo
 endif
 
@@ -209 +193 @@
         write(num,'(i2.2)') islope
         call get_var3("co2ice_slope"//num,co2_ice_slope_dyn(:,:,islope,:))
-    enddo
-    write(*,*) "Data for co2_ice downloaded."
-
-    do islope = 1,nslope
-        write(num,'(i2.2)') islope
+        write(*,*) "Data for co2_ice_slope"//num//" downloaded."
         call get_var3("h2o_ice_s_slope"//num,h2o_ice_s_dyn(:,:,islope,:))
-    enddo
-    write(*,*) "Data for h2o_ice_s downloaded."
-
-    do islope = 1,nslope
-        write(num,'(i2.2)') islope
+        write(*,*) "Data for h2o_ice_s_slope"//num//" downloaded."
         call get_var3("tsurf_slope"//num,tsurf_dyn(:,:,islope,:))
-    enddo
-    write(*,*) "Data for tsurf downloaded."
-
+        write(*,*) "Data for tsurf_slope"//num//" downloaded."
 #ifndef CPP_STD
-    do islope = 1,nslope
-        write(num,'(i2.2)') islope
         call get_var3("watercap_slope"//num,watercap(:,:,islope,:))
-    enddo
-    write(*,*) "Data for watercap downloaded."
-
-    do islope = 1,nslope
-        write(num,'(i2.2)') islope
+        write(*,*) "Data for watercap_slope"//num//" downloaded."
         call get_var3("perennial_co2ice_slope"//num,perennial_co2ice(:,:,islope,:))
-    enddo
-    write(*,*) "Data for perennial_co2ice downloaded."
-
-    if (soil_pem) then
-        do islope = 1,nslope
-            write(num,'(i2.2)') islope
+        write(*,*) "Data for perennial_co2ice_slope"//num//" downloaded."
+        if (soil_pem) then
             call get_var4("soiltemp_slope"//num,tsoil_dyn(:,:,:,islope,:))
-        enddo
-        write(*,*) "Data for soiltemp downloaded."
-
-        do islope = 1,nslope
-            write(num,'(i2.2)') islope
+            write(*,*) "Data for soiltemp_slope"//num//" downloaded."
             call get_var4("waterdensity_soil_slope"//num,watersoil_density_dyn(:,:,:,islope,:))
-        enddo
-        write(*,*) "Data for waterdensity_soil downloaded."
-
-        do islope = 1,nslope
-            write(num,'(i2.2)') islope
+            write(*,*) "Data for waterdensity_soil_slope"//num//" downloaded."
             call get_var3("waterdensity_surface"//num,watersurf_density_dyn(:,:,islope,:))
-        enddo
-        write(*,*) "Data for waterdensity_surface downloaded."
-    endif !soil_pem
-#endif
+            write(*,*) "Data for waterdensity_surface_slope"//num//" downloaded."
+        endif
+#endif
+    enddo
 endif