Changeset 5950 for LMDZ6/trunk/libf/phylmd/qsat_seawater2.f90

Timestamp:

Dec 18, 2025, 5:46:30 PM (3 months ago)

Author:

yann meurdesoif

Message:

GPU port of cdrag + call_atke + coef_diff_turb
Merge of commit r5876
YM

File:

• LMDZ6/trunk/libf/phylmd/qsat_seawater2.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/qsat_seawater2.f90

@@ -1 @@
-!-------------------------------------------------------------------------------
-!
-!     ######################################
-REAL      FUNCTION QSAT_SEAWATER2(PT,PP,PSSS) 
+MODULE qsat_seawater2_mod
+
+
+CONTAINS
+
+REAL   FUNCTION QSAT_SEAWATER2(knon, klon, PT,PP,PSSS) 
+!$gpum horizontal knon
+
 !     ######################################
 !
@@ -50 +54 @@
 !
 USE MODD_CSTS, ONLY : XRD, XRV
-USE dimphy
 USE indice_sol_mod
 !
@@ -58 +61 @@
 !
 !
+INTEGER, INTENT(IN) :: knon  ! horizontal indice compressed
+INTEGER, INTENT(IN) :: klon  ! horizontal indice (fake can be 1)
+
 REAL, DIMENSION(klon), INTENT(IN)                :: PT     ! Temperature
                                                         ! (Kelvin)
@@ -103 +109 @@
 !
 !-------------------------------------------------------------------------------
+
+END MODULE qsat_seawater2_mod