Changeset 2160 for LMDZ5/branches/testing/libf/phylmd/stdlevvar.F90

Timestamp:

Nov 28, 2014, 4:36:29 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/stdlevvar.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/stdlevvar.F90

@@ -53 +53 @@
       REAL, dimension(klon), intent(out) :: u_10m, t_10m, q_10m
 !-------------------------------------------------------------------------
+      include "flux_arp.h"
       include "YOMCST.h"
 !IM PLUS
@@ -101 +102 @@
  &                   ts1, qsurf, rugos, okri, ri1,  &         
  &                   cdram, cdrah, cdran, zri1, pref)            
+! --- special Dice: on force cdragm ( a defaut de forcer ustar) MPL 05082013
+     IF (ok_prescr_ust) then
+      DO i = 1, knon
+       print *,'cdram avant=',cdram(i)
+       cdram(i) = ust*ust/speed(i)/speed(i)
+       print *,'cdram ust speed apres=',cdram(i),ust,speed
+      ENDDO
+     ENDIF
 !
 !---------Star variables----------------------------------------------------