Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |