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

LMDZ4/trunk/libf/phylmd/ajsec.F

@@ -3 +3 @@
 !
       SUBROUTINE ajsec(paprs, pplay, t,q, d_t,d_q)
+      USE dimphy
       IMPLICIT none
 c======================================================================
@@ -13 +14 @@
 c d_t-----output-R-Incrementation de la temperature
 c======================================================================
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 #include "YOMCST.h"
       REAL paprs(klon,klev+1), pplay(klon,klev)
@@ -22 +23 @@
       INTEGER limbas, limhau ! les couches a ajuster
 ccc      PARAMETER (limbas=klev-3, limhau=klev)
-      PARAMETER (limbas=1, limhau=klev)
+cym      PARAMETER (limbas=1, limhau=klev)
 c
       LOGICAL mixq
@@ -38 +39 @@
 c Initialisation:
 c
+cym
+      limbas=1
+      limhau=klev
+  
       DO k = 1, klev
       DO i = 1, klon
@@ -149 +154 @@
       END
       SUBROUTINE ajsec_old(paprs, pplay, t, d_t)
+      USE dimphy
       IMPLICIT none
 c======================================================================
@@ -159 +165 @@
 c d_t-----output-R-Incrementation de la temperature
 c======================================================================
-#include "dimensions.h"
-#include "dimphy.h"
+cym#include "dimensions.h"
+cym#include "dimphy.h"
 #include "YOMCST.h"
       REAL paprs(klon,klev+1), pplay(klon,klev)