Changeset 404


Ignore:
Timestamp:
2006-03-20T16:54:10+01:00 (15 years ago)
Author:
opalod
Message:

nemo_v1_bugfix_023 : CT : add arrays initialization and passive tracer index jn in the CALL to nonosc subroutine

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

    r361 r404  
    8484      !!---------------------------------------------------------------------- 
    8585 
     86      zti(:,:,:) = 0.e0 
     87 
    8688      IF( kt == nittrc000  .AND. lwp ) THEN 
    8789         WRITE(numout,*) 
     
    220222         ! 4. monotonicity algorithm 
    221223         ! ------------------------- 
    222          CALL nonosc( trb, ztu, ztv, ztw, zti, z2 ) 
     224         CALL nonosc( trb(:,:,:,jn), ztu, ztv, ztw, zti, z2 ) 
    223225 
    224226 
     
    288290      zbig = 1.e+40 
    289291      zrtrn = 1.e-15 
     292      zbetup(:,:,:) = 0.e0   ;   zbetdo(:,:,:) = 0.e0 
    290293 
    291294      ! Search local extrema 
Note: See TracChangeset for help on using the changeset viewer.