Changeset 2192

Timestamp:

Dec 13, 2019, 10:05:24 AM (5 years ago)

Author:

flefevre

Message:

sauvegarde des tendances dues a la chimie et a la sedimentation

File:

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

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

@@ -55 +55 @@
       REAL,ALLOCATABLE,SAVE :: covmr_gcm(:,:)   
 !$OMP THREADPRIVATE(covmr_gcm)
+
+! photochemistry and microphysics
+      REAL,ALLOCATABLE,SAVE :: d_tr_chem(:,:,:), d_tr_sed(:,:,:)   
+!$OMP THREADPRIVATE(d_tr_chem,d_tr_sed)
+      INTEGER,ALLOCATABLE,SAVE :: iter(:,:)   
+!$OMP THREADPRIVATE(iter)
 
 ! Tendencies due to radiative scheme   [K/s]
@@ -144 +150 @@
       ALLOCATE(nvmr_gcm(klon,klev))
 
+      ALLOCATE(d_tr_chem(klon,klev,nqmax),d_tr_sed(klon,klev,nqmax))
+      ALLOCATE(iter(klon,klev))
+
       ALLOCATE(heat(klon,klev), heat0(klon,klev)) 
       ALLOCATE(cool(klon,klev), cool0(klon,klev))
@@ -186 +195 @@
       deallocate(nvmr_gcm)
 
+      deallocate(d_tr_chem,d_tr_sed)
+      deallocate(iter)
+
       deallocate(heat, heat0) 
       deallocate(cool, cool0)