Changeset 1305 for trunk/LMDZ.VENUS/libf/phyvenus/phytrac_emiss.F

Timestamp:

Jul 8, 2014, 2:21:53 PM (11 years ago)

Author:

slebonnois

Message:

SL: VENUS PHOTOCHEMISTRY. Needs Lapack (see arch files...)

File:

• trunk/LMDZ.VENUS/libf/phyvenus/phytrac_emiss.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/phytrac_emiss.F

@@ -76 +76 @@
 
       integer,parameter :: nbsrc=2,nblat=5,nblon=4
-      integer,parameter :: Nemiss=1   ! duree emission (Ed)
+!     integer,parameter :: Nemiss=1   ! duree emission (Ed)
       integer,save :: Nemiss(nbsrc)      ! duration emission (Ed)
       real,save :: source_volcan(nbsrc)  ! flux emission (kg/s)