/[MITgcm]/MITgcm/pkg/autodiff/AUTODIFF.h
ViewVC logotype

Contents of /MITgcm/pkg/autodiff/AUTODIFF.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.11 - (show annotations) (download)
Fri Jan 21 01:19:03 2011 UTC (13 years, 5 months ago) by gforget
Branch: MAIN
CVS Tags: checkpoint63p, checkpoint63q, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint63, checkpoint62s, checkpoint62r, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x
Changes since 1.10: +11 -1 lines
File MIME type: text/plain 
- 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.
1 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.10 2010/10/16 14:40:04 heimbach Exp $
2 C $Name: $
3
4 #ifdef ALLOW_AUTODIFF_WHTAPEIO
5 COMMON /AUTODIFF_WHTAPEIO_I/
6 & tapeFileCounter, tapeMaxCounter, tapeFileUnit, tapeFileUnitS
7 integer tapeFileCounter, tapeMaxCounter
8 integer tapeFileUnit, tapeFileUnitS(4)
9 COMMON /AUTODIFF_WHTAPEIO_L/
10 & tapeConcatIO, tapeSingleCpuIO, tapeBufferIO
11 logical tapeConcatIO, tapeSingleCpuIO, tapeBufferIO
12 #endif
13
14 integer ilev_1
15 integer ilev_2
16 integer ilev_3
17 integer ilev_4
18 integer max_lev2
19 integer max_lev3
20 integer max_lev4
21 integer NDV3D, NDV2D, NEXF1, NEXF2, NCTRL1, NOB, NSI
22 #ifdef ALLOW_ADAMSBASHFORTH_3
23 PARAMETER (NDV3D = 16)
24 #else
25 PARAMETER (NDV3D = 12)
26 #endif
27 PARAMETER (NDV2D = 23)
28 PARAMETER (NEXF1 = 21)
29 PARAMETER (NEXF2 = 20)
30 PARAMETER (NCTRL1 = 20)
31 PARAMETER (NOB = 18)
32 PARAMETER (NSI = 19)
33 _RL StoreDynVars3D
34 & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,NDV3D)
35 _RL StoreDynVars2D
36 & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NDV2D)
37 _RL StoreEXF1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF1)
38 _RL StoreEXF2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NEXF2)
39 _RL StoreCTRLS1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NCTRL1)
40 _RL StoreOBCSN(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
41 _RL StoreOBCSS(1-Olx:sNx+Olx,Nr,nSx,nSy,NOB)
42 _RL StoreOBCSE(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
43 _RL StoreOBCSW(1-OLy:sNy+OLy,Nr,nSx,nSy,NOB)
44 _RL StoreSEAICE(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,NSI)
45
46 COMMON /AUTODIFF_STORE_DYN/
47 & StoreDynVars3D,
48 & StoreDynVars2D
49 COMMON /AUTODIFF_STORE_EXF_FLUX/
50 & StoreEXF1
51 COMMON /AUTODIFF_STORE_EXF_ATMOS/
52 & StoreEXF2
53 COMMON /AUTODIFF_STORE_CTRL/
54 & StoreCTRLS1
55 COMMON /AUTODIFF_STORE_OBCSN/
56 & StoreOBCSN
57 COMMON /AUTODIFF_STORE_OBCSS/
58 & StoreOBCSS
59 COMMON /AUTODIFF_STORE_OBCSE/
60 & StoreOBCSE
61 COMMON /AUTODIFF_STORE_OBCSW/
62 & StoreOBCSW
63 COMMON /AUTODIFF_STORE_SEAICE/
64 & StoreSEAICE
65
  ViewVC Help
Powered by ViewVC 1.1.22