Changes between Version 2 and Version 3 of Ticket #2564


Ignore:
Timestamp:
2020-12-03T13:51:59+01:00 (5 months ago)
Author:
hadcv
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #2564 – Description

    v2 v3  
    6060+              irec_n(jp_tem) = sf_tsd(jp_tem)%nrec(1,sf_tsd(jp_tem)%naa)            ! Determine if there is new data (ln_tint = F) 
    6161+              irec_n(jp_sal) = sf_tsd(jp_sal)%nrec(1,sf_tsd(jp_sal)%naa)            ! If not, then do not apply the increments 
    62 +              IF( kt == nit000 ) irec_b = -1 
     62+              IF( kt == nit000 ) irec_b(:) = -1 
    6363               ! 
    6464               ij0 = 101 + nn_hls       ;   ij1 = 109 + nn_hls                       ! Reduced T & S in the Alboran Sea