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

Timestamp:

Jul 31, 2024, 10:21:57 AM (3 months ago)

Author:

acozic

Message:

undo commit 5131 - when we compile with inca we don't use anymore phystokenc to calculate offline flux

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
-      !$OMP THREADPRIVATE(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
 
@@ -1316 +1281 @@
 #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
 
@@ -1737 +1676 @@
 #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