Changeset 11084 for NEMO/branches/UKMO/NEMO_4.0_old_tidal_mixing/src/NST/agrif_top_update.F90

Timestamp:

2019-06-06T16:30:49+02:00 (5 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0_old_tidal_mixing : Update to be relative to rev 11081 of NEMO_4.0_mirror.

File:

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

NEMO/branches/UKMO/NEMO_4.0_old_tidal_mixing/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)