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 7759 for branches/2016 – NEMO

Changeset 7759 for branches/2016


Ignore:
Timestamp:
2017-03-06T17:24:43+01:00 (7 years ago)
Author:
rblod
Message:

fix for SAS without vvl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

    r7757 r7759  
    119119         ssv_m(:,:) = 0._wp 
    120120         ssh_m(:,:) = 0._wp 
    121          e3t_m(:,:) = e3t_0(:,:,1) !clem: necessary at least for sas2D 
    122          frq_m(:,:) = 1._wp        !              - - 
    123          sshn (:,:) = 0._wp        !              - - 
     121         IF( lk_vvl ) e3t_m(:,:) = e3t_0(:,:,1) !clem: necessary at least for sas2D 
     122         frq_m(:,:) = 1._wp                     !              - - 
     123         sshn (:,:) = 0._wp                     !              - - 
    124124      ENDIF 
    125125       
Note: See TracChangeset for help on using the changeset viewer.