Changeset 4830 for LMDZ6/trunk/libf/phylmdiso/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/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 :: qraindiag(:,:)
+      !$OMP THREADPRIVATE(qraindiag)
+      REAL, SAVE, ALLOCATABLE :: qsnowdiag(:,:)
+      !$OMP THREADPRIVATE(qsnowdiag)
       REAL, SAVE, ALLOCATABLE :: dqreva(:,:)
       !$OMP THREADPRIVATE(dqreva)
@@ -1120 +1120 @@
 !--POPRECIP variables
       ALLOCATE(dqreva(klon,klev),dqssub(klon,klev))
-      ALLOCATE(qrain_lsc(klon,klev), qsnow_lsc(klon,klev)) 
+      ALLOCATE(qraindiag(klon,klev), qsnowdiag(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))
@@ -1483 +1483 @@
 
 !--POPRECIP variables
-      DEALLOCATE(qrain_lsc, qsnow_lsc) 
+      DEALLOCATE(qraindiag, qsnowdiag) 
       DEALLOCATE(dqreva,dqssub)
       DEALLOCATE(dqrauto,dqrcol,dqrmelt,dqrfreez)