1 |
C $Header: /u/gcmpack/MITgcm/pkg/autodiff/adautodiff_whtapeio_sync.F,v 1.1 2011/01/21 01:19:03 gforget Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "AUTODIFF_OPTIONS.h" |
5 |
#include "MDSIO_OPTIONS.h" |
6 |
|
7 |
subroutine adautodiff_whtapeio_sync( myLev, myStep, myThid ) |
8 |
IMPLICIT NONE |
9 |
C /==========================================================\ |
10 |
C | SUBROUTINE adautodiff_whtapeio_sync | |
11 |
C |==========================================================| |
12 |
C == Global variables === |
13 |
|
14 |
#include "SIZE.h" |
15 |
#include "EEPARAMS.h" |
16 |
#include "PARAMS.h" |
17 |
#include "AUTODIFF.h" |
18 |
#ifdef ALLOW_WHIO_3D |
19 |
# include "MDSIO_BUFF_WH.h" |
20 |
#endif |
21 |
|
22 |
C == Routine arguments == |
23 |
C myThid - Thread number for this instance of the routine. |
24 |
integer myThid |
25 |
integer myLev |
26 |
integer myStep |
27 |
|
28 |
#ifdef ALLOW_AUTODIFF_WHTAPEIO |
29 |
tapeFileUnit=0 |
30 |
tapeFileCounter=0 |
31 |
tapeBufferIO=.FALSE. |
32 |
# ifdef ALLOW_WHIO_3D |
33 |
writeWh=.FALSE. |
34 |
iWh=0 |
35 |
jWh=0 |
36 |
# endif |
37 |
#endif |
38 |
|
39 |
end |