Changeset 5834 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Sep 24, 2025, 3:44:43 PM (2 months ago)

Author:

rkazeroni

Message:

For GPU porting of stratocu_if routine:

• Put routine into module (speeds up source-to-source transformation)
• Add "horizontal" comment to specify possible names of horizontal variables

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -77 +77 @@
     USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
     USE regr_pr_time_av_m, only: regr_pr_time_av
+    USE stratocu_if_mod, ONLY: stratocu_if
     USE surface_data,     ONLY : type_ocean, ok_veget
     USE time_phylmdz_mod, only: current_time, itau_phy, pdtphys, raz_date, update_time