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 592 for trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90 – NEMO

Ignore:
Timestamp:
2007-02-09T10:15:25+01:00 (17 years ago)
Author:
opalod
Message:

nemo_v2_update_001 : CT : - add non linear free surface (variable volume) with new cpp key key_vvl

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90

    r503 r592  
    304304 
    305305      ! Surface value 
    306       IF( lk_dynspg_rl ) THEN 
    307          ! rigid lid : flux set to zero 
     306      IF( lk_dynspg_rl .OR. lk_vvl ) THEN 
     307         ! rigid lid or variable volume: flux set to zero 
    308308         zwx(:,:, 1 ) = 0.e0    ;    zwy(:,:, 1 ) = 0.e0 
    309309      ELSE 
Note: See TracChangeset for help on using the changeset viewer.