Changeset 5942 for LMDZ6/trunk/libf/phylmd/calbeta.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/calbeta.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/calbeta.f90

@@ -24 +24 @@
   INTEGER, INTENT(IN)                :: indice
   INTEGER, INTENT(IN)                :: knon
-  REAL, DIMENSION(klon), INTENT(IN)  :: snow
-  REAL, DIMENSION(klon), INTENT(IN)  :: qsol
+  REAL, DIMENSION(knon), INTENT(IN)  :: snow
+  REAL, DIMENSION(knon), INTENT(IN)  :: qsol
 
   
 ! Variables de sorties
 !****************************************************************************************
-  REAL, DIMENSION(klon), INTENT(OUT) :: vbeta
-  REAL, DIMENSION(klon), INTENT(OUT) :: vcal
-  REAL, DIMENSION(klon), INTENT(OUT) :: vdif
+  REAL, DIMENSION(knon), INTENT(OUT) :: vbeta
+  REAL, DIMENSION(knon), INTENT(OUT) :: vcal
+  REAL, DIMENSION(knon), INTENT(OUT) :: vdif
 
 ! Variables locales