In this case, we make an explicit prediction of the wind shear to calculate the tke in a forward backward way pay attention that the treatment of the TKE has to be adapted when solving the TKE with a prognostic equation
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | dtime | |||
| integer, | intent(in) | :: | ngrid | |||
| integer, | intent(in) | :: | nlay | |||
| integer, | intent(in) | :: | nsrf | |||
| integer, | intent(in), | DIMENSION(ngrid) | :: | ni | ||
| real, | intent(in), | DIMENSION(ngrid) | :: | cdrag_uv | ||
| real, | intent(in), | DIMENSION(ngrid) | :: | cdrag_t | ||
| real, | intent(in), | DIMENSION(ngrid) | :: | u_surf | ||
| real, | intent(in), | DIMENSION(ngrid) | :: | v_surf | ||
| real, | intent(in), | DIMENSION(ngrid) | :: | temp_surf | ||
| real, | intent(in), | DIMENSION(ngrid,nlay) | :: | wind_u | ||
| real, | intent(in), | DIMENSION(ngrid,nlay) | :: | wind_v | ||
| real, | intent(in), | DIMENSION(ngrid,nlay) | :: | temp | ||
| real, | intent(in), | DIMENSION(ngrid,nlay) | :: | qvap | ||
| real, | intent(in), | DIMENSION(ngrid,nlay) | :: | play | ||
| real, | intent(in), | DIMENSION(ngrid,nlay+1) | :: | pinterf | ||
| real, | intent(inout), | DIMENSION(ngrid,nlay+1) | :: | tke | ||
| real, | intent(out), | DIMENSION(ngrid,nlay+1) | :: | eps | ||
| real, | intent(out), | DIMENSION(ngrid,nlay) | :: | Km_out | ||
| real, | intent(out), | DIMENSION(ngrid,nlay) | :: | Kh_out |