Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ustarhb.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (12 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ustarhb.F90
r2346 r4727 2 2 ! $Header$ 3 3 4 SUBROUTINE ustarhb(knon, u, v, cd_m, ustar) 5 USE dimphy 4 SUBROUTINE ustarhb(klon, klev, knon, u, v, cd_m, ustar) 6 5 IMPLICIT NONE 7 6 ! ====================================================================== … … 18 17 ! model. J. of Climate, vol. 6, 1825-1842. 19 18 ! ====================================================================== 20 include "YOMCST.h"21 19 22 20 ! Arguments: 23 21 24 INTEGER knon ! nombre de points a calculer 25 REAL u(klon, klev) ! vitesse U (m/s) 26 REAL v(klon, klev) ! vitesse V (m/s) 27 REAL cd_m(klon) ! coefficient de friction au sol pour vitesse 28 REAL ustar(klon) 22 INTEGER, INTENT(IN) :: klon, klev, knon ! nombre de points a calculer 23 REAL, DIMENSION(klon, klev), INTENT(IN) :: u,v ! vent horizontal (m/s) 24 REAL, DIMENSION(klon), INTENT(IN) :: cd_m ! coefficient de friction au sol pour vitesse 25 REAL, DIMENSION(klon), INTENT(OUT) :: ustar 29 26 30 INTEGER i, k 31 REAL zxt, zxq, zxu, zxv, zxmod, taux, tauy 32 REAL zx_alf1, zx_alf2 ! parametres pour extrapolation 33 LOGICAL unssrf(klon) ! unstb pbl w/lvls within srf pbl lyr 34 LOGICAL unsout(klon) ! unstb pbl w/lvls in outer pbl lyr 35 LOGICAL check(klon) ! True=>chk if Richardson no.>critcal 27 INTEGER :: i, k 28 REAL :: zxt, zxq, zxu, zxv, zxmod, taux, tauy 29 REAL :: zx_alf1, zx_alf2 ! parametres pour extrapolation 36 30 37 include "YOETHF.h"38 include "FCTTRE.h"39 31 DO i = 1, knon 40 32 zx_alf1 = 1.0 … … 46 38 tauy = zxv*zxmod*cd_m(i) 47 39 ustar(i) = sqrt(taux**2+tauy**2) 48 ! print*,'Ust ',zxu,zxmod,taux,ustar(i)49 40 END DO 50 41
Note: See TracChangeset
for help on using the changeset viewer.