Changeset 5193 for LMDZ6/branches/Amaury_dev/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Sep 16, 2024, 2:44:51 PM (8 weeks ago)

Author:

abarral

Message:

Merge r5181, r5188 from trunk
Lint lmdz_wake.F90, lmdz_wake_ini.F90

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/phys_local_var_mod.F90

@@ -401 +401 @@
   REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: tpot, tpote, ue, uq, uwat, ve, vq, vwat, zxffonte
   !$OMP THREADPRIVATE(tpot, tpote, ue, uq, uwat, ve, vq, vwat, zxffonte)
-  REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: zxustartlic, zxrhoslic, zxqsaltlic
-  !$OMP THREADPRIVATE(zxustartlic, zxrhoslic, zxqsaltlic)
+  REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: zxustartlic, zxrhoslic, zxqsaltlic, tempsmoothlic
+  !$OMP THREADPRIVATE(zxustartlic, zxrhoslic, zxqsaltlic, tempsmoothlic)
   REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: zxfqcalving
   !$OMP THREADPRIVATE(zxfqcalving)
@@ -1046 +1046 @@
       ALLOCATE(zxrunofflic(klon), runoff_diag(klon))
       runoff_diag(:)=0.
-    ALLOCATE(zxustartlic(klon), zxrhoslic(klon), zxqsaltlic(klon))
-    zxustartlic(:) = 0. ; zxrhoslic(:) = 0. ; zxqsaltlic(:) = 0.
+    ALLOCATE(zxustartlic(klon), zxrhoslic(klon), zxqsaltlic(klon), tempsmoothlic(klon))
+    zxustartlic(:) = 0. ; zxrhoslic(:) = 0. ; zxqsaltlic(:) = 0. ; tempsmoothlic(:)=0.
     ALLOCATE(rain_lsc(klon))
     ALLOCATE(rain_num(klon))
@@ -1467 +1467 @@
 ! SN runoff_diag
       DEALLOCATE(zxrunofflic, runoff_diag)
-    DEALLOCATE(zxustartlic, zxrhoslic, zxqsaltlic)
+    DEALLOCATE(zxustartlic, zxrhoslic, zxqsaltlic, tempsmoothlic)
     DEALLOCATE(zxtsol, snow_lsc, zxfqfonte, zxqsurf)
     DEALLOCATE(rain_lsc)