Changeset 1452 for trunk/LMDZ.VENUS/libf/phyvenus/conc.F90

Timestamp:

Jun 16, 2015, 1:26:46 PM (9 years ago)

Author:

slebonnois

Message:

SL: converging photochemistry/high atm, with bug corrections and rho output

File:

• trunk/LMDZ.VENUS/libf/phyvenus/conc.F90 (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/conc.F90

@@ -6 +6 @@
       REAL, ALLOCATABLE, SAVE :: mmean(:,:)
 !$OMP THREADPRIVATE(mmean)
+      REAL, ALLOCATABLE, SAVE :: rho(:,:)
+!$OMP THREADPRIVATE(rho)
       REAL, ALLOCATABLE, SAVE :: Akknew(:,:)
 !$OMP THREADPRIVATE(Akknew)
@@ -70 +72 @@
 #include"param.h"
 
-     ALLOCATE(mmean(klon,klev))  
+     ALLOCATE(mmean(klon,klev)) 
+     ALLOCATE(rho(klon,klev))       
      ALLOCATE(Akknew(klon,klev))  
      ALLOCATE(rnew(klon,klev))  
@@ -102 +105 @@
 
   end module conc
-                
+