Changeset 4915


Ignore:
Timestamp:
2014-11-28T12:39:53+01:00 (6 years ago)
Author:
cetlod
Message:

dev_r4615_CNRS1_10_TEOS10_Ediag : add missing lbc_lnk

Location:
branches/2014/dev_CNRS1_10_TEOS10_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_CNRS1_10_TEOS10_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r4820 r4915  
    4444   USE prtctl          ! Print control 
    4545   USE wrk_nemo        ! Memory Allocation 
     46   USE lbclnk         ! ocean lateral boundary conditions 
    4647   USE timing          ! Timing 
    4748 
     
    452453         END DO 
    453454         ! 
     455         CALL lbc_lnk( prd, 'T', 1. )                    ! Lateral boundary conditions 
     456         ! 
    454457      CASE( 1 )                !==  simplified EOS  ==! 
    455458         ! 
     
    469472            END DO 
    470473         END DO 
     474         ! 
     475         CALL lbc_lnk( prd, 'T', 1. )                    ! Lateral boundary conditions 
    471476         ! 
    472477      END SELECT 
     
    585590      END SELECT 
    586591      ! 
     592      IF(ln_ctl)   CALL prt_ctl( tab3d_1=pab(:,:,:,jp_tem), clinfo1=' rab_3d_t: ', & 
     593         &                       tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', ovlap=1, kdim=jpk ) 
     594      ! 
    587595      IF( nn_timing == 1 )   CALL timing_stop('rab_3d') 
    588596      ! 
     
    668676         END DO 
    669677         ! 
     678         CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. )                    ! Lateral boundary conditions 
     679         CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. )                     
     680         ! 
    670681      CASE( 1 )                  !==  simplified EOS  ==! 
    671682         ! 
     
    685696            END DO 
    686697         END DO 
     698         ! 
     699         CALL lbc_lnk( pab(:,:,jp_tem), 'T', 1. )                    ! Lateral boundary conditions 
     700         CALL lbc_lnk( pab(:,:,jp_sal), 'T', 1. )                     
    687701         ! 
    688702      CASE DEFAULT 
     
    692706         ! 
    693707      END SELECT 
     708      ! 
     709      IF(ln_ctl)   CALL prt_ctl( tab2d_1=pab(:,:,jp_tem), clinfo1=' rab_2d_t: ', & 
     710         &                       tab2d_2=pab(:,:,jp_sal), clinfo2=' rab_2d_s : ' ) 
    694711      ! 
    695712      IF( nn_timing == 1 )   CALL timing_stop('rab_2d') 
  • branches/2014/dev_CNRS1_10_TEOS10_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r4680 r4915  
    198198         DO jj = 1, jpj 
    199199            DO ji = 1, jpi 
    200                zptb(ji,jj) = ptb(ji,jj,mbkt(ji,jj),jn)       ! bottom before T and S 
     200               ik = mbkt(ji,jj) 
     201               zptb(ji,jj) = ptb(ji,jj,ik,jn)       ! bottom before T and S 
    201202            END DO 
    202203         END DO 
Note: See TracChangeset for help on using the changeset viewer.