Changeset 4803 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Feb 5, 2024, 10:16:07 PM (4 months ago)

Author:

evignon

Message:

implementation sous flag des premiers changements
concernant le traitement des precipitations grande echelle
dans le cadre de l'atelier nuages
Audran, Lea, Niels, Gwendal et Etienne

File:

• LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -538 +538 @@
 
 
+!--POPRECIP variables
+      REAL, SAVE, ALLOCATABLE :: dqreva(:,:)
+      !$OMP THREADPRIVATE(dqreva)
+      REAL, SAVE, ALLOCATABLE :: dqrauto(:,:)
+      !$OMP THREADPRIVATE(dqrauto)
+      REAL, SAVE, ALLOCATABLE :: dqrcol(:,:)
+      !$OMP THREADPRIVATE(dqrcol)
+      REAL, SAVE, ALLOCATABLE :: dqrmelt(:,:)
+      !$OMP THREADPRIVATE(dqrmelt)
+       REAL, SAVE, ALLOCATABLE :: dqrfreez(:,:)
+      !$OMP THREADPRIVATE(dqrfreez)
+      REAL, SAVE, ALLOCATABLE :: dqssub(:,:)
+      !$OMP THREADPRIVATE(dqssub)
+      REAL, SAVE, ALLOCATABLE :: dqsauto(:,:)
+      !$OMP THREADPRIVATE(dqsauto)
+      REAL, SAVE, ALLOCATABLE :: dqsagg(:,:)
+      !$OMP THREADPRIVATE(dqsagg)
+      REAL, SAVE, ALLOCATABLE :: dqsrim(:,:)
+      !$OMP THREADPRIVATE(dqsrim)
+      REAL, SAVE, ALLOCATABLE :: dqsmelt(:,:)
+      !$OMP THREADPRIVATE(dqsmelt)
+      REAL, SAVE, ALLOCATABLE :: dqsfreez(:,:)
+      !$OMP THREADPRIVATE(dqsfreez)
+
+
+      
+
+
 #ifdef CPP_StratAer
 !
@@ -928 +956 @@
       ALLOCATE(zqsatl(klon,klev), zqsats(klon,klev))
       ALLOCATE(Tcontr(klon,klev), qcontr(klon,klev), qcontr2(klon,klev), fcontrN(klon,klev), fcontrP(klon,klev))
+
+!--POPRECIP variables
+      ALLOCATE(dqreva(klon,klev),dqssub(klon,klev))
+      ALLOCATE(dqrauto(klon,klev), dqrcol(klon,klev), dqrmelt(klon,klev), dqrfreez(klon,klev))
+      ALLOCATE(dqsauto(klon,klev), dqsagg(klon,klev), dqsrim(klon,klev), dqsmelt(klon,klev), dqsfreez(klon,klev))
 
 #ifdef CPP_StratAer
@@ -1239 +1272 @@
       DEALLOCATE(Tcontr, qcontr, qcontr2, fcontrN, fcontrP)
 
+!--POPRECIP variables
+      DEALLOCATE(dqreva,dqssub)
+      DEALLOCATE(dqrauto,dqrcol,dqrmelt,dqrfreez)
+      DEALLOCATE(dqsauto,dqsagg,dqsrim,dqsmelt,dqsfreez)
+
 #ifdef CPP_StratAer
 ! variables for strat. aerosol CK