New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 789 for trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90 – NEMO

Ignore:
Timestamp:
2008-01-11T19:04:56+01:00 (16 years ago)
Author:
rblod
Message:

Suppress jki routines and associated key_mpp_omp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/TRA/trazdf_imp.F90

    r719 r789  
    1717   !!   tra_zdf_imp : Update the tracer trend with the diagonal vertical   
    1818   !!                 part of the mixing tensor. 
    19    !!                 Vector optimization, use k-j-i loops. 
    2019   !!---------------------------------------------------------------------- 
    2120   !! * Modules used 
     
    106105      IF( kt == nit000 ) THEN 
    107106         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' 
    109108         IF(lwp)WRITE(numout,*) '~~~~~~~~~~~ ' 
    110109         zavi = 0.e0      ! avoid warning at compilation phase when lk_ldfslp=F 
Note: See TracChangeset for help on using the changeset viewer.