Changeset 2960 for trunk/LMDZ.GENERIC/libf

Timestamp:

May 8, 2023, 5:34:05 PM (20 months ago)

Author:

emillour

Message:

Generic PCM:
Minor follow-up to r2957, since H2O aerosol variance is uniform in space
and time, no need to compute or print its min/max at each radiative time step.
EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

@@ -472 +472 @@
             end if
 
-            call planetwide_maxval(nueffrad(:,:,iaero_h2o),maxvalue)
-            call planetwide_minval(nueffrad(:,:,iaero_h2o),minvalue)
-            if (is_master) then
-               print*,'Max. H2O cloud particle variance = ',maxvalue
-               print*,'Min. H2O cloud particle variance = ',minvalue
-            end if
+! Currently the variance is constant everywhere (see h2o_reffrad),
+! so no need to compute and print min/max
+!            call planetwide_maxval(nueffrad(:,:,iaero_h2o),maxvalue)
+!            call planetwide_minval(nueffrad(:,:,iaero_h2o),minvalue)
+!            if (is_master) then
+!               print*,'Max. H2O cloud particle variance = ',maxvalue
+!               print*,'Min. H2O cloud particle variance = ',minvalue
+!            end if
          endif