Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
revision 1.1 by heimbach, Thu Nov 6 22:10:07 2003 UTC | revision 1.2 by heimbach, Wed Dec 3 23:08:40 2003 UTC | |
---|---|---|
# | Line 126 c-- Read tiled data. | Line 126 c-- Read tiled data. |
126 | ilctdsclim = ilnblnk( sbarfile ) | ilctdsclim = ilnblnk( sbarfile ) |
127 | write(fnamesalt(1:80),'(2a,i10.10)') | write(fnamesalt(1:80),'(2a,i10.10)') |
128 | & sbarfile(1:ilctdsclim),'.',optimcycle | & sbarfile(1:ilctdsclim),'.',optimcycle |
else | ||
print* | ||
print*,' cost_Ctdsclim: optimcycle has a wrong value.' | ||
print*,' optimcycle = ',optimcycle | ||
print* | ||
stop ' ... stopped in cost_Ctdsclim.' | ||
129 | endif | endif |
130 | ||
131 | fcthread = 0. _d 0 | fcthread = 0. _d 0 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |