Changeset 13327


Ignore:
Timestamp:
2020-07-20T17:33:01+02:00 (3 weeks ago)
Author:
acc
Message:

Final trunk change to obtain tracer.stat consistency and independence from nn_hls. The trunk is still restartable and reproducible with SETTE (ln_icebergs = F) AND run.stat and tracer.stat files match for both nn_hls = 1 and nn_hls = 2. This final piece was found by Seb last week but was missed from the commit. #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/lib_fortran.F90

    r13324 r13327  
    220220      ! 
    221221      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 
    222          IF( MOD(mig(ji), 3) == 1 .AND. MOD(mjg(jj), 3) == 1 ) THEN   ! bottom left corner of a 3x3 box 
     222         IF( MOD(mig(ji), 3) == MOD(nn_hls, 3) .AND.   & 
     223           & MOD(mjg(jj), 3) == MOD(nn_hls, 3)         ) THEN         ! bottom left corner of a 3x3 box 
    223224            ji2 = MIN(mig(ji)+2, jpiglo) - nimpp + 1                  ! right position of the box 
    224225            jj2 = MIN(mjg(jj)+2, jpjglo) - njmpp + 1                  ! upper position of the box 
     
    273274         ! 
    274275         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 
    275             IF( MOD(mig(ji), 3) == 1 .AND. MOD(mjg(jj), 3) == 1 ) THEN   ! bottom left corner of a 3x3 box 
     276            IF( MOD(mig(ji), 3) == MOD(nn_hls, 3) .AND.   & 
     277              & MOD(mjg(jj), 3) == MOD(nn_hls, 3)         ) THEN         ! bottom left corner of a 3x3 box 
    276278               ji2 = MIN(mig(ji)+2, jpiglo) - nimpp + 1                  ! right position of the box 
    277279               jj2 = MIN(mjg(jj)+2, jpjglo) - njmpp + 1                  ! upper position of the box 
Note: See TracChangeset for help on using the changeset viewer.