Changeset 2447 for LMDZ5/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90

Timestamp:

Feb 16, 2016, 1:53:19 PM (8 years ago)

Author:

idelkadi

Message:

Rajout des sorties pour les simulateurs MISR er CLOUDSAT.

File:

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

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

@@ -209 +209 @@
                            stradar%lidar_only_freq_cloud = 0.0
    CALL histwrite3d_cosp(o_clcalipso2,stradar%lidar_only_freq_cloud,nvert)
+   where(stradar%radar_lidar_tcc == R_UNDEF) &
+                           stradar%radar_lidar_tcc = 0.0 
+   CALL histwrite2d_cosp(o_cltlidarradar,stradar%radar_lidar_tcc)
  endif