Changeset 6132 for LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90

Timestamp:

Mar 26, 2026, 9:09:01 PM (10 days ago)

Author:

evignon

Message:

suppression de la param hines des sources, devenue totalement obsolete (apres verification avec Francois Lott)

File:

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

LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90

@@ -66 +66 @@
   USE alpale_mod
   USE compbl_mod_h
-  USE lmdz_gwd_ini, ONLY: ok_hines, ok_gwd_rando, ok_orodr, ok_orolf
+  USE lmdz_gwd_ini, ONLY: ok_gwd_rando, ok_orodr, ok_orolf
 
   IMPLICIT NONE
@@ -671 +671 @@
   IF (ok_gwd_rando) found = &
        phyetat0_get(du_gwd_rando,"du_gwd_rando","du_gwd_rando",0.)
-  IF (.NOT. ok_hines .AND. ok_gwd_rando) found &
+  IF (ok_gwd_rando) found &
        = phyetat0_get(du_gwd_front,"du_gwd_front","du_gwd_front",0.)