Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by jmc, Thu Jul 22 22:52:59 2004 UTC | revision 1.8 by jmc, Tue Oct 19 02:42:04 2004 UTC | |
---|---|---|
# | Line 100 C- Initialise flxAtm | Line 100 C- Initialise flxAtm |
100 | ENDDO | ENDDO |
101 | ENDDO | ENDDO |
102 | ||
103 | IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN | IF ( fluidIsWater ) THEN |
104 | DO j = jMin, jMax | DO j = jMin, jMax |
105 | DO i = iMin, iMax | DO i = iMin, iMax |
106 | c dBug = ( bi.EQ.3 .AND. i.EQ.15 .AND. j.EQ.11 ) | c dBug = ( bi.EQ.3 .AND. i.EQ.15 .AND. j.EQ.11 ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |