Changeset 5884

Timestamp:

Nov 24, 2025, 4:12:17 PM (2 days ago)

Author:

yann meurdesoif

Message:

GPU port of wx_evappot, wx_pbl_split, wx_pbl_check, wx_pbl_dts_check

YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/wx_pbl_mod.f90 (modified) (9 diffs)

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

@@ -577 +577 @@
                        )
 !
+!$gpum horizontal knon
 
     USE yomcst_mod_h
@@ -733 +734 @@
                                )
 !
+!$gpum horizontal knon
 
 USE yoethf_mod_h
@@ -788 +790 @@
     REAL                       :: Kech_Q_sw1, Kech_Q_sx1
     REAL                       :: evap_pot
+    REAL                       :: fake_var !ym : to supress in future version of gpumorphosis
 
 !----------------------------------------------------------------------------
@@ -829 +832 @@
 !!   L_v(1:knon) = RLvtt
     IF (prt_level >=10 ) THEN
+      IF (1==0) THEN  !ym fake test for gpumorphosis : to supress in future...
+        DO j=1,knon 
+         fake_var = qsat0(j)
+         fake_var = Ts0(j)
+        ENDDO
+      ENDIF
       print *,' AAAA wx_pbl_check, C_p(j), qsat0(j), Ts0(j) : ', C_p(:), qsat0(:), Ts0(:)
     ENDIF ! (prt_level >=10 )
@@ -892 +901 @@
 !------------------------------------------------------------------------------------------------------
    print *, 'wx_pbl_check: j, qsat01(j), qsat0(j) ', j, qsat01(j), qsat0(j)
+   IF (1==0) fake_var=dqsatdT0(j)
    print *, 'wx_pbl_check: j, dqsatdT01(j), dqsatdT0(j) ', j, dqsatdT01(j), dqsatdT0(j)
 !
@@ -978 +988 @@
                                )
 !
-
+!$gpum horizontal knon
 USE yoethf_mod_h
         USE yomcst_mod_h
@@ -1042 +1052 @@
     REAL                       :: dRN_m_dRn0
     REAL                       :: phiTb_m_phiT0b
+    REAl                       :: fake_var
 
 !----------------------------------------------------------------------------
@@ -1114 +1125 @@
                     + dd_HTRn(j)/HTphiT_b(j)*(phiT_b9(j)-phiT0_b9(j))
 !
+    if (1==0) fake_var=L_v(j)
           print *,'wx_pbl_dts_check, dphiT, L_v*dphiQ, dRn, dTs ', &
               phiT_w9(j)-phiT_x9(j), L_v(j)*(phiQ_w9(j)-phiQ_x9(j)), dRn(j), dTs9(j)
@@ -1219 +1231 @@
 
 SUBROUTINE wx_evappot(knon, q1, Ts, evap_pot)
-
+!$gpum horizontal knon
     USE wx_pbl_var_mod