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/DYN/dynadv_cen2.F90 – NEMO

Ignore:
Timestamp:
2015-11-06T11:42:35+01:00 (8 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/DYN/dynadv_cen2.F90

    r5845 r5866  
    119119            zfv_vw(:,:,jpk) = 0.e0 
    120120            !                                           ! Surface value : 
    121             IF( lk_vvl ) THEN                                ! variable volume : flux set to zero 
    122                zfu_uw(:,:, 1 ) = 0.e0     
    123                zfv_vw(:,:, 1 ) = 0.e0 
     121            IF( .NOT.ln_linssh ) THEN                        ! variable volume : flux set to zero 
     122               zfu_uw(:,:, 1 ) = 0._wp     
     123               zfv_vw(:,:, 1 ) = 0._wp 
    124124            ELSE                                             ! constant volume : advection through the surface 
    125125               DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.