Ignore:
Timestamp:
May 15, 2015, 6:06:07 PM (9 years ago)
Author:
fhourdin
Message:

Modification sur la prise en compte de la gustinness

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/clcdrag.F90

    r2232 r2278  
    129129           pcfh(i) = zcdn(i)* fins(zri(i))
    130130        ENDIF
    131         zcr = (0.0016/(zcdn(i)*SQRT(zdu2)))*ABS(ztvd-ztsolv)**(1./3.)
    132         IF(nsrf.EQ.is_oce) pcfh(i) =f_cdrag_oce* zcdn(i)*(1.0+zcr**1.25)**(1./1.25)
     131        IF(iflag_gusts==0) THEN
     132! cdrah sur l'ocean cf. Miller et al. (1992) - only active when gustiness parameterization is not active
     133           zcr = (0.0016/(zcdn(i)*SQRT(zdu2)))*ABS(ztvd-ztsolv)**(1./3.)
     134           IF(nsrf.EQ.is_oce) pcfh(i) =f_cdrag_oce* zcdn(i)*(1.0+zcr**1.25)**(1./1.25)
     135        ENDIF
    133136     ENDIF
    134137  END DO
Note: See TracChangeset for help on using the changeset viewer.