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 10425 for NEMO/trunk/src/OCE/TRA/eosbn2.F90 – NEMO

Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (6 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/TRA/eosbn2.F90

    r10068 r10425  
    533533         END DO 
    534534         ! 
    535          CALL lbc_lnk( prd, 'T', 1. )                    ! Lateral boundary conditions 
     535         CALL lbc_lnk( 'eosbn2', prd, 'T', 1. )                    ! Lateral boundary conditions 
    536536         ! 
    537537      CASE( np_seos )                !==  simplified EOS  ==! 
    … …  
    553553         END DO 
    554554         ! 
    555          CALL lbc_lnk( prd, 'T', 1. )                    ! Lateral boundary conditions 
     555         CALL lbc_lnk( 'eosbn2', prd, 'T', 1. )                    ! Lateral boundary conditions 
    556556         ! 
    557557      END SELECT 
    … …  
    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 
    … …  
    756755         END DO 
    757756         !                            ! Lateral boundary conditions 
    758          CALL lbc_lnk_multi( pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                     
     757         CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                     
    759758         ! 
    760759      CASE( np_seos )                  !==  simplified EOS  ==! 
    … …  
    776775         END DO 
    777776         !                            ! Lateral boundary conditions 
    778          CALL lbc_lnk_multi( pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                     
     777         CALL lbc_lnk_multi( 'eosbn2', pab(:,:,jp_tem), 'T', 1. , pab(:,:,jp_sal), 'T', 1. )                     
    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.