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 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcini.F90 – NEMO

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

#2605 #2715 debug

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.