Changeset 105 for trunk/libf/phyvenus/physiq.F

Timestamp:

Mar 28, 2011, 11:39:43 AM (14 years ago)

Author:

slebonnois

Message:

SL: dernieres corrections pour que la compilation de Titan se fasse.

File:

• trunk/libf/phyvenus/physiq.F (modified) (2 diffs)

trunk/libf/phyvenus/physiq.F

@@ -212 +212 @@
 cAA  Pour  TRACEURS
 cAA
-      REAL source(klon,nqmax)
+      REAL,save,allocatable :: source(:,:)
       REAL ycoefh(klon,klev)    ! coef d'echange pour phytrac
       REAL yu1(klon)            ! vents dans la premiere couche U
@@ -417 +417 @@
          allocate(dtrad(klon,klev),topsw(klon),toplw(klon))
          allocate(solsw(klon),sollw(klon),sollwdown(klon))
+         allocate(source(klon,nqmax))
 
          CALL suphec ! initialiser constantes et parametres phys.