Changeset 5282 for branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90
- Timestamp:
- 2015-05-18T17:19:50+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_ubs.F90
r4990 r5282 81 81 CHARACTER(len=3) , INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) 82 82 INTEGER , INTENT(in ) :: kjpt ! number of tracers 83 REAL(wp) , DIMENSION( jpk ), INTENT(in ) :: p2dt ! vertical profile oftracer time-step83 REAL(wp) , INTENT(in ) :: p2dt ! tracer time-step 84 84 REAL(wp), DIMENSION(jpi,jpj,jpk ), INTENT(in ) :: pun, pvn, pwn ! 3 ocean transport components 85 85 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in ) :: ptb, ptn ! before and now tracer fields … … 207 207 ! update and guess with monotonic sheme 208 208 DO jk = 1, jpkm1 209 z2dtt = p2dt (jk)209 z2dtt = p2dt 210 210 DO jj = 2, jpjm1 211 211 DO ji = fs_2, fs_jpim1 ! vector opt. … … 281 281 !! in-space based differencing for fluid 282 282 !!---------------------------------------------------------------------- 283 REAL(wp), INTENT(in ) , DIMENSION(jpk) :: p2dt ! vertical profile oftracer time-step283 REAL(wp), INTENT(in ) :: p2dt ! tracer time-step 284 284 REAL(wp), DIMENSION (jpi,jpj,jpk) :: pbef ! before field 285 285 REAL(wp), INTENT(inout), DIMENSION (jpi,jpj,jpk) :: paft ! after field … … 340 340 341 341 DO jk = 1, jpkm1 342 z2dtt = p2dt (jk)342 z2dtt = p2dt 343 343 DO jj = 2, jpjm1 344 344 DO ji = fs_2, fs_jpim1 ! vector opt.
Note: See TracChangeset
for help on using the changeset viewer.