Changeset 766 for LMDZ4/trunk/libf/phylmd/cv_driver.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/cv_driver.F (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/cv_driver.F

@@ -11 +11 @@
      &                   da1,phi1,mp1)
 C
+      USE dimphy
       implicit none
 C
@@ -64 +65 @@
 c
 c
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 
       integer len
@@ -250 +251 @@
 c (local) compressed fields:
 c
-      integer nloc
-      parameter (nloc=klon) ! pour l'instant
-
+cym      integer nloc
+cym      parameter (nloc=klon) ! pour l'instant
+#define nloc klon
       integer idcum(nloc)
       integer iflag(nloc),nk(nloc),icb(nloc)
@@ -290 +291 @@
       real wd(nloc)           ! gust
 
+      nent(:,:)=0
 !-------------------------------------------------------------------
 ! --- SET CONSTANTS AND PARAMETERS