Changeset 5834 for LMDZ6/trunk/libf/phylmd/stratocu_if.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/phylmd/stratocu_if.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/stratocu_if.f90

@@ +1 @@
+!$gpum horizontal klon
+MODULE stratocu_if_mod
+  PRIVATE
+
+  PUBLIC stratocu_if
+
+  CONTAINS
+
   SUBROUTINE stratocu_if(klon,klev,pctsrf,paprs, pplay,t &
 ,seuil_inversion,weak_inversion,dthmin)
@@ -80 +88 @@
 
   END SUBROUTINE stratocu_if
+
+END MODULE stratocu_if_mod