Changeset 3821 for LMDZ6/trunk/libf/phylmd/screenc_mod.F90

Timestamp:

Feb 4, 2021, 5:25:02 PM (3 years ago)

Author:

musat

Message:

Nouveaux calculs a 10m

File:

• LMDZ6/trunk/libf/phylmd/screenc_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/screenc_mod.F90

@@ -183 +183 @@
                     cdram, cdrah, zri1, pref)
       DO i = 1, knon
-!       IF(ok_prescr_ust) THEN
-! La aussi il faut forcer avec ust (FC + MPL 20160210)
-!       ycdragm(i) = ust*ust/(1.+speed(i))/speed(i)
-!       cdram=ycdragm
-!       delu(i) = ust/sqrt(cdram(i))
-!       ELSE
-!       delu(i) = ustar(i)/sqrt(cdram(i))
-!       ENDIF
-        IF(ok_prescr_ust) THEN
-         print*,'chgmnt calculs à 2m; remplacer par ??? si 1D'
-         STOP
-        ENDIF
         delm(i) = sqrt(cdrm(i))/sqrt(cdram(i))
 !verifier que temp est un temperat potentielle.