Code: Select all
# 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
As a secondary question -- are the values in BRY_CONTACT()%Mflux() ever used in the model calculation, or are they just diagnostic? It appears they are set in check_massflux() and put_refine2d(), but are only used to print diagnostics. It appears that the boundary fluxes are set directly in put_refine2d() by changing OCEAN(ng)%ubar directly. Is this true?
I am still struggling to get nesting to work on a large spherical grid with considerable latitudinal extent. Has this been done? Details once I am more sure it is not a silly mistake on my part.
Cheers,
Jamie