- Timestamp:
- 2010-09-10T12:32:58+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r2052 r2082 31 31 USE domvvl ! variable volume 32 32 USE ldftra ! lateral mixing type 33 USE trc_oce ! share passive tracers/Ocean variables 33 34 34 35 IMPLICIT NONE … … 105 106 !!--------------------------------------------------------------------- 106 107 107 IF( kt == nit000 )THEN108 IF( ( cdtype == 'TRA' .AND. kt == nit000 ) .OR. ( cdtype == 'TRC' .AND. kt == nittrc000 ) ) THEN 108 109 IF(lwp)WRITE(numout,*) 109 IF(lwp)WRITE(numout,*) 'tra_zdf_imp : implicit vertical mixing '110 IF(lwp)WRITE(numout,*) 'tra_zdf_imp : implicit vertical mixing on ', cdtype 110 111 IF(lwp)WRITE(numout,*) '~~~~~~~~~~~ ' 111 112 zavi = 0.e0 ! avoid warning at compilation phase when lk_ldfslp=F
Note: See TracChangeset
for help on using the changeset viewer.