Changeset 2867 for LMDZ5/trunk/libf

Timestamp:

Apr 27, 2017, 9:58:41 AM (8 years ago)

Author:

idelkadi

Message:

Correction d'erreur sur les diagnostiques parasol.

File:

• LMDZ5/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90 (modified) (2 diffs)

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

@@ -182 +182 @@
       CALL histwrite3d_cosp(o_cfad_lidarsr532,stlidar%cfad_sr(:,icl,:),nvert,icl)
    enddo
-     CALL histwrite3d_cosp(o_parasol_refl,stlidar%parasolrefl,nvertp)
-#endif
-
+#endif
+
+   CALL histwrite3d_cosp(o_parasol_refl,stlidar%parasolrefl,nvertp)
    do k=1,PARASOL_NREFL
     do ip=1, Npoints
-     if (stlidar%cldlayer(ip,4).gt.0.01) then
+     if (stlidar%cldlayer(ip,4).gt.0.01.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
        parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)))/ &
                             stlidar%cldlayer(ip,4)
@@ -196 +196 @@
      endif
     enddo
+   
    enddo
    CALL histwrite3d_cosp(o_Ncrefl,Ncref,nvertp)