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

Timestamp:

Mar 26, 2026, 9:09:01 PM (6 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_local_var_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -119 +119 @@
       !$OMP THREADPRIVATE(d_u_lif, d_v_lif)
 ! Tendances Ondes de G non oro (runs strato).
-      REAL, SAVE, ALLOCATABLE :: du_gwd_hines(:,:)
-      !$OMP THREADPRIVATE(du_gwd_hines)
-      REAL, SAVE, ALLOCATABLE :: dv_gwd_hines(:,:)
-      !$OMP THREADPRIVATE(dv_gwd_hines)
       REAL, SAVE, ALLOCATABLE :: dv_gwd_rando(:,:)
       !$OMP THREADPRIVATE(dv_gwd_rando)
@@ -131 +127 @@
       REAL, SAVE, ALLOCATABLE :: west_gwstress(:,:)
       !$OMP THREADPRIVATE(west_gwstress)
-      REAL, SAVE, ALLOCATABLE :: dt_gwd_hines(:,:)
-      !$OMP THREADPRIVATE(dt_gwd_hines)
 ! tendance due a l'oxydation du methane
       REAL, SAVE, ALLOCATABLE :: d_q_ch4(:,:)
@@ -981 +975 @@
       ALLOCATE(topsw0_aero(klon,naero_grp), solsw0_aero(klon,naero_grp))
       ALLOCATE(topswcf_aero(klon,3), solswcf_aero(klon,3))
-      ALLOCATE(du_gwd_hines(klon,klev),dv_gwd_hines(klon,klev))
       ALLOCATE(dv_gwd_rando(klon,klev),dv_gwd_front(klon,klev))
       ALLOCATE(east_gwstress(klon,klev),west_gwstress(klon,klev))
       east_gwstress(:,:)=0. !ym missing init
       west_gwstress(:,:)=0. !ym missing init
-      ALLOCATE(dt_gwd_hines(klon,klev))
       ALLOCATE(d_q_ch4(klon,klev))
       ALLOCATE(stratomask(klon,klev))
@@ -1503 +1495 @@
       DEALLOCATE(load_tmp9)
       DEALLOCATE(load_tmp10)
-      DEALLOCATE(du_gwd_hines,dv_gwd_hines,dt_gwd_hines)
       DEALLOCATE(d_q_ch4)
       DEALLOCATE(dv_gwd_rando,dv_gwd_front)