Changeset 1106 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/screenp.F90

Timestamp:

Feb 24, 2009, 3:46:23 PM (15 years ago)

Author:

lguez

Message:

"comconst.h", and "comgeom2.h" are now both fixed and free form.
Removed calls to procedure "flush".
Corrected kinds of constants which appeared as arguments to "min" or
"max" (all arguments are now of the same type and kind).

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/screenp.F90 (modified) (1 diff)

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

@@ -64 +64 @@
             delu(i) = (ustar(i)/RKAR)* &
                       (log(zref/(rugos(i))+1.) + &
-                      min(5.0, 5.0 *(zref - rugos(i))/lmon(i)))
+                      min(5.d0, 5.0 *(zref - rugos(i))/lmon(i)))
             delte(i) = (testar(i)/RKAR)* &
                        (log(zref/(rugos(i))+1.) + &
-                       min(5.0, 5.0 * (zref - rugos(i))/lmon(i)))
+                       min(5.d0, 5.0 * (zref - rugos(i))/lmon(i)))
             delq(i) = (qstar(i)/RKAR)* &
                       (log(zref/(rugos(i))+1.) + &
-                      min(5.0, 5.0 * (zref - rugos(i))/lmon(i)))
+                      min(5.d0, 5.0 * (zref - rugos(i))/lmon(i)))
           ELSE
             delu(i)  = 0.1 * speed(i)