- Timestamp:
- Dec 9, 2025, 1:54:11 PM (2 days ago)
- Location:
- LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd
- Files:
-
- 2 edited
-
lmdz_atke_exchange_coeff.f90 (modified) (2 diffs)
-
lmdz_call_atke.f90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/lmdz_atke_exchange_coeff.f90
r5268 r5922 8 8 wind_u,wind_v,temp,qvap,play,pinterf,cdrag_uv, & 9 9 tke,eps,tke_shear,tke_buoy,tke_trans,Km_out,Kh_out) 10 !$gpum horizontal ngrid 10 11 11 12 !======================================================================== … … 411 412 !=============================================================================================== 412 413 subroutine atke_vdiff_tke(ngrid,nlay,dtime,z_lay,z_interf,temp,play,l_exchange,Sm,tke,tke_trans) 414 !$gpum horizontal ngrid 413 415 414 416 ! routine that computes the vertical diffusion of TKE by the turbulence -
LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/lmdz_call_atke.f90
r5876 r5922 103 103 104 104 subroutine atke_explicit_prediction(ngrid,nlay,rg,rd,dtime,pinterf,play,temp,wind1,x_in,K_in,x_surf,cdrag,x_predict) 105 !$gpum horizontal ngrid 105 106 106 107 INTEGER, INTENT(IN) :: ngrid ! number of horizontal index (flat grid)
Note: See TracChangeset
for help on using the changeset viewer.
