Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by heimbach, Fri Dec 15 18:02:17 2006 UTC | revision 1.4 by jmc, Tue Oct 9 00:10:13 2007 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | C $Header$ | C $Header$ |
2 | C $Name$ | |
3 | ||
4 | #include "SEAICE_OPTIONS.h" | #include "SEAICE_OPTIONS.h" |
5 | ||
# | Line 81 c == external functions == | Line 82 c == external functions == |
82 | c == end of interface == | c == end of interface == |
83 | ||
84 | if ( myTime .GT. (endTime - lastinterval) ) then | if ( myTime .GT. (endTime - lastinterval) ) then |
85 | tempVar = 1. / | tempVar = 1. / |
86 | & ( ( 1. + min(endTime-startTime,lastinterval) ) | & ( ( 1. + min(endTime-startTime,lastinterval) ) |
87 | & / deltaTClock ) | & / deltaTClock ) |
88 | ||
89 | cph( | cph( |
90 | print *, 'ph-ice B ', myiter, theta(4,4,1,1,1), | print *, 'ph-ice B ', myiter, theta(4,4,1,1,1), |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |