Changeset 5818 for LMDZ6

Timestamp:

Sep 17, 2025, 1:12:39 PM (3 months ago)

Author:

rkazeroni

Message:

For GPU porting of transp routine:

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

Location:

LMDZ6/trunk/libf

Files:

• phylmd/physiq_mod.F90 (modified) (2 diffs)
• phylmd/transp.f90 (modified) (2 diffs)
• phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -78 +78 @@
     USE time_phylmdz_mod, only: current_time, itau_phy, pdtphys, raz_date, update_time
     USE tracinca_mod, ONLY: config_inca
+    USE transp_mod, ONLY: transp
     USE tropopause_m,     ONLY: dyn_tropopause
     USE vampir
@@ -860 +861 @@
     EXTERNAL phyredem  ! ecrire l'etat de redemarrage de la physique
     EXTERNAL suphel    ! initialiser certaines constantes
-    EXTERNAL transp    ! transport total de l'eau et de l'energie
+    ! EXTERNAL transp    ! transport total de l'eau et de l'energie
     !IM
     EXTERNAL haut2bas  !variables de haut en bas

LMDZ6/trunk/libf/phylmd/transp.f90

@@ -1 +1 @@
 
 ! $Id$
+!$gpum horizontal klon
+MODULE transp_mod
+
+  PRIVATE
+
+  PUBLIC transp
+
+  CONTAINS
 
 SUBROUTINE transp(paprs, tsol, t, q, ql, qs, u, v, geom, & 
@@ -58 +66 @@
   RETURN
 END SUBROUTINE transp
+
+END MODULE transp_mod

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -76 +76 @@
     USE time_phylmdz_mod, only: current_time, itau_phy, pdtphys, raz_date, update_time
     USE tracinca_mod, ONLY: config_inca
+    USE transp_mod, ONLY: transp
     USE tropopause_m,     ONLY: dyn_tropopause
     USE vampir
@@ -933 +934 @@
     EXTERNAL phyredem  ! ecrire l'etat de redemarrage de la physique
     EXTERNAL suphel    ! initialiser certaines constantes
-    EXTERNAL transp    ! transport total de l'eau et de l'energie
+    ! EXTERNAL transp    ! transport total de l'eau et de l'energie
     !IM
     EXTERNAL haut2bas  !variables de haut en bas