/[MITgcm]/MITgcm_contrib/MPMice/beaufort/code/cpl_mpmice.F
ViewVC logotype

Diff of /MITgcm_contrib/MPMice/beaufort/code/cpl_mpmice.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by dimitri, Wed Dec 2 23:49:42 2009 UTC revision 1.4 by dimitri, Fri Dec 4 19:39:27 2009 UTC
# Line 59  CEOP Line 59  CEOP
59        _RL     local(1:sNx,1:sNy,nSx,nSy)        _RL     local(1:sNx,1:sNy,nSx,nSy)
60    
61  #ifdef CPL_DEBUG  #ifdef CPL_DEBUG
62       _RL ScatArray(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL ScatArray(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
63        DO bj=1,nSy        DO bj=1,nSy
64         DO bi=1,nSx         DO bi=1,nSx
65          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
# Line 777  C     Receive residual shortwave Line 777  C     Receive residual shortwave
777        ENDIF        ENDIF
778        _END_MASTER( myThid )        _END_MASTER( myThid )
779        CALL SCATTER_2D( xfer_array, local, myThid )        CALL SCATTER_2D( xfer_array, local, myThid )
780   #ifdef CPL_DEBUG  #ifdef CPL_DEBUG
781       DO bj=1,nSy        DO bj=1,nSy
782         DO bi=1,nSx         DO bi=1,nSx
783          DO j=1,sNy          DO j=1,sNy
784           DO i=1,sNx           DO i=1,sNx
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22