Changeset 5554 for LMDZ6/trunk/libf/phylmd/Dust/lmdz_spla_bl_for_dms.f90

Timestamp:

Feb 21, 2025, 2:01:55 PM (3 days ago)

Author:

asima

Message:

Encapsulating in modules 3 Dust (SPLA) subroutines with identical names in INCA
(see also r5505);
Related changes in other files, especially some cleaning of chem_mod_f.90.
Everything cf the new coding conventions bien sûr !

File:

• LMDZ6/trunk/libf/phylmd/Dust/lmdz_spla_bl_for_dms.f90 (moved) (moved from LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90) (4 diffs)

LMDZ6/trunk/libf/phylmd/Dust/lmdz_spla_bl_for_dms.f90

@@ -1 @@
-SUBROUTINE bl_for_dms(u,v,paprs,pplay,cdragh,cdragm &
+MODULE lmdz_spla_bl_for_dms
+
+CONTAINS
+
+SUBROUTINE spla_bl_for_dms(klon,klev,u,v,paprs,pplay,cdragh,cdragm &
         ,t,q,tsol,ustar,obklen)
-  USE dimphy
-USE yomcst_mod_h
-  USE yoethf_mod_h
-IMPLICIT NONE
+
+  USE lmdz_spla_ini, ONLY : RG,RD,RCPD,RLVTT,RLSTT,RETV,RTT, &
+          R2ES,R3IES,R3LES,R4IES,R4LES,R5IES,R5LES,RVTMP2
+
+ !USE yoethf_mod_h
   !
   !===================================================================
@@ -19 +24 @@
   !===================================================================
   !
+  IMPLICIT NONE
+
   INCLUDE "FCTTRE.h"
+
+  !
+  INTEGER, intent(in) :: klon,klev
   !
   ! Arguments :
-  REAL :: u(klon,klev)          ! vent zonal
-  REAL :: v(klon,klev)          ! vent meridien
-  REAL :: paprs(klon,klev+1)    ! niveaux de pression aux intercouches (Pa)
-  REAL :: pplay(klon,klev)      ! niveaux de pression aux milieux... (Pa)
-  REAL :: cdragh(klon)          ! coefficient de trainee pour la chaleur
-  REAL :: cdragm(klon)          ! coefficient de trainee pour le vent
-  REAL :: t(klon,klev)          ! temperature
-  REAL :: q(klon,klev)          ! humidite kg/kg
-  REAL :: tsol(klon)            ! temperature du sol
-  REAL :: ustar(klon)           ! vitesse de friction
-  REAL :: obklen(klon)          ! longueur de Monin-Obukhov
+  REAL, dimension(klon,klev), intent(in) :: u          ! vent zonal
+  REAL, dimension(klon,klev), intent(in) :: v          ! vent meridien
+  REAL, dimension(klon,klev+1), intent(in):: paprs    ! niveaux de pression aux intercouches (Pa)
+  REAL, dimension(klon,klev), intent(in) :: pplay     ! niveaux de pression aux milieux... (Pa)
+  REAL, dimension(klon,klev), intent(in) :: t          ! temperature
+  REAL, dimension(klon,klev), intent(in) :: q          ! humidite kg/kg
+  REAL, dimension(klon), intent(in) :: cdragh          ! coefficient de trainee pour la chaleur
+  REAL, dimension(klon), intent(in) :: cdragm          ! coefficient de trainee pour le vent
+  REAL, dimension(klon), intent(in) :: tsol            ! temperature du sol
+  REAL, dimension(klon), intent(out) :: ustar           ! vitesse de friction
+  REAL, dimension(klon), intent(out) :: obklen          ! longueur de Monin-Obukhov
   !
   ! Locales :
@@ -43 +53 @@
   REAL :: zxt, zxu, zxv, zxq, zxqs, zxmod, taux, tauy
   REAL :: zcor, zdelta, zcvm5
-  REAL :: z(klon,klev)
+  REAL, dimension(klon,klev) :: z
   REAL :: zx_alf1, zx_alf2 ! parametres pour extrapolation
-  REAL :: khfs(klon)       ! surface kinematic heat flux [mK/s]
-  REAL :: kqfs(klon)       ! sfc kinematic constituent flux [m/s]
-  REAL :: heatv(klon)      ! surface virtual heat flux
+  REAL, dimension(klon) :: khfs       ! surface kinematic heat flux [mK/s]
+  REAL, dimension(klon) :: kqfs       ! sfc kinematic constituent flux [m/s]
+  REAL, dimension(klon) :: heatv      ! surface virtual heat flux
 
 
@@ -102 +112 @@
   ENDDO
   !
-END SUBROUTINE bl_for_dms
+END SUBROUTINE spla_bl_for_dms
+
+END MODULE lmdz_spla_bl_for_dms