Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/qsatseaw_1D.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/qsatseaw_1D.F90 (modified) (5 diffs)

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

@@ -1 +1 @@
 !-------------------------------------------------------------------------------
-!
+
 !     ######################################
 REAL       FUNCTION QSATSEAW_1D(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
@@ -70 +70 @@
 
 !*       0.1   Declarations of arguments and results
-!
-!
+
+
 REAL, DIMENSION(klon), INTENT(IN)                :: PT     ! Temperature
                                                         ! (Kelvin)
@@ -80 +80 @@
                                                         ! with respect to
                                                         ! water (kg/kg)
-!
+
 !*       0.2   Declarations of local variables
-!
+
 REAL, DIMENSION(SIZE(PT))                   :: ZFOES  ! saturation vapor 
                                                         ! pressure
                                                         ! (Pascal) 
-!
+
 INTEGER                         :: JJ   ! loop index
 !REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !-------------------------------------------------------------------------------
-!
+
 !IF (LHOOK) CALL DR_HOOK('MODE_THERMOS:QSATSEAW_1D',0,ZHOOK_HANDLE)
 !DO JJ = 1, SIZE(PT)
 !*       1.    COMPUTE SATURATION VAPOR PRESSURE
 !              ---------------------------------
-!
+
 ZFOES = 0.98*EXP( XALPW - XBETAW/PT - XGAMW*LOG(PT)  )
 ! vapor pressure reduction of 2% over saline seawater could have a significant 
 ! impact on the computation of surface latent heat flux under strong wind 
 ! conditions (Zeng et al, 1998). 
-!
+
 !*       2.    COMPUTE SATURATION HUMIDITY
 !              ---------------------------
-!
+
 PQSAT = XRD/XRV*ZFOES/PP /(1.+(XRD/XRV-1.)*ZFOES/PP)  
-!
+
 !ENDDO
 !IF (LHOOK) CALL DR_HOOK('MODE_THERMOS:QSATSEAW_1D',1,ZHOOK_HANDLE)
 !-------------------------------------------------------------------------------
-!
+
 END FUNCTION QSATSEAW_1D
 !------------------------------------