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/DOM/dom_oce.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/DOM/dom_oce.F90

    r5862 r5866  
    173173   !! vertical coordinate and scale factors 
    174174   !! --------------------------------------------------------------------- 
    175    !                                 !!* Namelist namzgr : vertical coordinate * 
    176    LOGICAL, PUBLIC ::   ln_zco        !: z-coordinate - full step 
    177    LOGICAL, PUBLIC ::   ln_zps        !: z-coordinate - partial step 
    178    LOGICAL, PUBLIC ::   ln_sco        !: s-coordinate or hybrid z-s coordinate 
    179    LOGICAL, PUBLIC ::   ln_isfcav     !: presence of ISF  
    180  
    181 !!gm 
    182 #if defined key_vvl 
    183    LOGICAL, PUBLIC, PARAMETER ::   lk_vvl = .TRUE.    !: variable grid flag 
    184    LOGICAL, PUBLIC ::   lk_linssh = .FALSE.    !: variable grid flag 
    185 #else 
    186    LOGICAL, PUBLIC, PARAMETER ::   lk_vvl = .FALSE.   !: variable grid flag 
    187    LOGICAL, PUBLIC ::   lk_linssh = .TRUE.    !: variable grid flag 
    188 #endif 
    189 !!gm 
     175   !                                !!* Namelist namzgr : vertical coordinate * 
     176   LOGICAL, PUBLIC ::   ln_zco       !: z-coordinate - full step 
     177   LOGICAL, PUBLIC ::   ln_zps       !: z-coordinate - partial step 
     178   LOGICAL, PUBLIC ::   ln_sco       !: s-coordinate or hybrid z-s coordinate 
     179   LOGICAL, PUBLIC ::   ln_isfcav    !: presence of ISF  
     180   LOGICAL, PUBLIC ::   ln_linssh    !: variable grid flag 
    190181 
    191182   !                                                        !  ref.   ! before  !   now   ! after  ! 
Note: See TracChangeset for help on using the changeset viewer.