|
||||
File indexing completed on 2022-11-23 06:10:44 UTC
view on githubraw file Latest commit 20dee616 on 2022-11-22 15:45:38 UTC20dee61641 Mart*0001 CBOP 0002 C !ROUTINE: tamc.h 0003 C !INTERFACE: 0004 C #include "tamc.h" 0005 0006 C !DESCRIPTION: 0007 C *================================================================* 0008 C | tamc.h 0009 C | o Header file defining parameters and variables for the use of 0010 C | the Tangent Linear and Adjoint Model Compiler (TAMC) 0011 C | or the Transformations in Fortran tool (TAF). 0012 C | 0013 C | started: Christian Eckert eckert@mit.edu 04-Feb-1999 0014 C | changed: Patrick Heimbach heimbach@mit.edu 06-Jun-2000 0015 C | cleanup: Martin Losch Martin.Losch@awi.de Nov-2022 0016 C *================================================================* 0017 CEOP 0018 #ifdef ALLOW_AUTODIFF_TAMC 0019 0020 C TAMC checkpointing parameters: 0021 C ============================== 0022 C 0023 C The checkpointing parameters have to be consistent with other model 0024 C parameters and variables. This has to be checked before the model is 0025 C run. 0026 C 847dcb9bdb Jean*0027 0028 #ifdef ALLOW_TAMC_CHECKPOINTING 0029 20dee61641 Mart*0030 C nchklev_1 :: length of inner loop (=size of storage in memory) 0031 C nchklev_2 :: length of second loop (stored on disk) 0032 C nchklev_3 :: length of outer loop of 3-level checkpointing 0033 INTEGER nchklev_1 0034 PARAMETER( nchklev_1 = 5 ) 0035 INTEGER nchklev_2 847dcb9bdb Jean*0036 #ifdef AUTODIFF_2_LEVEL_CHECKPOINT 20dee61641 Mart*0037 C use two-level checkpointing with the same storage 0038 PARAMETER( nchklev_2 = 6 ) 847dcb9bdb Jean*0039 #else 20dee61641 Mart*0040 PARAMETER( nchklev_2 = 2 ) 0041 INTEGER nchklev_3 0042 PARAMETER( nchklev_3 = 3 ) 0043 #endif 0044 #ifdef AUTODIFF_4_LEVEL_CHECKPOINT 0045 C nchklev_4 :: length of outer loop of 4-level checkpointing 0046 INTEGER nchklev_4 0047 PARAMETER( nchklev_4 = 1 ) 847dcb9bdb Jean*0048 #endif 0049 20dee61641 Mart*0050 C-- Note always check for the correct sizes of the common blocks! 0051 C The product of the nchklev_X needs to be at least equal to 0052 C nTimeSteps. 847dcb9bdb Jean*0053 0054 #else /* ALLOW_TAMC_CHECKPOINTING undefined */ 0055 20dee61641 Mart*0056 C Without ALLOW_TAMC_CHECKPOINTING, nchklev_1 needs to be at least 0057 C equal to nTimeSteps. This (arbitrary) setting would accommodate a 0058 C short run (e.g., 10.d with deltaT=10.mn) 0059 INTEGER nchklev_1 0060 PARAMETER( nchklev_1 = 1500 ) 847dcb9bdb Jean*0061 0062 #endif /* ALLOW_TAMC_CHECKPOINTING */ 0063 20dee61641 Mart*0064 C TAMC keys: 0065 C ========== 0066 C 0067 C The keys are used for storing and reading data of the reference 0068 C trajectory. Currently there is only one global key. 0069 C ikey_dynamics :: key for main time stepping loop 847dcb9bdb Jean*0070 20dee61641 Mart*0071 COMMON /TAMC_KEYS_I/ ikey_dynamics 0072 INTEGER ikey_dynamics 847dcb9bdb Jean*0073 20dee61641 Mart*0074 C isbyte :: precision of tapes (both memory and disk). 0075 C For smaller tapes replace 8 by 4. 847dcb9bdb Jean*0076 INTEGER isbyte 20dee61641 Mart*0077 PARAMETER( isbyte = 8 ) 5e80f2359c Patr*0078 20dee61641 Mart*0079 C maxpass :: maximum number of (active + passive) tracers 0080 C Note: defined in PTRACERS_SIZE.h if compiling pkg/ptracers 0081 #ifndef ALLOW_PTRACERS 847dcb9bdb Jean*0082 INTEGER maxpass 20dee61641 Mart*0083 PARAMETER( maxpass = 2 ) 847dcb9bdb Jean*0084 #endif 20dee61641 Mart*0085 C maxcube :: for Multi-Dim advection, max number of horizontal directions 847dcb9bdb Jean*0086 INTEGER maxcube 20dee61641 Mart*0087 PARAMETER( maxcube = 2 ) 847dcb9bdb Jean*0088 981b90dcaa Patr*0089 #ifdef ALLOW_CG2D_NSA 0090 C Parameter that is needed for the tape complev_cg2d_iter 0091 C cannot be smaller than the allowed number of iterations in cg2d 0092 C (numItersMax >= cg2dMaxIters in data-file) 0093 INTEGER numItersMax 3df8849d60 Jean*0094 PARAMETER ( numItersMax = 200 ) 20dee61641 Mart*0095 #endif 981b90dcaa Patr*0096 20dee61641 Mart*0097 #endif /* ALLOW_AUTODIFF_TAMC */ 0098 C ================================================================ 0099 C END OF HEADER TAMC 0100 C ================================================================
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |