Changeset 6019


Ignore:
Timestamp:
06/13/19 12:59:38 (3 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.