Changeset 5942 for LMDZ6/trunk/libf/phylmd/limit_read_mod.f90

Timestamp:

Dec 17, 2025, 7:33:39 PM (4 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.

merge of commit r5868

YM

File:

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

LMDZ6/trunk/libf/phylmd/limit_read_mod.f90

@@ -104 +104 @@
     REAL   , INTENT(IN) :: dtime                     ! pas de temps de la physique (en s)
     INTEGER, INTENT(IN) :: knon                      ! nomber of points on compressed grid
-    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex  ! grid point number for compressed grid
+    INTEGER, DIMENSION(knon), INTENT(IN) :: knindex  ! grid point number for compressed grid
 ! Output arguments
 !****************************************************************************************
-    REAL, DIMENSION(klon), INTENT(OUT) :: rugos_out
-    REAL, DIMENSION(klon), INTENT(OUT) :: alb_out
+    REAL, DIMENSION(knon), INTENT(OUT) :: rugos_out
+    REAL, DIMENSION(knon), INTENT(OUT) :: alb_out
     
 ! Local variables
@@ -138 +138 @@
 
     INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
-    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex  ! grid point number for compressed grid
-    REAL, DIMENSION(klon), INTENT(OUT)   :: sst_out
+    INTEGER, DIMENSION(knon), INTENT(IN) :: knindex  ! grid point number for compressed grid
+    REAL, DIMENSION(knon), INTENT(OUT)   :: sst_out
 
     INTEGER :: i
@@ -157 +157 @@
 
     INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
-    INTEGER, DIMENSION(klon), INTENT(IN) :: knindex  ! grid point number for compressed grid
-    REAL, DIMENSION(klon), INTENT(OUT)   :: hice_out
+    INTEGER, DIMENSION(knon), INTENT(IN) :: knindex  ! grid point number for compressed grid
+    REAL, DIMENSION(knon), INTENT(OUT)   :: hice_out
 
     INTEGER :: i