Changeset 6132 for LMDZ6/trunk/libf/phylmd/phys_output_var_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/phys_output_var_mod.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_var_mod.f90

@@ -142 +142 @@
   LOGICAL, SAVE :: vars_defined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL
 
-  REAL, allocatable:: zustr_gwd_hines(:), zvstr_gwd_hines(:) ! (klon)
   REAL, allocatable:: zustr_gwd_front(:), zvstr_gwd_front(:) ! (klon)
   REAL, allocatable:: zustr_gwd_rando(:), zvstr_gwd_rando(:) ! (klon)
-  !$OMP THREADPRIVATE(zustr_gwd_hines, zvstr_gwd_hines)
   !$OMP THREADPRIVATE(zustr_gwd_front, zvstr_gwd_front)
   !$OMP THREADPRIVATE(zustr_gwd_rando, zvstr_gwd_rando)
@@ -242 +240 @@
 
     ! 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))
@@ -295 +292 @@
     ! 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)