Changeset 408


Ignore:
Timestamp:
2006-03-20T17:34:20+01:00 (15 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.