Parent Directory | Revision Log | Revision Graph | Patch
revision 1.15 by cnh, Thu Jun 25 20:43:23 1998 UTC | revision 1.16 by adcroft, Wed Jul 15 22:09:19 1998 UTC | |
---|---|---|
# | Line 73 C aS2d: integral in Z Ay/dY | Line 73 C aS2d: integral in Z Ay/dY |
73 | ENDDO | ENDDO |
74 | ENDDO | ENDDO |
75 | cg2dNbuf(1,myThid) = myNorm | cg2dNbuf(1,myThid) = myNorm |
76 | _GLOBAL_MAX_R8( cg2dNbuf, myNorm, myThid ) | _GLOBAL_MAX_R4( cg2dNbuf, myNorm, myThid ) |
77 | IF ( cg2dNbuf(1,1) .NE. 0. _d 0 ) THEN | IF ( cg2dNbuf(1,1) .NE. 0. _d 0 ) THEN |
78 | myNorm = 1. _d 0/cg2dNbuf(1,1) | myNorm = 1. _d 0/cg2dNbuf(1,1) |
79 | ELSE | ELSE |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |