Changeset 6059 for LMDZ6/trunk/libf/phylmd/phys_output_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_output_var_mod.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_var_mod.f90

@@ -241 +241 @@
 !     endif
 
-    IF (ok_hines) allocate(zustr_gwd_hines(klon), zvstr_gwd_hines(klon))
-    IF (.not.ok_hines.and.ok_gwd_rando) &
-                  allocate(zustr_gwd_front(klon), zvstr_gwd_front(klon))
-    IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon))
+    ! stress from non orographic gravity wave drag params
+    allocate(zustr_gwd_hines(klon), zvstr_gwd_hines(klon))
+    allocate(zustr_gwd_front(klon), zvstr_gwd_front(klon))
+    allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon))
 
     if (activate_ocean_skin >= 1) allocate(tkt(klon), tks(klon), taur(klon), &
@@ -293 +293 @@
     deallocate(cloudth_sigmaenv)
 
+    ! stress from non orographic gravity wave drag params
+    
+    deallocate(zustr_gwd_hines, zvstr_gwd_hines)
+    deallocate(zustr_gwd_front, zvstr_gwd_front)
+    deallocate(zustr_gwd_rando, zvstr_gwd_rando)
+
+
 ! Marine
 ! Variables de sortie simulateur AIRS