Changeset 3398 for LMDZ6/trunk/libf


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_write_mod.F90

    r3397 r3398  
    199199      if (stlidar%cldlayer(ip,4).gt.1.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
    200200        parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)/100.))/ &
    201                              stlidar%cldlayer(ip,4)/100.
     201                             (stlidar%cldlayer(ip,4)/100.)
    202202         Ncref(ip,k) = 1.
    203203      else
Note: See TracChangeset for help on using the changeset viewer.