- Timestamp:
- 2011-10-13T11:41:49+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r2892 r2910 51 51 CONTAINS 52 52 53 SUBROUTINE tra_adv_tvd ( kt, nit000, cdtype, p2dt, pun, pvn, pwn, &53 SUBROUTINE tra_adv_tvd ( kt, kit000, cdtype, p2dt, pun, pvn, pwn, & 54 54 & ptb, ptn, pta, kjpt ) 55 55 !!---------------------------------------------------------------------- … … 71 71 ! 72 72 INTEGER , INTENT(in ) :: kt ! ocean time-step index 73 INTEGER , INTENT(in ) :: nit000 ! first time step index73 INTEGER , INTENT(in ) :: kit000 ! first time step index 74 74 CHARACTER(len=3) , INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) 75 75 INTEGER , INTENT(in ) :: kjpt ! number of tracers … … 90 90 ENDIF 91 91 92 IF( kt == nit000 ) THEN92 IF( kt == kit000 ) THEN 93 93 IF(lwp) WRITE(numout,*) 94 94 IF(lwp) WRITE(numout,*) 'tra_adv_tvd : TVD advection scheme on ', cdtype
Note: See TracChangeset
for help on using the changeset viewer.