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=NtileE=1 ...

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 ...