Changeset 4881 for LMDZ6/trunk/libf/phylmd/lmdz_call_atke.F90
- Timestamp:
- Mar 28, 2024, 6:06:40 PM (7 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_call_atke.F90
r4745 r4881 10 10 subroutine call_atke(dtime,ngrid,nlay,cdrag_uv,cdrag_t,u_surf,v_surf,temp_surf, & 11 11 wind_u,wind_v,temp,qvap,play,pinterf, & 12 tke, Km_out,Kh_out)12 tke,eps,Km_out,Kh_out) 13 13 14 14 … … 43 43 44 44 45 REAL, DIMENSION(ngrid,nlay+1), INTENT(INOUT) :: tke ! turbulent kinetic energy at interface between layers45 REAL, DIMENSION(ngrid,nlay+1), INTENT(INOUT) :: tke ! turbulent kinetic energy at interface between layers 46 46 47 REAL, DIMENSION(ngrid,nlay+1), INTENT(OUT) :: eps ! output: tke dissipation rate at interface between layers 47 48 REAL, DIMENSION(ngrid,nlay), INTENT(OUT) :: Km_out ! output: Exchange coefficient for momentum at interface between layers 48 49 REAL, DIMENSION(ngrid,nlay), INTENT(OUT) :: Kh_out ! output: Exchange coefficient for heat flux at interface between layers … … 56 57 call atke_compute_km_kh(ngrid,nlay,dtime,& 57 58 wind_u,wind_v,temp,qvap,play,pinterf,cdrag_uv,& 58 tke, Km_out,Kh_out)59 tke,eps,Km_out,Kh_out) 59 60 60 61 … … 75 76 call atke_compute_km_kh(ngrid,nlay,dtime,& 76 77 wind_u_predict,wind_v_predict,temp,qvap,play,pinterf,cdrag_uv, & 77 tke, Km_out,Kh_out)78 tke,eps,Km_out,Kh_out) 78 79 79 80 end if
Note: See TracChangeset
for help on using the changeset viewer.