Changeset 921 for codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90
- Timestamp:
- 06/19/19 01:37:50 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90
r920 r921 9 9 USE compute_caldyn_kv_mod, ONLY : compute_caldyn_kv 10 10 USE compute_caldyn_Coriolis_mod, ONLY : compute_caldyn_Coriolis 11 USE compute_caldyn_slow_hydro_mod, ONLY : compute_caldyn_slow_hydro 11 USE compute_caldyn_slow_hydro_mod, ONLY : compute_caldyn_slow_hydro => compute_caldyn_slow_hydro_manual 12 12 USE compute_caldyn_slow_NH_mod, ONLY : compute_caldyn_slow_NH 13 13 USE compute_caldyn_solver_mod, ONLY : compute_caldyn_solver 14 USE compute_caldyn_fast_mod, ONLY : compute_caldyn_fast 14 USE compute_caldyn_fast_mod, ONLY : compute_caldyn_fast => compute_caldyn_fast_manual 15 15 USE compute_NH_geopot_mod, ONLY : compute_NH_geopot 16 16 IMPLICIT NONE … … 136 136 END IF 137 137 u=f_u(ind) 138 CALL compute_caldyn_fast(tau,u,mass,theta,pk,geopot,du) ! computes du_fast and updates u 138 Kv=f_Kv(ind) ! buffer for partial Bernoulli function 139 CALL compute_caldyn_fast(tau,theta,geopot, pk,Kv,du,u) ! computes du_fast and updates u 139 140 ENDDO 140 141 … … 185 186 hv=f_hv(ind) 186 187 Kv=f_Kv(ind) 187 CALL compute_caldyn_slow_hydro( u,mass,hv, hflux,Kv,du, .TRUE.)188 CALL compute_caldyn_slow_hydro(.TRUE., u,mass,hv,Kv, Kv, hflux,du) 188 189 ELSE 189 190 W = f_W(ind)
Note: See TracChangeset
for help on using the changeset viewer.