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

Timestamp:

Feb 1, 2026, 8:52:37 PM (2 months ago)

Author:

evignon

Message:

replayisation des routines des ondes de gravité (gwd=gravity wave drag)
ATTENTION:

• la convergence est perdue en mode prod a cause de refactorisations. J'ai convergence en debug chez moi qui doit être confirmee par un contrôle qualité en debug
• je perds la compilation avec isotopes mais j'attends l'aval des isotopistes pour une commettre une solution minimaliste

File:

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

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -131 +131 @@
       REAL, SAVE, ALLOCATABLE :: west_gwstress(:,:)
       !$OMP THREADPRIVATE(west_gwstress)
-      REAL, SAVE, ALLOCATABLE :: d_t_hin(:,:)
-      !$OMP THREADPRIVATE(d_t_hin)
+      REAL, SAVE, ALLOCATABLE :: dt_gwd_hines(:,:)
+      !$OMP THREADPRIVATE(dt_gwd_hines)
 ! tendance due a l'oxydation du methane
       REAL, SAVE, ALLOCATABLE :: d_q_ch4(:,:)
@@ -984 +984 @@
       east_gwstress(:,:)=0. !ym missing init
       west_gwstress(:,:)=0. !ym missing init
-      ALLOCATE(d_t_hin(klon,klev))
+      ALLOCATE(dt_gwd_hines(klon,klev))
       ALLOCATE(d_q_ch4(klon,klev))
       ALLOCATE(stratomask(klon,klev))
@@ -1499 +1499 @@
       DEALLOCATE(load_tmp9)
       DEALLOCATE(load_tmp10)
-      DEALLOCATE(du_gwd_hines,dv_gwd_hines,d_t_hin)
+      DEALLOCATE(du_gwd_hines,dv_gwd_hines,dt_gwd_hines)
       DEALLOCATE(d_q_ch4)
       DEALLOCATE(dv_gwd_rando,dv_gwd_front)