Changeset 3184 for LMDZ6/trunk/libf/phylmd/cosp/cosp_simulator.F90

Timestamp:

Feb 5, 2018, 6:58:44 PM (7 years ago)

Author:

idelkadi

Message:

Correction de bogue dans le simulateur Modis (mise a jour dans la version Cosp v1.4.2)

File:

• LMDZ6/trunk/libf/phylmd/cosp/cosp_simulator.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/cosp/cosp_simulator.F90

@@ -205 +205 @@
                                                       modis%Optical_Thickness_vs_Cloud_Top_Pressure*100.0
   endif
+  if (cfg%Lcrimodis) then
+     where(modis%Optical_Thickness_vs_ReffICE /= R_UNDEF) modis%Optical_Thickness_vs_ReffICE = &
+                                                      modis%Optical_Thickness_vs_ReffICE*100.0
+  endif
+  if (cfg%Lcrlmodis) then
+     where(modis%Optical_Thickness_vs_ReffLIQ /= R_UNDEF) modis%Optical_Thickness_vs_ReffLIQ = &
+                                                      modis%Optical_Thickness_vs_ReffLIQ*100.0
+  endif
+
   if (cfg%Lcltmodis) then
     where(modis%Cloud_Fraction_Total_Mean /= R_UNDEF) modis%Cloud_Fraction_Total_Mean = modis%Cloud_Fraction_Total_Mean*100.0