Changeset 3397

Timestamp:

Sep 27, 2018, 1:35:32 PM (6 years ago)

Author:

idelkadi

Message:

Correction de diagnostique (reflectance parasol calcule en fonction de la fraction nuageuse totale Cltcalipso)

File:

• LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_write_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_write_mod.F90

@@ -197 +197 @@
     do k=1,PARASOL_NREFL
      do ip=1, Npoints
-      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)
+      if (stlidar%cldlayer(ip,4).gt.1.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
+        parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)/100.))/ &
+                             stlidar%cldlayer(ip,4)/100.
          Ncref(ip,k) = 1.
       else