Changeset 4011

Timestamp:

Jan 14, 2026, 9:12:12 PM (3 days ago)

Author:

aslmd

Message:

MESOSCALE: some write_output commands in co2cloud that are not used in mesoscale.

File:

• trunk/LMDZ.MARS/libf/phymars/co2cloud.F90 (modified) (4 diffs)

trunk/LMDZ.MARS/libf/phymars/co2cloud.F90

@@ -109 +109 @@
   use improvedCO2clouds_mod, only: improvedCO2clouds
   use microphys_h, only: nbinco2_cld, rad_cldco2, mco2
+#ifndef MESOSCALE
   use write_output_mod, only: write_output
+#endif
   use callkeys_mod, only: sedimentation, CLFvaryingCO2, co2useh2o, &
                           satindexco2, meteo_flux
@@ -494 +496 @@
       end do
 
+#ifndef MESOSCALE
       ! Write outputs in diagfi.nc
       call write_output( "SatIndex", "SatIndex", " ", SatIndex(:,:))
 
       call write_output( "SatIndexmap", "SatIndexmap", "km", SatIndexmap(:))
+#endif
     !------------------------------------------------------------------------------------------------------------------!
     ! if saturation index co2 is false, set saturation index to 0.05
@@ -1182 +1186 @@
     end do
   end do
+#ifndef MESOSCALE
 !----------------------------------------------------------------------------------------------------------------------!
 ! 11. Write outputs in diagfi.nc
@@ -1202 +1207 @@
     call write_output( "co2cloudfrac", "co2 cloud fraction", " ", co2cloudfrac(:,:))
   end if
+#endif
 !======================================================================================================================!
 ! END =================================================================================================================!