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

Timestamp:

Dec 17, 2025, 7:33:39 PM (5 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/soil.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/soil.f90

@@ -66 +66 @@
   REAL, INTENT(IN)                     :: ptimestep
   INTEGER, INTENT(IN)                  :: indice, knon !, knindex
-  REAL, DIMENSION(klon), INTENT(IN)    :: snow
-  REAL, DIMENSION(klon), INTENT(IN)    :: ptsrf
-  REAL, DIMENSION(klon), INTENT(IN)    :: qsol
-  REAL, DIMENSION(klon), INTENT(IN)    :: lon
-  REAL, DIMENSION(klon), INTENT(IN)    :: lat
-
-  REAL, DIMENSION(klon,nsoilmx), INTENT(INOUT) :: ptsoil
-  REAL, DIMENSION(klon), INTENT(OUT)           :: pcapcal
-  REAL, DIMENSION(klon), INTENT(OUT)           :: pfluxgrd
+  REAL, DIMENSION(knon), INTENT(IN)    :: snow
+  REAL, DIMENSION(knon), INTENT(IN)    :: ptsrf
+  REAL, DIMENSION(knon), INTENT(IN)    :: qsol
+  REAL, DIMENSION(knon), INTENT(IN)    :: lon
+  REAL, DIMENSION(knon), INTENT(IN)    :: lat
+
+  REAL, DIMENSION(knon,nsoilmx), INTENT(INOUT) :: ptsoil
+  REAL, DIMENSION(knon), INTENT(OUT)           :: pcapcal
+  REAL, DIMENSION(knon), INTENT(OUT)           :: pfluxgrd
 
 !-----------------------------------------------------------------------
@@ -83 +83 @@
   REAL, DIMENSION(nsoilmx)            :: zdz2
   REAL                                :: z1s
-  REAL, DIMENSION(klon)               :: ztherm_i
-  REAL, DIMENSION(klon,nsoilmx,nbsrf) :: C_coef, D_coef
+  REAL, DIMENSION(knon)               :: ztherm_i
+  REAL, DIMENSION(knon,nsoilmx,nbsrf) :: C_coef, D_coef
 
 ! Local saved variables