Changeset 209 for LMDZ.3.3/trunk

Timestamp:

Apr 23, 2001, 12:42:37 PM (23 years ago)

Author:

lmdz

Message:

Manque deux include JQuaas
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/phytrac.F (modified) (2 diffs)

LMDZ.3.3/trunk/libf/phylmd/phytrac.F

@@ -30 +30 @@
 #include "dimphy.h"
 #include "indicesol.h"
+#include "temps.h"
+#include "control.h"
 c======================================================================
 
@@ -238 +240 @@
             zx_lon(i,jjm+1) = xlon(i+1)
          ENDDO
-         DO ll=1,klev
-            znivsig(ll)=float(ll)
-         ENDDO
+c         DO ll=1,klev
+c            znivsig(ll)=float(ll)
+c         ENDDO
          CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat)
          CALL histbeg("histrac", iim,zx_lon, jjm+1,zx_lat,