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 2176 for branches/DEV_r1924_visbeck/NEMO/OPA_SRC/step.F90 – NEMO

Ignore:
Timestamp:
2010-10-07T09:39:02+02:00 (14 years ago)
Author:
sga
Message:

NEMO branch DEV_r1924_visbeck.

Add code to be cut from branch DEV_r1924_nocs_latphys at revision 2163

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r1924_visbeck/NEMO/OPA_SRC/step.F90

    r1793 r2176  
    8585   USE ldfslp          ! iso-neutral slopes               (ldf_slp routine) 
    8686   USE ldfeiv          ! eddy induced velocity coef.      (ldf_eiv routine) 
     87   USE ldfeiv_vis      ! eddy induced velocity coef.  (ldf_eiv_vis routine) 
    8788 
    8889   USE zdftmx          ! tide-induced vertical mixing     (zdf_tmx routine) 
     
    237238      ENDIF 
    238239#if defined key_traldf_c2d 
    239       IF( lk_traldf_eiv )   CALL ldf_eiv( kstp )      ! eddy induced velocity coefficient 
     240      IF( lk_traldf_eiv )  THEN                                  ! eddy induced velocity coefficient 
     241         IF ( ln_traldf_vis )   THEN 
     242            CALL ldf_eiv_vis( kstp ) 
     243         ELSE 
     244            CALL ldf_eiv( kstp ) 
     245         ENDIF 
     246      ENDIF 
    240247#  endif 
    241248 
Note: See TracChangeset for help on using the changeset viewer.