Changeset 4819 for LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

Timestamp:

Feb 14, 2024, 8:55:10 PM (6 months ago)

Author:

evignon

Message:

modifications du commit precedent a la suite de l'atelier nuages

File:

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

LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

@@ -640 +640 @@
 
 !--POPRECIP variables
+      REAL, SAVE, ALLOCATABLE :: qrain_lsc(:,:)
+      !$OMP THREADPRIVATE(qrain_lsc)
+      REAL, SAVE, ALLOCATABLE :: qsnow_lsc(:,:)
+      !$OMP THREADPRIVATE(qsnow_lsc)
       REAL, SAVE, ALLOCATABLE :: dqreva(:,:)
       !$OMP THREADPRIVATE(dqreva)
@@ -1116 +1120 @@
 !--POPRECIP variables
       ALLOCATE(dqreva(klon,klev),dqssub(klon,klev))
+      ALLOCATE(qrain_lsc(klon,klev), qsnow_lsc(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))
@@ -1478 +1483 @@
 
 !--POPRECIP variables
+      DEALLOCATE(qrain_lsc, qsnow_lsc) 
       DEALLOCATE(dqreva,dqssub)
       DEALLOCATE(dqrauto,dqrcol,dqrmelt,dqrfreez)