Bug in routine check_massflux

[arango]

In routine check_massflux of module nesting.F, the variable ng needs to be ngf instead:

 # ifdef NESTING_DEBUG
           IF (DOMAIN(ngf)%SouthWest_Test(tile)) THEN
             IF (Master) THEN
               WRITE (300,10) 'Western Boundary Mass Fluxes: ',          &
      &                       cr, dg, rg, iif(rg), iic(rg), INT(time(rg))
            END IF
          END IF
# endif

...

# ifdef NESTING_DEBUG
           IF (DOMAIN(ngf)%SouthWest_Test(tile)) THEN
             IF (Master) THEN
               WRITE (300,10) 'Eastern Boundary Mass Fluxes: ',          &
      &                       cr, dg, rg, iif(rg), iic(rg), INT(time(rg))
            END IF
          END IF
# endif

...

# ifdef NESTING_DEBUG
           IF (DOMAIN(ngf)%SouthWest_Test(tile)) THEN
             IF (Master) THEN
               WRITE (300,20) 'Southern Boundary Mass Fluxes: ',         &
      &                       cr, dg, rg, iif(rg), iic(rg), INT(time(rg))
            END IF
          END IF
# endif

...

# ifdef NESTING_DEBUG
           IF (DOMAIN(ngf)%SouthWest_Test(tile)) THEN
             IF (Master) THEN
               WRITE (300,20) 'Northern Boundary Mass Fluxes: ',         &
      &                       cr, dg, rg, iif(rg), iic(rg), INT(time(rg))
            END IF
          END IF
# endif

'''# ifdef NESTING_DEBUG
          IF (DOMAIN(ng)%SouthWest_Test(tile)) THEN
            IF (Master) THEN
              WRITE (300,10) 'Western Boundary Mass Fluxes: ',          &
     &                       cr, dg, rg, iif(rg), iic(rg), INT(time(rg))
            END IF
          END IF
!
# endif

This code is only used for debugging and testing by writing several diagnostics into fort.300 file. It does not affect the nesting solution because it is not used in the algorithms.

Many thanks to Jamie Pringle for ​bringing this to my attention.