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

Legend:

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

    r3358 r3397  
    197197    do k=1,PARASOL_NREFL
    198198     do ip=1, Npoints
    199       if (stlidar%cldlayer(ip,4).gt.0.01.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
    200         parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)))/ &
    201                              stlidar%cldlayer(ip,4)
     199      if (stlidar%cldlayer(ip,4).gt.1.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
     200        parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-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.