Ocean Modeling Discussion

In my ana_sst.h
!-----------------------------------------------------------------------
! Set sea surface temperature (Celsius) and heat flux sensitivity to
! SST (Watts/m2).
!-----------------------------------------------------------------------
!
DO j=JstrR,JendR
DO i=IstrR,IendR
sst(i,j ...

Thanks, really helpful!

!$OMP PARALLEL DO PRIVATE(thread,subs,tile) SHARED(ng,numthreads)
DO thread=0,numthreads-1
subs=NtileX(ng)*NtileE(ng)/numthreads
DO tile=subs*(thread+1)-1,subs*thread,-1
CALL step3d_uv (ng, TILE)
END DO
END DO
!$OMP END PARALLEL DO

codes like that, in define distribute situation, NtileX ...

my region nears to a square with east and south open boundary, when i use
{#define EAST_TRADIATION
#define EAST_TNUDGING

#define SOUTH_TRADIATION
#define SOUTH_TNUDGING

#define WESTERN_WALL
#define NORTHERN_WALL

#define TCLIMATOLOGY
#define TCLM_NUDGING
(EAST_TNUDGING and TCLM_NUDGING are both ...