Changeset 5833 for LMDZ6/trunk/libf/phylmdiso/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/phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -24 +24 @@
     USE add_phys_tend_mod, only : add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, &
   &      fl_ebil, fl_cor_ebil
+    USE alpale_th_mod, ONLY: alpale_th
+    USE alpale_wk_mod, ONLY: alpale_wk
     USE assert_m, only: assert
     USE change_srf_frac_mod