Changeset 12842


Ignore:
Timestamp:
2020-05-01T12:53:19+02:00 (7 months ago)
Author:
cetlod
Message:

r4.0-HEAD_r12713_clem_dan_fixcpl : bugfix on BDY & TOP, see ticket #2389

Location:
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OFF/nemogcm.F90

    r12640 r12842  
    2727   USE usrdef_nam     ! user defined configuration 
    2828   USE eosbn2         ! equation of state            (eos bn2 routine) 
    29    !              ! ocean physics 
     29   !                  ! ocean physics 
     30   USE bdy_oce,  ONLY : ln_bdy 
     31   USE bdyini         ! open boundary cond. setting       (bdy_init routine) 
    3032   USE ldftra         ! lateral diffusivity setting    (ldf_tra_init routine) 
    3133   USE ldfslp         ! slopes of neutral surfaces     (ldf_slp_init routine) 
     
    312314 
    313315                           CALL     sbc_init    ! Forcings : surface module 
     316                           CALL     bdy_init    ! Open boundaries initialisation                           
    314317 
    315318      !                                      ! Tracer physics 
     
    476479      USE zdf_oce,   ONLY : zdf_oce_alloc 
    477480      USE trc_oce,   ONLY : trc_oce_alloc 
     481      USE bdy_oce,   ONLY : bdy_oce_alloc 
    478482      ! 
    479483      INTEGER :: ierr 
     
    485489      ierr = ierr + zdf_oce_alloc()          ! ocean vertical physics 
    486490      ierr = ierr + trc_oce_alloc()          ! shared TRC / TRA arrays 
     491      ierr = ierr + bdy_oce_alloc()    ! bdy masks (incl. initialization) 
     492       
    487493      ! 
    488494      CALL mpp_sum( 'nemogcm', ierr ) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/TOP/MY_TRC/trcsms_my_trc.F90

    r10425 r12842  
    1515   USE trd_oce 
    1616   USE trdtrc 
    17    USE trcbc, only : trc_bc 
    1817 
    1918   IMPLICIT NONE 
     
    5453      IF( l_trdtrc )  ALLOCATE( ztrmyt(jpi,jpj,jpk) ) 
    5554 
    56       CALL trc_bc ( kt )       ! tracers: surface and lateral Boundary Conditions 
    57  
    5855      ! add here the call to BGC model 
    5956 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/TOP/TRP/trctrp.F90

    r10068 r12842  
    2424   USE trcsbc          ! surface boundary condition          (trc_sbc routine) 
    2525   USE zpshde          ! partial step: hor. derivative       (zps_hde routine) 
     26   USE trcbc           ! Tracers boundary condtions          ( trc_bc routine) 
    2627   USE bdy_oce   , ONLY: ln_bdy 
    2728   USE trcbdy          ! BDY open boundaries 
     
    6364         IF( ln_trabbl )        CALL trc_bbl    ( kt )      ! advective (and/or diffusive) bottom boundary layer scheme 
    6465         IF( ln_trcdmp )        CALL trc_dmp    ( kt )      ! internal damping trends 
     66                                CALL trc_bc     ( kt )      ! BC for BDY 
    6567         IF( ln_bdy )           CALL trc_bdy_dmp( kt )      ! BDY damping trends 
    6668                                CALL trc_adv    ( kt )      ! horizontal & vertical advection  
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/TOP/trcbc.F90

    r11536 r12842  
    153153               IF(trcdta_bdy(jn,ib)%cn_obc == 'frs' .AND. nn_trcdmp_bdy(ib) /= 0 )  & 
    154154                   & CALL ctl_stop( 'trc_bc_ini: Use FRS OR relaxation' ) 
    155                IF(  .NOT.( 0 < nn_trcdmp_bdy(ib)  .AND.  nn_trcdmp_bdy(ib) <= 2 )  )   & 
     155               IF(  .NOT.( 0 <= nn_trcdmp_bdy(ib)  .AND.  nn_trcdmp_bdy(ib) <= 2 )  ) 
    156156                   & CALL ctl_stop( 'trc_bc_ini: Not a valid option for nn_trcdmp_bdy. Allowed: 0,1,2.' ) 
    157157            END DO 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/TOP/trcini.F90

    r12136 r12842  
    218218      IF( ln_trcdta )   CALL trc_dta_ini( jptra )      ! set initial tracers values 
    219219      ! 
    220       IF( ln_my_trc )   CALL trc_bc_ini ( jptra )      ! set tracers Boundary Conditions 
     220      CALL trc_bc_ini ( jptra )      ! set tracers Boundary Conditions 
    221221      ! 
    222222      ! 
Note: See TracChangeset for help on using the changeset viewer.