Changeset 766 for LMDZ4/trunk/libf/phylmd/coefkzmin.F

Timestamp:

Jun 4, 2007, 4:34:47 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

• LMDZ4/trunk/libf/phylmd/coefkzmin.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/coefkzmin.F

@@ -5 +5 @@
      .   ,km,kn)
 c      SUBROUTINE coefkzmin(ngrid,zlev,teta,ustar,km,kn)
+      USE dimphy
       IMPLICIT NONE
 
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 #include "YOMCST.h"
 
@@ -59 +60 @@
 
       integer nlay,nlev
-      PARAMETER (nlay=klev)
-      PARAMETER (nlev=klev+1)
+cym      PARAMETER (nlay=klev)
+cym      PARAMETER (nlev=klev+1)
 
       integer ig,k
 
-      real kap
-      save kap
-      data kap/0.4/
+      real,parameter :: kap=0.4
 
       real frif,falpha,fsm
       real fl,zzz,zl0,zq2,zn2
 
-
+      nlay=klev
+      nlev=klev+1
 c.......................................................................
 c  en attendant une version ou les zlev, et zlay soient