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

Timestamp:

Jun 15, 2023, 10:25:55 AM (14 months ago)

Author:

Laurent Fairhead

Message:

Forgot modifications in phylmdiso
LF

File:

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

LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

@@ -317 +317 @@
 !$OMP THREADPRIVATE(sens, flwp, fiwp)
 !!
+!FC
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zxfluxt, zxfluxq
+!$OMP THREADPRIVATE(zxfluxt, zxfluxq)
+!FC
 !!         Wake variables
       REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: alp_wake
@@ -1023 +1027 @@
       ALLOCATE(wfevap(klon, nbsrf), wfrain(klon,nbsrf), wfsnow(klon, nbsrf))
       ALLOCATE(evap_pot(klon, nbsrf))
+! FC
+      ALLOCATE(zxfluxq(klon,klev),zxfluxt(klon,klev))
+!
 !
 !  Deep convective variables used in phytrac
@@ -1381 +1388 @@
       DEALLOCATE(alp_bl_stat, n2, s2)
       DEALLOCATE(proba_notrig, random_notrig)
+!FC
+      DEALLOCATE(zxfluxq,zxfluxt)
 
       DEALLOCATE(dnwd0)