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 10417 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA – NEMO

Ignore:
Timestamp:
2018-12-19T15:14:45+01:00 (5 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: suppress the use of nstop out of ctl_stop, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/TRA/eosbn2.F90

    r10170 r10417  
    664664         ! 
    665665      CASE DEFAULT 
    666          IF(lwp) WRITE(numout,cform_err) 
    667          IF(lwp) WRITE(numout,*) '          bad flag value for neos = ', neos 
    668          nstop = nstop + 1 
     666         WRITE(ctmp1,*) '          bad flag value for neos = ', neos 
     667         CALL ctl_stop( 'rab_3d:', ctmp1 ) 
    669668         ! 
    670669      END SELECT 
    … …  
    779778         ! 
    780779      CASE DEFAULT 
    781          IF(lwp) WRITE(numout,cform_err) 
    782          IF(lwp) WRITE(numout,*) '          bad flag value for neos = ', neos 
    783          nstop = nstop + 1 
     780         WRITE(ctmp1,*) '          bad flag value for neos = ', neos 
     781         CALL ctl_stop( 'rab_2d:', ctmp1 ) 
    784782         ! 
    785783      END SELECT 
    … …  
    879877         ! 
    880878      CASE DEFAULT 
    881          IF(lwp) WRITE(numout,cform_err) 
    882          IF(lwp) WRITE(numout,*) '          bad flag value for neos = ', neos 
    883          nstop = nstop + 1 
     879         WRITE(ctmp1,*) '          bad flag value for neos = ', neos 
     880         CALL ctl_stop( 'rab_0d:', ctmp1 ) 
    884881         ! 
    885882      END SELECT 
    … …  
    10401037         ! 
    10411038      CASE DEFAULT 
    1042          IF(lwp) WRITE(numout,cform_err) 
    1043          IF(lwp) WRITE(numout,*) '          bad flag value for neos = ', neos 
    1044          nstop = nstop + 1 
     1039         WRITE(ctmp1,*) '          bad flag value for neos = ', neos 
     1040         CALL ctl_stop( 'eos_fzp_2d:', ctmp1 ) 
    10451041         ! 
    10461042      END SELECT       
    … …  
    10871083         ! 
    10881084      CASE DEFAULT 
    1089          IF(lwp) WRITE(numout,cform_err) 
    1090          IF(lwp) WRITE(numout,*) '          bad flag value for neos = ', neos 
    1091          nstop = nstop + 1 
     1085         WRITE(ctmp1,*) '          bad flag value for neos = ', neos 
     1086         CALL ctl_stop( 'eos_fzp_0d:', ctmp1 ) 
    10921087         ! 
    10931088      END SELECT 
    … …  
    12131208         ! 
    12141209      CASE DEFAULT 
    1215          IF(lwp) WRITE(numout,cform_err) 
    1216          IF(lwp) WRITE(numout,*) '          bad flag value for neos = ', neos 
    1217          nstop = nstop + 1 
     1210         WRITE(ctmp1,*) '          bad flag value for neos = ', neos 
     1211         CALL ctl_stop( 'eos_pen:', ctmp1 ) 
    12181212         ! 
    12191213      END SELECT 
Note: See TracChangeset for help on using the changeset viewer.