Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/homogene.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/homogene.F (modified) (2 diffs)

LMDZ4/branches/V3_test/libf/phylmd/homogene.F

@@ -3 +3 @@
 !
       SUBROUTINE homogene(paprs, q, dq, u,v, du, dv)
+      USE dimphy
       IMPLICIT NONE
 c==============================================================
@@ -17 +18 @@
 c dv:   output, incrementation pour v
 c==============================================================
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 c
       REAL paprs(klon,klev+1)