Changeset 641
- Timestamp:
- 2007-03-09T15:49:36+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traadv_qck.F90
r637 r641 585 585 !! 'key_mpp_omp' : quickest advection (k- and j-slabs) 586 586 !!---------------------------------------------------------------------- 587 SUBROUTINE tra_adv_qck( kt, pun, pvn, pwn )587 SUBROUTINE tra_adv_qck( kt, pun, pvn, pwn ) 588 588 !!---------------------------------------------------------------------- 589 589 !! * Arguments 590 590 INTEGER, INTENT( in ) :: kt ! ocean time-step index 591 REAL(wp), INTENT(in), DIMENSION(jpi,jpj,jpk) :: pun ! effective ocean velocity, u_component 592 REAL(wp), INTENT(in), DIMENSION(jpi,jpj,jpk) :: pvn ! effective ocean velocity, v_component 593 REAL(wp), INTENT(in), DIMENSION(jpi,jpj,jpk) :: pwn ! effective ocean velocity, w_component 591 594 !!---------------------------------------------------------------------- 592 595 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.