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 11175 – NEMO

Changeset 11175


Ignore:
Timestamp:
2019-06-24T13:41:31+02:00 (5 years ago)
Author:
smueller
Message:

Assignment of default value .false. to module variable ln_apr_obc in module sbcapr to prevent the use of an uninitialised namelist parameter described in ticket #2235

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/releases/release-4.0/src/OCE/SBC/sbcapr.F90

    r10425 r11175  
    2626   PUBLIC   sbc_apr_init  ! routine called in sbcmod 
    2727    
    28    !                                !!* namsbc_apr namelist (Atmospheric PRessure) * 
    29    LOGICAL, PUBLIC ::   ln_apr_obc   !: inverse barometer added to OBC ssh data  
    30    LOGICAL, PUBLIC ::   ln_ref_apr   !: ref. pressure: global mean Patm (F) or a constant (F) 
    31    REAL(wp)        ::   rn_pref      !  reference atmospheric pressure   [N/m2] 
     28   !                                          !!* namsbc_apr namelist (Atmospheric PRessure) * 
     29   LOGICAL, PUBLIC ::   ln_apr_obc = .false.   !: inverse barometer added to OBC ssh data  
     30   LOGICAL, PUBLIC ::   ln_ref_apr             !: ref. pressure: global mean Patm (F) or a constant (F) 
     31   REAL(wp)        ::   rn_pref                !  reference atmospheric pressure   [N/m2] 
    3232 
    3333   REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) ::   ssh_ib    ! Inverse barometer now    sea surface height   [m] 
Note: See TracChangeset for help on using the changeset viewer.