Changeset 4830 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

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

Author:

evignon

Message:

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

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• phys_local_var_mod.F90 (modified) (3 diffs)
• physiq_mod.F90 (modified) (2 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)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -230 +230 @@
        d_q_ch4, &
        ! proprecip
-       qrain_lsc, qsnow_lsc, &
+       qraindiag, qsnowdiag, &
        dqreva, dqssub, &
        dqrauto,dqrcol,dqrmelt,dqrfreez, &
@@ -4890 +4890 @@
          Tcontr, qcontr, qcontr2, fcontrN, fcontrP , &
          cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv, &
-         qrain_lsc, qsnow_lsc, dqreva, dqssub, dqrauto, dqrcol, dqrmelt, &
+         qraindiag, qsnowdiag, dqreva, dqssub, dqrauto, dqrcol, dqrmelt, &
          dqrfreez, dqsauto, dqsagg, dqsrim, dqsmelt, dqsfreez)