Changeset 7710


Ignore:
Timestamp:
2017-02-21T17:00:18+01:00 (4 years ago)
Author:
acc
Message:

Trunk fix for ticket #1852. Add initialisation of sbc_tsc in trasbc.F90 to ensure consistency in unused haloes across restarts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r7698 r7710  
    119119            IF(lwp) WRITE(numout,*) '          nit000-1 sbc tracer content field read in the restart file' 
    120120            zfact = 0.5_wp 
     121            DO jn = 1, jpts 
     122!$OMP PARALLEL DO schedule(static) private(jj, ji) 
     123               DO jj = 1, jpj 
     124                  DO ji = 1, jpi 
     125                     sbc_tsc(ji,jj,jn) = 0._wp  ! needed just to ensure haloes are consistent across restarts 
     126                  END DO 
     127               END DO 
     128            END DO 
    121129            CALL iom_get( numror, jpdom_autoglo, 'sbc_hc_b', sbc_tsc_b(:,:,jp_tem) )   ! before heat content sbc trend 
    122130            CALL iom_get( numror, jpdom_autoglo, 'sbc_sc_b', sbc_tsc_b(:,:,jp_sal) )   ! before salt content sbc trend 
Note: See TracChangeset for help on using the changeset viewer.