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

Timestamp:

Sep 24, 2025, 3:12:42 PM (2 months ago)

Author:

rkazeroni

Message:

For GPU porting of alpale_th and alpale_wk routines:

• Put routine into module (speeds up source-to-source transformation)
• Add "horizontal" comment to specify possible names of horizontal variables
• Move declaration of variables with SAVE attributes from the compute routine to the module
• Move one-time instructions (allocate, getin, print) to a dedicated routine_first

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -25 +25 @@
   &      fl_ebil, fl_cor_ebil
     USE ajsec_mod, ONLY: ajsec, ajsec_convv2
+    USE alpale_th_mod, ONLY: alpale_th, alpale_th_first
+    USE alpale_wk_mod, ONLY: alpale_wk, alpale_wk_first
     USE assert_m, only: assert
     USE change_srf_frac_mod
@@ -3658 +3660 @@
        IF (iflag_alp_wk_cond .GT. 0.) THEN
 
+         CALL alpale_wk_first(cell_area)
          CALL alpale_wk(phys_tstep, cell_area, wake_k, wake_s, wake_dens, wake_fip_0, &
                         wake_fip)
@@ -3844 +3847 @@
           !
 !
+          CALL alpale_th_first()
           CALL alpale_th( phys_tstep, lmax_th, t_seri, cell_area,  &
                           cin, s2, n2, strig, &