Changeset 789 for trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90
- Timestamp:
- 2008-01-11T19:04:56+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r719 r789 17 17 !! tra_zdf_imp : Update the tracer trend with the diagonal vertical 18 18 !! part of the mixing tensor. 19 !! Vector optimization, use k-j-i loops.20 19 !!---------------------------------------------------------------------- 21 20 !! * Modules used … … 106 105 IF( kt == nit000 ) THEN 107 106 IF(lwp)WRITE(numout,*) 108 IF(lwp)WRITE(numout,*) 'tra_zdf_imp : implicit vertical mixing (k-j-i loops)'107 IF(lwp)WRITE(numout,*) 'tra_zdf_imp : implicit vertical mixing' 109 108 IF(lwp)WRITE(numout,*) '~~~~~~~~~~~ ' 110 109 zavi = 0.e0 ! avoid warning at compilation phase when lk_ldfslp=F
Note: See TracChangeset
for help on using the changeset viewer.