- Timestamp:
- 2011-08-23T12:20:06+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
r2715 r2830 34 34 USE lbclnk ! ocean lateral boundary conditions 35 35 USE prtctl ! Print control 36 #if defined key_top 37 USE trc, ONLY: nittrc000 !get first time step for passive tracers 38 #endif 36 39 37 40 IMPLICIT NONE … … 389 392 ENDIF 390 393 394 #if defined key_top 395 IF( kt == nit000 .OR. (kt == nittrc000 .AND. cdtype == 'TRC')) THEN 396 #else 391 397 IF( kt == nit000 ) THEN 398 #endif 392 399 IF(lwp) WRITE(numout,*) 393 400 IF(lwp) WRITE(numout,*) 'trabbl:bbl : Compute bbl velocities and diffusive coefficients in ', cdtype
Note: See TracChangeset
for help on using the changeset viewer.