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

Changeset 15514


Ignore:
Timestamp:
2021-11-16T09:58:22+01:00 (6 months ago)
Author:
techene
Message:

#2605 #2715 debug

Location:
NEMO/branches/2021/dev_r14318_RK3_stage1/src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/traadv.F90

    r15512 r15514  
    173173         ! 
    174174         ! TEMP: [tiling] This change not necessary if using XIOS (subdomain support) 
    175          IF( l_iom ) 
     175         IF( l_iom ) THEN 
    176176            IF( ntile == 0 .OR. ntile == nijtile )  THEN                ! Do only on the last tile 
    177177               CALL iom_put( "uocetr_eff", zuu )                                        ! output effective transport 
  • NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stprk3_stg.F90

    r15510 r15514  
    278278!===>>> CAUTION here may be without GM velocity but stokes drift required ! 0 barotropic divergence for GM  != 0 barotropic divergence for SD  
    279279!!st consistence 2D / 3D - flux de masse  
    280       CALL tra_adv( kstp, Kbb, Kmm, ts, Krhs, zaU, zaV, ww, kstg )       ! hor. + vert. advection  ==> RHS 
     280      CALL tra_adv( kstp, Kbb, Kmm, ts, Krhs, zaU, zaV, ww )       ! hor. + vert. advection  ==> RHS 
    281281 
    282282!===>>>>>> stg1&2:  Verify the necessity of these trends (we may need it as there are in the RHS of dynspg_ts ?) 
  • NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcini.F90

    r14227 r15514  
    244244      ! 
    245245      IF( ln_trcdta )   CALL trc_dta_ini( jptra )           ! set initial tracers values 
     246      ! 
     247      tr(:,:,:,:,Kaa) = 0._wp 
    246248      ! 
    247249      IF( ln_trcbc .AND. lltrcbc )  THEN  
     
    271273        !  
    272274      ENDIF 
    273       ! 
    274       tr(:,:,:,:,Kaa) = 0._wp 
    275275      !                                                         ! Partial top/bottom cell: GRADh(tr(Kmm)) 
    276276   END SUBROUTINE trc_ini_state 
Note: See TracChangeset for help on using the changeset viewer.