Changeset 6074 for LMDZ6/trunk/libf

Timestamp:

Feb 10, 2026, 2:00:50 PM (10 days ago)

Author:

idelkadi

Message:

Correction to MODIS simulator output diagnostics

File:

• LMDZ6/trunk/libf/phylmd/cospv2/lmdz/lmdz_cosp_output_write_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/cospv2/lmdz/lmdz_cosp_output_write_mod.F90

@@ -564 +564 @@
 
    CALL histwrite2d_cosp(o_misr_meanztop,cospOUT%misr_meanztop) 
-   CALL histwrite2d_cosp(o_misr_cldarea,cospOUT%misr_cldarea) 
+   CALL histwrite2d_cosp(o_misr_cldarea,cospOUT%misr_cldarea*100.) 
   endif ! LclMISR
 
  endif ! Misr
-
 
 !!! Modis simulator
@@ -617 +616 @@
     CALL histwrite2d_cosp(o_tauimodis,cospOUT%modis_Optical_Thickness_Ice_Mean)
   endif
-  if (cfg%Ltautlogmodis) then
+  if (cfg%Lreffclwmodis) then
     where(cospOUT%modis_Cloud_Particle_Size_Water_Mean == R_UNDEF) &
         cospOUT%modis_Cloud_Particle_Size_Water_Mean = missing_val
-    CALL histwrite2d_cosp(o_tautlogmodis,cospOUT%modis_Optical_Thickness_Total_LogMean)
+    CALL histwrite2d_cosp(o_reffclwmodis,cospOUT%modis_Cloud_Particle_Size_Water_Mean)
   endif 
-  if (cfg%Ltauwlogmodis) then
+  if (cfg%Lreffclimodis) then
     where(cospOUT%modis_Cloud_Particle_Size_Ice_Mean == R_UNDEF) &
         cospOUT%modis_Cloud_Particle_Size_Ice_Mean = missing_val
-    CALL histwrite2d_cosp(o_tauwlogmodis,cospOUT%modis_Optical_Thickness_Water_LogMean)
+    CALL histwrite2d_cosp(o_reffclimodis,cospOUT%modis_Cloud_Particle_Size_Ice_Mean)
   endif
   if (cfg%Ltauilogmodis) then
+    where(cospOUT%modis_Optical_Thickness_Ice_LogMean == R_UNDEF) &
+        cospOUT%modis_Optical_Thickness_Ice_LogMean = missing_val
+    CALL histwrite2d_cosp(o_tauilogmodis,cospOUT%modis_Optical_Thickness_Ice_LogMean)
+  endif
+  if (cfg%Ltauwlogmodis) then
+    where(cospOUT%modis_Optical_Thickness_Water_LogMean == R_UNDEF) &
+        cospOUT%modis_Optical_Thickness_Water_LogMean = missing_val
+    CALL histwrite2d_cosp(o_lwpmodis,cospOUT%modis_Optical_Thickness_Water_LogMean)
+  endif
+  if (cfg%Ltautlogmodis) then 
+    where(cospOUT%modis_Optical_Thickness_Total_LogMean == R_UNDEF) &
+        cospOUT%modis_Optical_Thickness_Total_LogMean = missing_val
+    CALL histwrite2d_cosp(o_iwpmodis,cospOUT%modis_Optical_Thickness_Total_LogMean)
+  endif
+  if (cfg%Lpctmodis) then
     where(cospOUT%modis_Cloud_Top_Pressure_Total_Mean == R_UNDEF) &
         cospOUT%modis_Cloud_Top_Pressure_Total_Mean = missing_val
-    CALL histwrite2d_cosp(o_tauilogmodis,cospOUT%modis_Optical_Thickness_Ice_LogMean)
-  endif
-  if (cfg%Lreffclwmodis) then
+    CALL histwrite2d_cosp(o_pctmodis,cospOUT%modis_Cloud_Top_Pressure_Total_Mean)
+  endif  
+  if (cfg%Llwpmodis) then
     where(cospOUT%modis_Liquid_Water_Path_Mean == R_UNDEF) &
         cospOUT%modis_Liquid_Water_Path_Mean = missing_val
     CALL histwrite2d_cosp(o_lwpmodis,cospOUT%modis_Liquid_Water_Path_Mean)
   endif
-  if (cfg%Lreffclimodis) then 
+  if (cfg%Liwpmodis) then
     where(cospOUT%modis_Ice_Water_Path_Mean == R_UNDEF) &
         cospOUT%modis_Ice_Water_Path_Mean = missing_val
     CALL histwrite2d_cosp(o_iwpmodis,cospOUT%modis_Ice_Water_Path_Mean)
   endif
-
   if (cfg%Lclmodis) then
 ! Ces 3 diagnostics sont controles par la clef logique "Lclmodis"
-    where(cospOUT%modis_Optical_Thickness_vs_Cloud_Top_Pressure == R_UNDEF) &
-          cospOUT%modis_Optical_Thickness_vs_Cloud_Top_Pressure = missing_val
-
 !AI attention plantage pour ces 2 champs Modis 
 ! Valeurs Nan, champs non initialises 
@@ -680 +690 @@
    !endif
 
+    where(cospOUT%modis_Optical_Thickness_vs_Cloud_Top_Pressure == R_UNDEF) &
+          cospOUT%modis_Optical_Thickness_vs_Cloud_Top_Pressure = missing_val
     where(cospOUT%modis_Optical_Thickness_vs_ReffICE == R_UNDEF) &
           cospOUT%modis_Optical_Thickness_vs_ReffICE = missing_val