Changeset 104 for trunk/libf/phytitan/pg2.F

Timestamp:

Mar 25, 2011, 4:58:38 PM (14 years ago)

Author:

slebonnois

Message:

SLebonnois: modification de makelmdz et create_make_gcm pour pouvoir
compiler la chimie titan. Pas de raison que ca gene les autres.
Dans cette version, les compilations de Venus et Titan fonctionnent.

Phytitan: modifications pour pouvoir compiler correctement.
Il ne manque plus que physiq.F a faire.

File:

• trunk/libf/phytitan/pg2.F (modified) (2 diffs)

trunk/libf/phytitan/pg2.F

@@ -51 +51 @@
 
      
-        parameter (NG=jjm+1,NL=klev)   ! NG: on travaille en moyenne zonale
+        parameter (NG=jjm+1)   ! NG: on travaille en moyenne zonale
  
 c*************************************
@@ -68 +68 @@
         real   mu0(ng),fract(ng)
 
-        real    zzlev(NG,NL+1)
-     &         ,pplev(NG,NL+1)
-     &         ,zzlay(NG,NL)
-     &         ,pt(NG,NL)
-     &         ,q(NG,NL,nq)
-     &         ,qdel(NG,NL,nq)
+        real    zzlev(NG,klev+1)
+     &         ,pplev(NG,klev+1)
+     &         ,zzlay(NG,klev)
+     &         ,pt(NG,klev)
+     &         ,q(NG,klev,nq)
+     &         ,qdel(NG,klev,nq)
      &         ,qcumul(NG,0:200,nq)