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

Timestamp:

Feb 22, 2024, 5:29:02 PM (3 months ago)

Author:

evignon

Message:

changements suite à l'atelier nuage d'aujourd'hui.

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -539 +539 @@
 
 !--POPRECIP variables
-      REAL, SAVE, ALLOCATABLE :: qrain_lsc(:,:)
-      !$OMP THREADPRIVATE(qrain_lsc)
-      REAL, SAVE, ALLOCATABLE :: qsnow_lsc(:,:)
-      !$OMP THREADPRIVATE(qsnow_lsc)
+      REAL, SAVE, ALLOCATABLE :: qraindiag(:,:)
+      !$OMP THREADPRIVATE(qraindiag)
+      REAL, SAVE, ALLOCATABLE :: qsnowdiag(:,:)
+      !$OMP THREADPRIVATE(qsnowdiag)
       REAL, SAVE, ALLOCATABLE :: dqreva(:,:)
       !$OMP THREADPRIVATE(dqreva)
@@ -962 +962 @@
 
 !--POPRECIP variables
-      ALLOCATE(qrain_lsc(klon,klev), qsnow_lsc(klon,klev))
+      ALLOCATE(qraindiag(klon,klev), qsnowdiag(klon,klev))
       ALLOCATE(dqreva(klon,klev), dqssub(klon,klev))
       ALLOCATE(dqrauto(klon,klev), dqrcol(klon,klev), dqrmelt(klon,klev), dqrfreez(klon,klev))
@@ -1278 +1278 @@
 
 !--POPRECIP variables
-      DEALLOCATE(qrain_lsc, qsnow_lsc)
+      DEALLOCATE(qraindiag, qsnowdiag)
       DEALLOCATE(dqreva, dqssub)
       DEALLOCATE(dqrauto, dqrcol, dqrmelt, dqrfreez)