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

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

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

Revision 1.11 - (hide annotations) (download)
Fri Jan 21 01:19:03 2011 UTC (13 years, 4 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 gforget 1.11 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/AUTODIFF.h,v 1.10 2010/10/16 14:40:04 heimbach Exp $
2 jmc 1.4 C $Name: $
3 heimbach 1.1
4 gforget 1.11 #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 heimbach 1.1 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 gforget 1.7 #ifdef ALLOW_ADAMSBASHFORTH_3
23     PARAMETER (NDV3D = 16)
24     #else
25 heimbach 1.2 PARAMETER (NDV3D = 12)
26 gforget 1.7 #endif
27 heimbach 1.2 PARAMETER (NDV2D = 23)
28     PARAMETER (NEXF1 = 21)
29 heimbach 1.9 PARAMETER (NEXF2 = 20)
30 heimbach 1.10 PARAMETER (NCTRL1 = 20)
31 heimbach 1.1 PARAMETER (NOB = 18)
32 jmc 1.8 PARAMETER (NSI = 19)
33 heimbach 1.1 _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