- 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/tradmp.F90
r3211 r4409 282 282 ! REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: presto ! restoring coeff. (s-1) 283 283 !FTRANS presto :I :I :z 284 REAL(wp), INTENT(inout) :: presto(jpi,jpj,jpk ) ! restoring coeff. (s-1)284 REAL(wp), INTENT(inout) :: presto(jpi,jpj,jpkorig) ! restoring coeff. (s-1) 285 285 ! 286 286 INTEGER :: ji, jj, jk, jn ! dummy loop indices … … 388 388 ! REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) :: presto ! restoring coeff. (s-1) 389 389 !FTRANS presto :I :I :z 390 REAL(wp), INTENT(inout) :: presto(jpi,jpj,jpk ) ! restoring coeff. (s-1)390 REAL(wp), INTENT(inout) :: presto(jpi,jpj,jpkorig) ! restoring coeff. (s-1) 391 391 392 392 ! … … 656 656 ! REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT( out ) :: pdct ! distance to the coastline 657 657 !FTRANS pdct :I :I :z 658 REAL(wp), DIMENSION(jpi,jpj,jpk ), INTENT( out ) :: pdct ! distance to the coastline658 REAL(wp), DIMENSION(jpi,jpj,jpkorig), INTENT( out ) :: pdct ! distance to the coastline 659 659 660 660 !!
Note: See TracChangeset
for help on using the changeset viewer.