- Timestamp:
- 2014-02-04T13:12:20+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90
r3211 r4409 84 84 85 85 !FTRANS pun pvn pwn :I :I :z 86 REAL(wp), INTENT(inout) :: pun(jpi,jpj,jpk ) ! in : 3 ocean velocity components87 REAL(wp), INTENT(inout) :: pvn(jpi,jpj,jpk ) ! out: 3 ocean velocity components88 REAL(wp), INTENT(inout) :: pwn(jpi,jpj,jpk ) ! increased by the eiv86 REAL(wp), INTENT(inout) :: pun(jpi,jpj,jpkorig) ! in : 3 ocean velocity components 87 REAL(wp), INTENT(inout) :: pvn(jpi,jpj,jpkorig) ! out: 3 ocean velocity components 88 REAL(wp), INTENT(inout) :: pwn(jpi,jpj,jpkorig) ! increased by the eiv 89 89 !! 90 90 INTEGER :: ji, jj, jk ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.