| 1 |
C $Header$ |
C $Header$ |
| 2 |
C $Name$ |
C $Name$ |
| 3 |
|
|
| 4 |
#include "PACKAGES_CONFIG.h" |
C ================================================================ |
| 5 |
|
C HEADER TAMC |
| 6 |
c ================================================================ |
C ================================================================ |
| 7 |
c HEADER TAMC |
C |
| 8 |
c ================================================================ |
C o Header for the use of the Tangent Linear and Adjoint Model |
| 9 |
c |
C Compiler (TAMC). |
| 10 |
c o Header for the use of the Tangent Linear and Adjoint Model |
C |
| 11 |
c Compiler (TAMC). |
C started: Christian Eckert eckert@mit.edu 04-Feb-1999 |
| 12 |
c |
C changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000 |
| 13 |
c started: Christian Eckert eckert@mit.edu 04-Feb-1999 |
C - New parameter nlevchk_0 for dimensionalising |
| 14 |
c changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000 |
C common blocks in the undef ALLOW_TAMC_CHECKPOINTING case |
| 15 |
c - New parameter nlevchk_0 for dimensionalising |
C - nhreads_chkpt was declared at the wrong place |
| 16 |
c common blocks in the undef ALLOW_TAMC_CHECKPOINTING case |
C - new keys, separate for different packages |
| 17 |
c - nhreads_chkpt was declared at the wrong place |
|
| 18 |
c - new keys, separate for different packages |
C ================================================================ |
| 19 |
|
C HEADER TAMC |
| 20 |
c ================================================================ |
C ================================================================ |
| 21 |
c HEADER TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
| 22 |
c ================================================================ |
|
| 23 |
|
C TAMC checkpointing parameters: |
| 24 |
|
C ============================== |
| 25 |
c TAMC checkpointing parameters: |
C |
| 26 |
c ============================== |
C The checkpointing parameters have to be consistent with other model |
| 27 |
c |
C parameters and variables. This has to be checked before the model is |
| 28 |
c The checkpointing parameters have to be consistent with other model |
C run. |
| 29 |
c parameters and variables. This has to be checked before the model is |
C |
| 30 |
c run. |
C nyears_chkpt :: Number of calendar years affected by the assimilation |
| 31 |
c |
C experiment; nyears_chkpt has to be at least equal to |
| 32 |
c nyears_chkpt - Number of calendar years affected by the assimilation |
C the result of cal_IntYears(mythid). |
| 33 |
c experiment; nyears_chkpt has to be at least equal to |
C nmonths_chkpt :: Number of months per year; nmonth_chkpt has to be at |
| 34 |
c the result of cal_IntYears(mythid). |
C least equal to nmonthyear. |
| 35 |
c nmonths_chkpt - Number of months per year; nmonth_chkpt has to be at |
C ndays_chkpt :: Number of days per month; nday_chkpt has to be at least |
| 36 |
c least equal to nmonthyear. |
C equal to nmaxdaymonth. |
| 37 |
c ndays_chkpt - Number of days per month; nday_chkpt has to be at least |
C nsteps_chkpt :: Number of steps per day; nsteps_chkpt has to be at |
| 38 |
c equal to nmaxdaymonth. |
C least equal to cal_nStepDay(mythid) |
| 39 |
c nsteps_chkpt - Number of steps per day; nsteps_chkpt has to be at |
C ncheck_chkpt :: Number of innermost checkpoints. |
| 40 |
c least equal to cal_nStepDay(mythid) |
C |
| 41 |
c ncheck_chkpt - Number of innermost checkpoints. |
C ngeom_chkpt :: Geometry factor. |
| 42 |
c |
C nthreads_chkpt :: Number of threads to be used; nth_chkpt .eq. nTx*nTy |
|
c ngeom_chkpt - Geometry factor. |
|
|
c nthreads_chkpt - Number of threads to be used; nth_chkpt .eq. nTx*nTy |
|
| 43 |
|
|
| 44 |
integer nyears_chkpt |
integer nyears_chkpt |
| 45 |
integer nmonths_chkpt |
integer nmonths_chkpt |
| 64 |
integer nchklev_3 |
integer nchklev_3 |
| 65 |
parameter( nchklev_3 = 60 ) |
parameter( nchklev_3 = 60 ) |
| 66 |
|
|
| 67 |
c-- Note always check for the correct sizes of the common blocks! |
C-- Note always check for the correct sizes of the common blocks! |
| 68 |
|
|
| 69 |
#else /* ALLOW_TAMC_CHECKPOINTING undefined */ |
#else /* ALLOW_TAMC_CHECKPOINTING undefined */ |
| 70 |
|
|
| 111 |
|
|
| 112 |
INTEGER act0, act1, act2, act3, act4 |
INTEGER act0, act1, act2, act3, act4 |
| 113 |
INTEGER max0, max1, max2, max3 |
INTEGER max0, max1, max2, max3 |
| 114 |
INTEGER iikey, kkey, passkey, igadkey, |
INTEGER iikey, kkey, passkey, igadkey, |
| 115 |
& itdkey, idynkey, igmkey, ikppkey, iptrkey |
& itdkey, idynkey, igmkey, ikppkey, iptrkey |
| 116 |
|
|
| 117 |
c ================================================================ |
#ifdef ALLOW_CG2D_NSA |
| 118 |
c END OF HEADER TAMC |
C Parameter that is needed for the tape complev_cg2d_iter |
| 119 |
c ================================================================ |
C cannot be smaller than the allowed number of iterations in cg2d |
| 120 |
|
C (numItersMax >= cg2dMaxIters in data-file) |
| 121 |
|
INTEGER numItersMax |
| 122 |
|
PARAMETER ( numItersMax = 100 ) |
| 123 |
|
#endif |
| 124 |
|
|
| 125 |
|
#endif /* ALLOW_AUTODIFF_TAMC */ |
| 126 |
|
C ================================================================ |
| 127 |
|
C END OF HEADER TAMC |
| 128 |
|
C ================================================================ |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch