- 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_muscl.F90
r3211 r4409 77 77 CHARACTER(len=3) , INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) 78 78 INTEGER , INTENT(in ) :: kjpt ! number of tracers 79 REAL(wp), DIMENSION( jpk), INTENT(in ) :: p2dt ! vertical profile of tracer time-step79 REAL(wp), DIMENSION( jpkorig ), INTENT(in ) :: p2dt ! vertical profile of tracer time-step 80 80 81 81 !! DCSE_NEMO: This style defeats ftrans … … 87 87 !FTRANS ptb :I :I :z : 88 88 !FTRANS pta :I :I :z : 89 REAL(wp), INTENT(in ) :: pun(jpi,jpj,jpk ) ! ocean velocity component (u)90 REAL(wp), INTENT(in ) :: pvn(jpi,jpj,jpk ) ! ocean velocity component (v)91 REAL(wp), INTENT(in ) :: pwn(jpi,jpj,jpk ) ! ocean velocity component (w)92 REAL(wp), INTENT(in ) :: ptb(jpi,jpj,jpk ,kjpt) ! tracer fields (before)93 REAL(wp), INTENT(inout) :: pta(jpi,jpj,jpk ,kjpt) ! tracer trend89 REAL(wp), INTENT(in ) :: pun(jpi,jpj,jpkorig) ! ocean velocity component (u) 90 REAL(wp), INTENT(in ) :: pvn(jpi,jpj,jpkorig) ! ocean velocity component (v) 91 REAL(wp), INTENT(in ) :: pwn(jpi,jpj,jpkorig) ! ocean velocity component (w) 92 REAL(wp), INTENT(in ) :: ptb(jpi,jpj,jpkorig,kjpt) ! tracer fields (before) 93 REAL(wp), INTENT(inout) :: pta(jpi,jpj,jpkorig,kjpt) ! tracer trend 94 94 95 95 !
Note: See TracChangeset
for help on using the changeset viewer.