Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/cv_driver.F

Timestamp:

Aug 17, 2006, 5:41:51 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:

• LMDZ4/branches/V3_test/libf/phylmd/cv_driver.F (modified) (4 diffs)

LMDZ4/branches/V3_test/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