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 5866 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90 – NEMO

Ignore:
Timestamp:
2015-11-06T11:42:35+01:00 (9 years ago)
Author:
gm
Message:

#1613: vvl by default: add ln_linssh and remove key_vvl

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

    r5845 r5866  
    305305      CASE( jptra_zad  )   ;   CALL iom_put( "ttrd_zad" , ptrdx )        ! z- vertical   advection 
    306306                               CALL iom_put( "strd_zad" , ptrdy ) 
    307                                IF( .NOT. lk_vvl ) THEN                   ! cst volume : adv flux through z=0 surface 
     307                               IF( ln_linssh ) THEN                   ! cst volume : adv flux through z=0 surface 
    308308                                  CALL wrk_alloc( jpi, jpj, z2dx, z2dy ) 
    309309                                  z2dx(:,:) = wn(:,:,1) * tsn(:,:,1,jp_tem) / e3t_n(:,:,1) 
Note: See TracChangeset for help on using the changeset viewer.