- 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/DYN/dynvor.F90
r3211 r4409 223 223 ! REAL(wp), INTENT(inout), DIMENSION(jpi,jpj,jpk) :: pua ! total u-trend 224 224 ! REAL(wp), INTENT(inout), DIMENSION(jpi,jpj,jpk) :: pva ! total v-trend 225 REAL(wp), INTENT(inout) :: pua(jpi,jpj,jpk ) ! total u-trend226 REAL(wp), INTENT(inout) :: pva(jpi,jpj,jpk ) ! total v-trend225 REAL(wp), INTENT(inout) :: pua(jpi,jpj,jpkorig) ! total u-trend 226 REAL(wp), INTENT(inout) :: pva(jpi,jpj,jpkorig) ! total v-trend 227 227 ! 228 228 INTEGER :: ji, jj, jk ! dummy loop indices … … 459 459 ! REAL(wp), INTENT(inout), DIMENSION(jpi,jpj,jpk) :: pua ! total u-trend 460 460 ! REAL(wp), INTENT(inout), DIMENSION(jpi,jpj,jpk) :: pva ! total v-trend 461 REAL(wp), INTENT(inout) :: pua(jpi,jpj,jpk ) ! total u-trend462 REAL(wp), INTENT(inout) :: pva(jpi,jpj,jpk ) ! total v-trend461 REAL(wp), INTENT(inout) :: pua(jpi,jpj,jpkorig) ! total u-trend 462 REAL(wp), INTENT(inout) :: pva(jpi,jpj,jpkorig) ! total v-trend 463 463 ! 464 464 INTEGER :: ji, jj, jk ! dummy loop indices … … 582 582 ! REAL(wp), INTENT(inout), DIMENSION(jpi,jpj,jpk) :: pua ! total u-trend 583 583 ! REAL(wp), INTENT(inout), DIMENSION(jpi,jpj,jpk) :: pva ! total v-trend 584 REAL(wp), INTENT(inout) :: pua(jpi,jpj,jpk ) ! total u-trend585 REAL(wp), INTENT(inout) :: pva(jpi,jpj,jpk ) ! total v-trend584 REAL(wp), INTENT(inout) :: pua(jpi,jpj,jpkorig) ! total u-trend 585 REAL(wp), INTENT(inout) :: pva(jpi,jpj,jpkorig) ! total v-trend 586 586 !! 587 587 INTEGER :: ji, jj, jk ! dummy loop indices
Note: See TracChangeset
for help on using the changeset viewer.