Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by cnh, Sun Feb 4 14:38:45 2001 UTC | revision 1.8 by mlosch, Wed Sep 25 19:36:50 2002 UTC | |
---|---|---|
# | Line 50 C-- == Local variables == | Line 50 C-- == Local variables == |
50 | ENDDO | ENDDO |
51 | ENDDO | ENDDO |
52 | ||
53 | ELSEIF ( buoyancyRelation .eq. 'OCEANICP' ) THEN | |
54 | ||
55 | DO j=jMin,jMax | |
56 | DO i=iMin,iMax | |
57 | if ( rholoc(i,j) .ne. 0. ) then | |
58 | rholoc(i,j) = 1./rholoc(i,j) | |
59 | buoy(i,j)=rholoc(i,j) | |
60 | endif | |
61 | ENDDO | |
62 | ENDDO | |
63 | ||
64 | ELSE | ELSE |
65 | ||
66 | STOP | STOP |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |