Changeset 6066

Timestamp:

Feb 3, 2026, 11:14:39 AM (31 hours ago)

Author:

evignon

Message:

ecriture systematique de du_gwd_rando et du_gwd_front dans le startphy pour retrouver la convergence
sur le INIT

File:

• LMDZ6/trunk/libf/phylmd/phyredem.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/phyredem.f90

@@ -13 +13 @@
   USE clesphys_mod_h
   USE dimphy, ONLY: klon, klev
-  USE lmdz_gwd_ini, ONLY: ok_gwd_rando, ok_hines, ok_orodr, ok_orolf
+  USE lmdz_gwd_ini, ONLY: ok_orodr, ok_orolf
   USE simplehydrol_mod,  ONLY : simplehydrol_final
   USE pbl_surface_mod,  ONLY : pbl_surface_final
@@ -435 +435 @@
     END IF
 
-    if (ok_gwd_rando) call put_field(pass,"du_gwd_rando", &
-         "tendency on zonal wind due to flott gravity waves", du_gwd_rando)
-
-    IF (.not. ok_hines .and. ok_gwd_rando) call put_field(pass,"du_gwd_front", &
-         "tendency on zonal wind due to acama gravity waves", du_gwd_front)
+    ! stochastic gravity wave parameterizations
+    call put_field(pass,"du_gwd_rando", "tendency on zonal wind due to flott gravity waves", du_gwd_rando)
+    call put_field(pass,"du_gwd_front", "tendency on zonal wind due to acama gravity waves", du_gwd_front)
 
     if (activate_ocean_skin >= 1) then