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

Timestamp:

Jul 26, 2024, 9:43:31 AM (4 months ago)

Author:

acozic

Message:

update to write mass flow files in physiq - work begin with rev[4608]

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -817 +817 @@
 #endif
 
+      ! --- Offline -----------------------------------------------------------
+      LOGICAL, SAVE :: write_offline
+      !$OMP THREADPRIVATE(write_offline) 
+      REAL,ALLOCATABLE,SAVE :: ftsol_stok(:,:)  ! flux de masse dans le panache montant
+      REAL,ALLOCATABLE,SAVE :: pctsrf_stok(:,:)  ! flux de masse dans le panache descendant
+      !$OMP THREADPRIVATE(ftsol_stok,pctsrf_stok)
+      REAL,ALLOCATABLE,SAVE :: mfu_stok(:,:)  ! flux de masse dans le panache montant
+      REAL,ALLOCATABLE,SAVE :: mfd_stok(:,:)  ! flux de masse dans le panache descendant
+      REAL,ALLOCATABLE,SAVE :: de_u_stok(:,:) ! flux de traine dans le panache montant
+      REAL,ALLOCATABLE,SAVE :: en_d_stok(:,:) ! flux en traine dans le panache descendant
+      REAL,ALLOCATABLE,SAVE :: de_d_stok(:,:) ! flux de traine dans le panache montant
+      REAL,ALLOCATABLE,SAVE :: en_u_stok(:,:) ! flux en traine dans le panache descendant
+      REAL,ALLOCATABLE,SAVE :: coefh_stok(:,:) ! flux de traine dans le panache descendant
+      !$OMP THREADPRIVATE(mfu_stok,mfd_stok,de_u_stok,en_d_stok,de_d_stok)
+      !$OMP THREADPRIVATE(en_u_stok,coefh_stok)
+      REAL,ALLOCATABLE,SAVE :: entr_therm_stok(:,:) ! Les Thermiques :(Abderr25 1102)
+      REAL,ALLOCATABLE,SAVE :: fm_therm_stok(:,:)   ! Les Thermiques :(Abderr25 1102)
+      !$OMP THREADPRIVATE(entr_therm_stok, fm_therm_stok)
+      REAL,DIMENSION(:), ALLOCATABLE,SAVE     :: yu1_stok
+      REAL,DIMENSION(:), ALLOCATABLE,SAVE   :: yv1_stok
+      !$OMP THREADPRIVATE(yu1_stok, yv1_stok)
+      REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: da_stok
+      REAL,DIMENSION(:,:,:), ALLOCATABLE,SAVE   :: phi_stok
+      REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: mp_stok
+      REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: upwd_stok
+      REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: dnwd_stok
+      REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: wght_stok
+      !$OMPTHREADPRIVATE(da_stok,phi_stok,mp_stok,upwd_stok,dnwd_stok,wght_stok) 
+      REAL,ALLOCATABLE,SAVE :: t_stok(:,:)   ! convection 
+      REAL,ALLOCATABLE,SAVE :: sh_stok(:,:)   ! convection 
+      !$OMP THREADPRIVATE(t_stok,sh_stok)
+      ! -----------------------------------------------------------------------
+
+
+      
 CONTAINS
 
@@ -1281 +1316 @@
 #endif
 
+      ! --- Offline -----------------------------------------------------------
+      ALLOCATE(t_stok(klon,klev))
+      ALLOCATE(sh_stok(klon,klev))
+      ALLOCATE(mfu_stok(klon,klev))
+      ALLOCATE(mfd_stok(klon,klev))
+      ALLOCATE(de_u_stok(klon,klev))
+      ALLOCATE(en_d_stok(klon,klev))
+      ALLOCATE(de_d_stok(klon,klev))
+      ALLOCATE(en_u_stok(klon,klev))
+      ALLOCATE(coefh_stok(klon,klev))
+      ALLOCATE(entr_therm_stok(klon,klev))
+      ALLOCATE(fm_therm_stok(klon,klev))
+      ALLOCATE(da_stok(klon,klev))
+      ALLOCATE(phi_stok(klon,klev,klev))
+      ALLOCATE(mp_stok(klon,klev))
+      ALLOCATE(upwd_stok(klon,klev))
+      ALLOCATE(dnwd_stok(klon,klev))
+      ALLOCATE(wght_stok(klon,klev))
+      ALLOCATE(yu1_stok(klon))
+      ALLOCATE(yv1_stok(klon))
+      ALLOCATE(ftsol_stok(klon,nbsrf))
+      ALLOCATE(pctsrf_stok(klon,nbsrf))
+      ! -----------------------------------------------------------------------
+
+
+      
 END SUBROUTINE phys_local_var_init
 
@@ -1676 +1737 @@
 #endif
 
+            ! --- Offline -----------------------------------------------------------
+      DEALLOCATE(t_stok)
+      DEALLOCATE(sh_stok)
+      DEALLOCATE(mfu_stok)
+      DEALLOCATE(mfd_stok)
+      DEALLOCATE(de_u_stok)
+      DEALLOCATE(en_d_stok)
+      DEALLOCATE(de_d_stok)
+      DEALLOCATE(en_u_stok)
+      DEALLOCATE(coefh_stok)
+      DEALLOCATE(entr_therm_stok)
+      DEALLOCATE(fm_therm_stok)
+      DEALLOCATE(da_stok)
+      DEALLOCATE(phi_stok)
+      DEALLOCATE(mp_stok)
+      DEALLOCATE(upwd_stok)
+      DEALLOCATE(dnwd_stok)
+      DEALLOCATE(wght_stok)
+      DEALLOCATE(yu1_stok)
+      DEALLOCATE(yv1_stok)
+      DEALLOCATE(ftsol_stok)
+      DEALLOCATE(pctsrf_stok)
+      ! -----------------------------------------------------------------------
+
 END SUBROUTINE phys_local_var_end