Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.13 by mlosch, Wed Sep 30 15:48:31 2009 UTC | revision 1.14 by heimbach, Sat Feb 6 02:43:03 2010 UTC | |
|---|---|---|
| # | Line 92 c-- Read tiled data. | Line 92 c-- Read tiled data. |
| 92 | #ifdef ALLOW_MEAN_SFLUX_COST_CONTRIBUTION | #ifdef ALLOW_MEAN_SFLUX_COST_CONTRIBUTION |
| 93 | ||
| 94 | if (optimcycle .ge. 0) then | if (optimcycle .ge. 0) then |
| 95 | ilsalt = ilnblnk( sfluxbarfile ) | ilsalt = ilnblnk( sfluxmeanbarfile ) |
| 96 | write(fnamesflux(1:80),'(2a,i10.10)') | write(fnamesflux(1:80),'(2a,i10.10)') |
| 97 | & sfluxbarfile(1:ilsalt),'.',optimcycle | & sfluxmeanbarfile(1:ilsalt),'.',optimcycle |
| 98 | endif | endif |
| 99 | ||
| 100 | do irec = 1, MAX(1,nyearsrec) | do irec = 1, MAX(1,nyearsrec) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |