Changeset 1204 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/clcdrag.F90

Timestamp:

Jul 7, 2009, 5:04:03 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Nettoyage du contrôle des coefficients de frottement en surface séparément
sur terre et sur océan (disparition de f_cdrag_stable)
PasB

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/clcdrag.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/clcdrag.F90

@@ +1 @@
+!
+!$Id$
 !
 SUBROUTINE clcdrag(knon, nsrf, paprs, pplay,&
@@ -93 +95 @@
            FRIH = AMAX1(1./ (1.+3.*CB*zri(i)*ZSCF), 0.1 )
 !!$  PB          zcfh1(i) = zcdn(i) * FRIH
-           zcfh1(i) = f_cdrag_stable * zcdn(i) * FRIH
+!!$ PB           zcfh1(i) = f_cdrag_stable * zcdn(i) * FRIH
+           zcfh1(i) = f_cdrag_ter * zcdn(i) * FRIH
+           IF(nsrf.EQ.is_oce) zcfh1(i) = f_cdrag_oce * zcdn(i) * FRIH
+!!$ PB
            pcfm(i) = zcfm1(i)
            pcfh(i) = zcfh1(i)