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

Changeset 408


Ignore:
Timestamp:
2006-03-20T17:34:20+01:00 (18 years ago)
Author:
opalod
Message:

nemo_v1_bugfix_027 : CT : add arrays initialization to avoid an execution error on NEC target

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/TRA/traadv_tvd.F90

    r367 r408  
    101101      !!---------------------------------------------------------------------- 
    102102 
     103      zti(:,:,:) = 0.e0   ;   zsi(:,:,:) = 0.e0 
     104 
    103105      IF( kt == nit000 .AND. lwp ) THEN 
    104106         WRITE(numout,*) 
    … …  
    399401      zbig = 1.e+40 
    400402      zrtrn = 1.e-15 
     403      zbetup(:,:,:) = 0.e0   ;   zbetdo(:,:,:) = 0.e0 
    401404 
    402405      ! Search local extrema 
Note: See TracChangeset for help on using the changeset viewer.