Changeset 3398 for LMDZ6/trunk/libf/phylmd/cosp2

Timestamp:

Sep 27, 2018, 7:18:49 PM (6 years ago)

Author:

idelkadi

Message:

Correction d'erreur sur le calcul du diagnostique parasol_crefl

File:

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

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

@@ -199 +199 @@
       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.
+                             (stlidar%cldlayer(ip,4)/100.)
          Ncref(ip,k) = 1.
       else