Changeset 5885 for LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Nov 24, 2025, 6:39:59 PM (5 weeks ago)

Author:

yann meurdesoif

Message:

yamada_c : bug fix

• mismatch index on zlev
• uninitialized levels

+ GPU port of yamada_c
YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/pbl_surface_mod.F90 (modified) (6 diffs)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/pbl_surface_mod.F90

@@ -112 +112 @@
     USE climb_wind_mod, ONLY : climb_wind_init
     USE climb_qbs_mod, ONLY : climb_qbs_init
+    USE yamada_c_mod, ONLY : yamada_c_init
 
     IMPLICIT NONE
@@ -270 +271 @@
     CALL climb_wind_init
     CALL climb_qbs_init
+    CALL yamada_c_init
 
   END SUBROUTINE pbl_surface_init
@@ -2451 +2453 @@
     USE cdrag_mod, ONLY : cdrag
     USE freinage_mod, ONLY : freinage
+    USE yamada_c_mod, ONLY : yamada_c
 
 IMPLICIT NONE
@@ -4415 +4418 @@
      IF (iflag_pbl>=20 .and. iflag_pbl<30) THEN
 
-        CALL yamada_c(knon, knon,dtime,ypaprs,ypplay &
+        CALL yamada_c( knon, knon, dtime,ypaprs,ypplay &
     &   ,yu,yv,yt,y_d_u,y_d_v,y_d_t,ycdragm,ytke,ycoefm,ycoefh,ycoefq,y_d_t_diss,yustar &
     &   ,iflag_pbl)
@@ -4422 +4425 @@
        ELSE  !(iflag_split .eq.0)
 
-        CALL climb_wind_up(knon, ni, dtime, yu_x, yv_x, y_flux_u1_x, y_flux_v1_x, &
+        CALL climb_wind_up( knon, ni, dtime, yu_x, yv_x, y_flux_u1_x, y_flux_v1_x, &
             AcoefU_x, AcoefV_x, BcoefU_x, BcoefV_x, &
             CcoefU_x, CcoefV_x, DcoefU_x, DcoefV_x, &
@@ -4446 +4449 @@
      IF (iflag_pbl>=20 .and. iflag_pbl<30) THEN
 
-        CALL yamada_c(knon, knon,dtime,ypaprs,ypplay &
+        CALL yamada_c( knon, knon,dtime,ypaprs,ypplay &
     &   ,yu_w,yv_w,yt_w,y_d_u_w,y_d_v_w,y_d_t_w,ycdragm_w,ytke_w,ycoefm_w,ycoefh_w &
         ,ycoefq_w,y_d_t_diss_w,yustar_w &