Changeset 2560 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jun 10, 2016, 1:32:40 PM (8 years ago)

Author:

idelkadi

Message:

Correction pour les champs de sortie MODIS.

File:

• LMDZ5/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90

@@ -322 +322 @@
     if(modis%Cloud_Particle_Size_Water_Mean(ip).eq.R_UNDEF)then
        modis%Cloud_Particle_Size_Water_Mean(ip)=Cosp_fill_value
+    endif
+    if(modis%Cloud_Particle_Size_Ice_Mean(ip).eq.R_UNDEF)then
+       modis%Cloud_Particle_Size_Ice_Mean(ip)=Cosp_fill_value
     endif
     if(modis%Cloud_Top_Pressure_Total_Mean(ip).eq.R_UNDEF)then