Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by heimbach, Thu Aug 25 16:10:42 2005 UTC | revision 1.2 by heimbach, Tue Dec 13 16:15:32 2005 UTC | |
---|---|---|
# | Line 62 c-- Initialize the tiled cost function | Line 62 c-- Initialize the tiled cost function |
62 | end do | end do |
63 | #endif | #endif |
64 | c | c |
65 | #ifdef ALLOW_COST_ATLANTIC_HEAT | #if (defined (ALLOW_COST_TEST) || defined (ALLOW_COST_ATLANTIC_HEAT)) |
66 | do k=1,nr | do k=1,nr |
67 | do j=1,sNy | do j=1,sNy |
68 | do i=1,sNx | do i=1,sNx |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |