Changeset 5881 for LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd

Timestamp:

Nov 24, 2025, 12:03:30 PM (5 weeks ago)

Author:

yann meurdesoif

Message:

GPU port of wx_pbl_prelim_0, wx_pbl_prelim_beta, wx_pbl_dts_merge
YM

Location:

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd

Files:

• wx_pbl_mod.f90 (modified) (4 diffs)
• wx_pbl_var_mod.f90 (modified) (2 diffs)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/wx_pbl_mod.f90

@@ -31 +31 @@
                                  )
 !
-
+!$gpum horizontal knon
 USE yoethf_mod_h
         USE yomcst_mod_h
@@ -167 +167 @@
                                  dTs_ins, dqsatsrf_ins &
                                  )
-!
+!$gpum horizontal knon
 
 USE yoethf_mod_h
@@ -252 +252 @@
 !
     INTEGER                  :: j
+    REAL :: fake_var
 
 
@@ -515 +516 @@
       print *,'wx_pbl_merge, BcoefT0     ', BcoefT0
       print *,'wx_pbl_merge, BcoefQ0     ', BcoefQ0
+      IF (1==0) THEN  !! ym fake test for GPU morphosis that cannot parse correctly variable in PRINT
+                      !! variable appearing only in print are not added in module use only declaration
+        DO j = 1,knon
+          fake_var = qsat0_w(j)
+          fake_var = qsat0_x(j)
+        ENDDO
+      ENDIF 
       print *,'wx_pbl_merge, qsat0_w, qsat0_x ', (qsat0_w(j), qsat0_x(j),j=1,knon)
       print *,'wx_pbl_merge, dqsatdT0_w, dqsatdT0_x ', (dqsatdT0_w(j), dqsatdT0_x(j),j=1,knon)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/wx_pbl_var_mod.f90

@@ -314 +314 @@
                                  Kech_h_x_out, Kech_h_w_out, Kech_h_out  &
                                  )
+!$gpum horizontal knon
 !
 USE yoethf_mod_h
@@ -538 +539 @@
                                  BcoefQ_x, BcoefQ_w &
                                  )
+!$gpum horizontal knon
 !
     USE print_control_mod, ONLY: prt_level,lunout