Changeset 7710 for trunk

Timestamp:

2017-02-21T17:00:18+01:00 (7 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:

• trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -119 +119 @@
             IF(lwp) WRITE(numout,*) '          nit000-1 sbc tracer content field read in the restart file'
             zfact = 0.5_wp
+            DO jn = 1, jpts
+!$OMP PARALLEL DO schedule(static) private(jj, ji)
+               DO jj = 1, jpj
+                  DO ji = 1, jpi
+                     sbc_tsc(ji,jj,jn) = 0._wp  ! needed just to ensure haloes are consistent across restarts
+                  END DO
+               END DO
+            END DO
             CALL iom_get( numror, jpdom_autoglo, 'sbc_hc_b', sbc_tsc_b(:,:,jp_tem) )   ! before heat content sbc trend
             CALL iom_get( numror, jpdom_autoglo, 'sbc_sc_b', sbc_tsc_b(:,:,jp_sal) )   ! before salt content sbc trend