Changeset 5842 for LMDZ6

Timestamp:

Sep 25, 2025, 5:09:22 PM (3 months ago)

Author:

rkazeroni

Message:

For GPU porting of diag_slp 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/ctstar.f90 (modified) (2 diffs)
• phylmd/diag_slp.f90 (modified) (4 diffs)
• phylmd/physiq_mod.F90 (modified) (1 diff)
• phylmd/pppmer.f90 (modified) (2 diffs)
• phylmdiso/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/ctstar.f90

@@ +1 @@
+!$gpum horizontal kproma kprof
+MODULE ctstart_mod
+  PRIVATE
+
+  PUBLIC ctstar
+
+  CONTAINS
+
 SUBROUTINE CTSTAR(KPROMA,KSTART,KPROF,PTB,PRESBH,PRESBF,POROG,PTSTAR,PT0)
 
@@ -128 +136 @@
 !IF (LHOOK) CALL DR_HOOK('CTSTAR',1,ZHOOK_HANDLE)
 END SUBROUTINE CTSTAR
+
+END MODULE ctstart_mod

LMDZ6/trunk/libf/phylmd/diag_slp.f90

@@ +1 @@
+!$gpum horizontal nlon klon
+MODULE diag_slp_mod
+  PRIVATE
+
+  PUBLIC diag_slp
+
+  CONTAINS
+
 SUBROUTINE diag_slp(nlon,t,pab,pal,pphis,tasfc,tastd,pmer)
  USE dimphy
@@ -4 +12 @@
  USE phys_output_ctrlout_mod
  USE phys_local_var_mod
+ USE ctstart_mod, ONLY: ctstar
+ USE pppmer_mod, ONLY: pppmer
+
  IMPLICIT NONE
   !>======================================================================
@@ -24 +35 @@
   !! pmer---output-R-pression au niveau de la mer (en Pa)
   !!======================================================================
-  INTEGER nlon
+  INTEGER, INTENT(IN) :: nlon
   REAL t(nlon,klev)
   REAL pab(nlon,klev+1)
@@ -44 +55 @@
   RETURN
   END SUBROUTINE diag_slp
+
+END MODULE diag_slp_mod

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -36 +36 @@
     USE clouds_gno_mod, ONLY: clouds_gno
     USE cmp_seri_mod
+    USE diag_slp_mod, ONLY: diag_slp
     USE dimphy
     USE etat0_limit_unstruct_mod

LMDZ6/trunk/libf/phylmd/pppmer.f90

@@ +1 @@
+!$gpum horizontal kproma kprof
+MODULE pppmer_mod
+  PRIVATE
+
+  PUBLIC pppmer
+
+  CONTAINS
+
 SUBROUTINE PPPMER(KPROMA,KSTART,KPROF,PRPRESS,POROG,PTSTAR,PT0,PMSLPPP)
 
@@ -161 +169 @@
 !IM IF (LHOOK) CALL DR_HOOK('PPPMER',1,ZHOOK_HANDLE)
  END SUBROUTINE PPPMER
+
+END MODULE pppmer_mod

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -34 +34 @@
     USE clouds_gno_mod, ONLY: clouds_gno
     USE cmp_seri_mod
+    USE diag_slp_mod, ONLY: diag_slp
     USE dimphy
     USE ener_conserv_mod, ONLY: ener_conserv