[MITgcm-cvs] MITgcm/pkg/ecco CVS Commit

[Gael Forget]

Update of /u/gcmpack/MITgcm/pkg/ecco
In directory baudelaire:/u/u2/gforget/MITgcm/pkg/ecco

Modified Files:
	the_main_loop.F 
Log Message:

- within WHTAPEIO, if tapeConcatIO then concatenate 
  all lev2 tapes to one file, and lev3/lev4 accordingly.
  Those files (e.g tapes2.data) stay open all the way.
- to do this I add WHTAPEIO parameters in AUTODIFF.h, and 
  introduce S/R autodiff_whtapeio_sync.F

- WHTAPEIO params are intialized in autodiff_ini_model_io.F
- autodiff_whtapeio_sync is called before autodiff_store and
  after autodiff_restore in the_main_loop.F
- autodiff_whtapeio_sync.F first open tape files if needed,
  and then it sets/resets the associated units/counters. 
- adread_adwrite.F now passes tapeFileUnit and tapeSingleCpuIO to 
  mdsio_read(write)_whalos.F, and it includes the loop over 2D slices.