- 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/trabbl.F90
r2892 r2910 311 311 312 312 313 SUBROUTINE bbl( kt, nit000, cdtype )313 SUBROUTINE bbl( kt, kit000, cdtype ) 314 314 !!---------------------------------------------------------------------- 315 315 !! *** ROUTINE bbl *** … … 343 343 ! 344 344 INTEGER , INTENT(in ) :: kt ! ocean time-step index 345 INTEGER , INTENT(in ) :: nit000 ! first time step index345 INTEGER , INTENT(in ) :: kit000 ! first time step index 346 346 CHARACTER(len=3), INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) 347 347 !! … … 390 390 ENDIF 391 391 392 IF( kt == nit000 ) THEN392 IF( kt == kit000 ) THEN 393 393 IF(lwp) WRITE(numout,*) 394 394 IF(lwp) WRITE(numout,*) 'trabbl:bbl : Compute bbl velocities and diffusive coefficients in ', cdtype … … 538 538 !! 539 539 !! ** Method : Read the nambbl namelist and check the parameters 540 !! called by nemo_init at the first timestep ( nit000)540 !! called by nemo_init at the first timestep (kit000) 541 541 !!---------------------------------------------------------------------- 542 542 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
Note: See TracChangeset
for help on using the changeset viewer.