- 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/trazdf_exp.F90
r2715 r2830 31 31 USE in_out_manager ! I/O manager 32 32 USE lib_mpp ! MPP library 33 #if defined key_top 34 USE trc, ONLY: nittrc000 !get first time step for passive tracers 35 #endif 33 36 34 37 IMPLICIT NONE … … 93 96 ENDIF 94 97 98 #if defined key_top 99 IF( kt == nit000 .OR. (kt == nittrc000 .AND. cdtype == 'TRC')) THEN 100 #else 95 101 IF( kt == nit000 ) THEN 102 #endif 96 103 IF(lwp) WRITE(numout,*) 97 104 IF(lwp) WRITE(numout,*) 'tra_zdf_exp : explicit vertical mixing on ', cdtype
Note: See TracChangeset
for help on using the changeset viewer.