Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/qsat_seawater.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/qsat_seawater.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/qsat_seawater.F90

@@ -1 +1 @@
 !-------------------------------------------------------------------------------
-!
+
 !     ######################################
 REAL      FUNCTION QSAT_SEAWATER(PT,PP) 
 !     ######################################
-!
+
 !!****  *QSATW * - function to compute saturation vapor humidity from
 !!                 temperature
@@ -12 +12 @@
 !       The purpose of this function is to compute the saturation vapor 
 !     pressure from temperature over saline seawater
-!      
-!
+
+
 !!**  METHOD
 !!    ------
@@ -59 +59 @@
 !!      Original    6/04/2005 
 !-------------------------------------------------------------------------------
-!
+
 !*       0.    DECLARATIONS
 !              ------------
-!
+
 USE MODD_CSTS
 USE dimphy
 USE indice_sol_mod
-!
+
 IMPLICIT NONE
-!
+
 !*       0.1   Declarations of arguments and results
-!
-!
+
 
 REAL, DIMENSION(klon), INTENT(IN)                :: PT     ! Temperature
@@ -82 +81 @@
                                                         ! water (kg/kg)
 
-!
 !*       0.2   Declarations of local variables
-!
+
 REAL, DIMENSION(SIZE(PT))                   :: ZFOES  ! saturation vapor 
                                                         ! pressure
                                                         ! (Pascal) 
-!
+
 REAL, DIMENSION(SIZE(PT))                   :: ZWORK1
 REAL                                        :: ZWORK2
 !REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !-------------------------------------------------------------------------------
-!
+
 !IF (LHOOK) CALL DR_HOOK('MODE_THERMOS:QSATSEAW_1D',0,ZHOOK_HANDLE)
-!
+
 !ZFOES  = 1 !PSAT(PT(:))
 !ZFOES  = 0.98*ZFOES
@@ -103 +101 @@
 ! impact on the computation of surface latent heat flux under strong wind 
 ! conditions (Zeng et al, 1998). 
-!
+
 ZWORK1 = ZFOES/PP
 ZWORK2    = XRD/XRV
-!
+
 !*       2.    COMPUTE SATURATION HUMIDITY
 !              ---------------------------
-!
+
 PQSAT = ZWORK2*ZWORK1 / (1.+(ZWORK2-1.)*ZWORK1)
-!
+
 !IF (LHOOK) CALL DR_HOOK('MODE_THERMOS:QSATSEAW_1D',1,ZHOOK_HANDLE)
 !-------------------------------------------------------------------------------
-!
+
 END FUNCTION QSAT_SEAWATER
-!
+
 !-------------------------------------------------------------------------------