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_ubs.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_ubs.F90

    r5845 r5866  
    208208            zfv_vw(:,:,jpk) = 0.e0 
    209209            !                                           ! Surface value : 
    210             IF( lk_vvl ) THEN                                ! variable volume : flux set to zero 
    211                zfu_uw(:,:, 1 ) = 0.e0     
    212                zfv_vw(:,:, 1 ) = 0.e0 
     210            IF( .NOT.ln_linssh ) THEN                        ! variable volume : flux set to zero 
     211               zfu_uw(:,:, 1 ) = 0._wp 
     212               zfv_vw(:,:, 1 ) = 0._wp 
    213213            ELSE                                             ! constant volume : advection through the surface 
    214214               DO jj = 2, jpjm1 
    215215                  DO ji = fs_2, fs_jpim1 
    216                      zfu_uw(ji,jj, 1 ) = 2.e0 * ( zfw(ji,jj,1) + zfw(ji+1,jj  ,1) ) * un(ji,jj,1) 
    217                      zfv_vw(ji,jj, 1 ) = 2.e0 * ( zfw(ji,jj,1) + zfw(ji  ,jj+1,1) ) * vn(ji,jj,1) 
     216                     zfu_uw(ji,jj, 1 ) = 2._wp * ( zfw(ji,jj,1) + zfw(ji+1,jj  ,1) ) * un(ji,jj,1) 
     217                     zfv_vw(ji,jj, 1 ) = 2._wp * ( zfw(ji,jj,1) + zfw(ji  ,jj+1,1) ) * vn(ji,jj,1) 
    218218                  END DO 
    219219               END DO 
Note: See TracChangeset for help on using the changeset viewer.