/[MITgcm]/MITgcm/model/src/ini_cg2d.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_cg2d.F

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

revision 1.24 by adcroft, Mon Mar 22 15:54:04 1999 UTC revision 1.25 by adcroft, Tue May 18 17:36:55 1999 UTC
# Line 90  C     aS2d: integral in Z Ay/dY Line 90  C     aS2d: integral in Z Ay/dY
90          ENDDO          ENDDO
91         ENDDO         ENDDO
92        ENDDO        ENDDO
93        cg2dNbuf(1,myThid) = myNorm        _GLOBAL_MAX_R4( myNorm, myThid )
94        _GLOBAL_MAX_R4( cg2dNbuf, myNorm, myThid )        IF ( myNorm .NE. 0. _d 0 ) THEN
95        IF ( cg2dNbuf(1,1) .NE. 0. _d 0 ) THEN         myNorm = 1. _d 0/myNorm
        myNorm = 1. _d 0/cg2dNbuf(1,1)  
96        ELSE        ELSE
97         myNorm = 1. _d 0         myNorm = 1. _d 0
98        ENDIF        ENDIF
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22