Changeset 5835 for LMDZ6/trunk/libf/phylmd/tend_to_tke.f90

Timestamp:

Sep 24, 2025, 4:03:13 PM (2 months ago)

Author:

rkazeroni

Message:

For GPU porting of tend_to_tke routine:

• Put routine into module (speeds up source-to-source transformation)
• Add "horizontal" comment to specify possible names of horizontal variables
• Fix wrong dimensionality of pctsrf in the argument declaration (leads to GPU memory allocation problems)

File:

• LMDZ6/trunk/libf/phylmd/tend_to_tke.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/tend_to_tke.f90

@@ -32 +32 @@
 !**************************************************************************************
 
+!$gpum horizontal klon
+MODULE tend_to_tke_mod
+  PRIVATE
+
+  PUBLIC tend_to_tke
+
+  CONTAINS
+
  SUBROUTINE tend_to_tke(dt,plev,exner,temp,windu,windv,dt_a,du_a,dv_a,pctsrf,tke)
 
@@ -56 +64 @@
   REAL du_a(klon,klev)      ! Zonal wind speed tendency [m/s], grid-cell average or for a one subsurface
   REAL dv_a(klon,klev)      ! Meridional wind speed tendency [m/s], grid-cell average or for a one subsurface
-  REAL pctsrf(klon,nbsrf+1)       ! Turbulent Kinetic energy [m2/s2], grid-cell average or for a subsurface
+  REAL pctsrf(klon,nbsrf)   ! Turbulent Kinetic energy [m2/s2], grid-cell average or for a subsurface
 
 ! Inputs/Outputs
@@ -149 +157 @@
 
  END SUBROUTINE tend_to_tke
+
+END MODULE tend_to_tke_mod