Changeset 4881 for LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.F90
- Timestamp:
- Mar 28, 2024, 6:06:40 PM (7 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.F90
r4657 r4881 14 14 SUBROUTINE coef_diff_turb(dtime, nsrf, knon, ni, & 15 15 ypaprs, ypplay, yu, yv, yq, yt, yts, yqsurf, ycdragm, & 16 ycoefm, ycoefh ,yq2, y drgpro)16 ycoefm, ycoefh ,yq2, yeps, ydrgpro) 17 17 18 18 USE dimphy … … 47 47 ! Output arguments 48 48 !**************************************************************************************** 49 REAL, DIMENSION(klon,klev+1), INTENT(OUT) :: yeps 49 50 REAL, DIMENSION(klon,klev), INTENT(OUT) :: ycoefh 50 51 REAL, DIMENSION(klon,klev), INTENT(OUT) :: ycoefm … … 69 70 ykmq = 0 !ym missing init 70 71 71 72 yeps(:,:) = 0. 73 72 74 !**************************************************************************************** 73 75 ! Calcul de coefficients de diffusion turbulent de l'atmosphere : … … 182 184 CALL yamada4(ni,nsrf,knon,dtime,RG,RD,ypaprs,yt, & 183 185 yzlev,yzlay,yu,yv,yteta, & 184 ycdragm,yq2,y kmm,ykmn,ykmq,yustar, &186 ycdragm,yq2,yeps,ykmm,ykmn,ykmq,yustar, & 185 187 iflag_pbl,ydrgpro) 186 188 !FC
Note: See TracChangeset
for help on using the changeset viewer.