Changeset 5499 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jan 21, 2025, 11:18:55 AM (18 hours ago)

Author:

yann meurdesoif

Message:

Adapt calwake and wake for automatic GPU port.
YM

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -79 +79 @@
     USE lmdz_lscp_old, ONLY : fisrtilp, fisrtilp_first
     USE lmdz_call_blowing_snow, ONLY : call_blowing_snow_sublim_sedim
+    USE calwake_mod, ONLY : calwake, calwake_first
     USE lmdz_wake_ini, ONLY : wake_ini
     USE lmdz_surf_wind_ini, ONLY : surf_wind_ini, iflag_surf_wind
@@ -3517 +3518 @@
           !
           !calcul caracteristiques de la poche froide
+          CALL calWAKE_first(phys_tstep)
           CALL calWAKE (iflag_wake_tend, paprs, pplay, phys_tstep, &
                t_seri, q_seri, omega,  &