Changeset 5942 for LMDZ6/trunk/libf/phylmd/physiq_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/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -65 +65 @@
     USE orografi_strato_mod, ONLY: drag_noro_strato, lift_noro_strato, sugwd_strato
     USE ozonecm_m, only: ozonecm ! ozone of J.-F. Royer
-    USE pbl_surface_mod, ONLY : pbl_surface
+    USE pbl_surface_mod, ONLY : pbl_surface_main
     USE phyaqua_mod, only: zenang_an
     USE phyetat0_mod, only: phyetat0
@@ -2959 +2959 @@
        ENDIF
 
-       CALL pbl_surface(  &
+              CALL pbl_surface_main(  &
             phys_tstep,     date0,     itap,    days_elapsed+1, &
             debut,     lafin, &
@@ -2991 +2991 @@
             kh,kh_x,kh_w, &
                                 !>nrlmd
-            coefh(1:klon,1:klev,1:nbsrf+1), coefm(1:klon,1:klev,1:nbsrf+1), &
+            coefh, coefm, &
             slab_wfbils,                 &
             qsol,      zq2m,      s_pblh,  s_lcl, &