Changeset 6019 for branches/ORCHIDEE_2_2


Ignore:
Timestamp:
2019-06-13T12:59:38+02:00 (6 years ago)
Author:
josefine.ghattas
Message:

As done on the trunk [6018]

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/diffuco.f90

    r5805 r6019  
    747747       !! \endlatexonly 
    748748       !! 
    749        q_cdrag(ji) = MAX(cd_tmp, 1.e-4/MAX(speed,min_wind)) 
     749       q_cdrag(ji) = MAX(cd_tmp, min_qc/MAX(speed,min_wind)) 
    750750 
    751751       ! In some situations it might be useful to give an upper limit on the cdrag as well.  
Note: See TracChangeset for help on using the changeset viewer.