Changeset 2886 for LMDZ5/branches/testing/libf/phylmd/cosp/cosp_output_write_mod.F90

Timestamp:

May 20, 2017, 9:41:16 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2865:2885 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/cosp/cosp_output_write_mod.F90 (modified) (2 diffs)

LMDZ5/branches/testing/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)