Changeset 5868 for LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/freinage.f90

Timestamp:

Nov 17, 2025, 3:50:06 PM (6 weeks ago)

Author:

yann meurdesoif

Message:

Separate pbl_surface into 3 subroutines for GPU port

• pbl_surface_uncompress_pre : prepare computation for sub subsurface before compressing
• pbl_surface_subsrf : each sub-surface is called one after other (horizontal = knon)
• pbl_surface_uncompress_post : sub-surface are uncompressed, computation is done on whole domain (horizontal = klon)

pbl_surface_main becomes the driver, calling pbl_surface_uncompress_pre, and then looping under sub-surface (and calling pbl_surface_subsrf) and then calling pbl_surface_uncompress_post.

YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/freinage.f90 (modified) (3 diffs)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/freinage.f90

@@ -2 +2 @@
 ! $Id$
 !
-  SUBROUTINE freinage(knon, uu, vv,  &
+  SUBROUTINE freinage(klon, knon, uu, vv,  &
        tt,veget,lai, height,ypaprs,ypplay,drag_pro,d_u,d_v)
 
@@ -10 +10 @@
     USE compbl_mod_h
         USE clesphys_mod_h
-    use dimphy, only: klon, klev
+    use dimphy, only: klev
 !    USE control, ONLY: nvm
 !    USE indice_sol_mod, only : nvm_orch
@@ -37 +37 @@
      REAL, DIMENSION(klon,klev)         :: wind
      REAL, DIMENSION(klon, klev)        :: yzlay
-     INTEGER knon
+     INTEGER klon, knon
 
     ! 0.2 OUTPUTS