Changeset 11303 for NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/NST/agrif_top_update.F90

Timestamp:

2019-07-18T17:12:52+02:00 (5 years ago)

Author:

dancopsey

Message:

update to be relative to 11081 of NEMO_4.0_mirror

File:

• NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/NST/agrif_top_update.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/NST/agrif_top_update.F90

@@ -138 +138 @@
                      DO ji=i1,i2
                         IF( tabres_child(ji,jj,jk,jn) .NE. 0. ) THEN
-                           trb(ji,jj,jk,jn) = tsb(ji,jj,jk,jn) & 
+                           trb(ji,jj,jk,jn) = trb(ji,jj,jk,jn) & 
                                  & + atfp * ( tabres_child(ji,jj,jk,jn) &
                                  &          - trn(ji,jj,jk,jn) ) * tmask(ji,jj,jk)