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

Timestamp:

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

Author:

Laurent Fairhead

Message:

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

File:

• LMDZ4/trunk/libf/phylmd/yamada.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/yamada.F

@@ -5 +5 @@
      s   ,zlev,zlay,u,v,teta,cd,q2,km,kn,ustar
      s   ,l_mix)
+      use dimphy
       IMPLICIT NONE
 c.......................................................................
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 c.......................................................................
 c
@@ -48 +49 @@
 
       integer nlay,nlev
-      PARAMETER (nlay=klev)
-      PARAMETER (nlev=klev+1)
+cym      PARAMETER (nlay=klev)
+cym      PARAMETER (nlev=klev+1)
 
       logical first
@@ -77 +78 @@
       fsm(ri)=1.96*(0.1912-ri)*(0.2341-ri)/((1.-ri)*(0.2231-ri))
 
+      nlay=klev
+      nlev=klev+1
+      
       if (0.eq.1.and.first) then
       do ig=1,1000