Changeset 634 for LMDZ4/branches/LMDZ4_par_0/libf/phylmd/fisrtilp.F

Timestamp:

May 4, 2005, 5:11:29 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF

File:

• LMDZ4/branches/LMDZ4_par_0/libf/phylmd/fisrtilp.F (modified) (4 diffs)

LMDZ4/branches/LMDZ4_par_0/libf/phylmd/fisrtilp.F

@@ -10 +10 @@
 
 c
+      USE dimphy
       IMPLICIT none
 c======================================================================
@@ -18 +19 @@
 c======================================================================
 c======================================================================
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 #include "YOMCST.h"
 #include "tracstoke.h"
@@ -110 +111 @@
       REAL zlh_solid(klon), zm_solid
 cIM 
-      INTEGER klevm1
+cym      INTEGER klevm1
 c---------------------------------------------------------------
 c
@@ -210 +211 @@
 c
 cIM : klevm1
-      klevm1=klev-1
+cym      klevm1=klev-1
       DO 9999 k = klev, 1, -1
 c