Back to home page

MITgcm
 
 

    

File indexing completed on 2018-06-09 05:10:00 UTC

view on githubraw file Latest commit 46918f1b on 2018-06-01 20:55:34 UTC
785a077159 Alis*0001 #ifdef ALLOW_PTRACERS
                0002 
                0003 CBOP
0a278985fd Jean*0004 C    !ROUTINE: PTRACERS_PARAMS.h
785a077159 Alis*0005 C    !INTERFACE:
0a278985fd Jean*0006 C #include PTRACERS_PARAMS.h
e6469f285f Jean*0007 
785a077159 Alis*0008 C    !DESCRIPTION:
0a278985fd Jean*0009 C Contains passive tracer parameters.
                0010 
                0011 CEOP
785a077159 Alis*0012 
dc3a357327 Jean*0013 C--   COMMON /PTRACERS_PARAMS_R/ PTRACERS real-type parameters:
                0014 C     PTRACERS_dTLev    :: Timestep for ptracers ( s ), function of level k
9d36aec500 Dimi*0015 C     PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS
                0016 C                          are written to post-processing files.
dd33ff71a5 Mart*0017 C     PTRACERS_ref      :: vertical profile for passive tracers, in
                0018 C                          analogy to tRef and sRef, hence the name
e6469f285f Jean*0019 C     PTRACERS_EvPrRn   :: tracer concentration in Rain, Evap & RunOff
                0020 C       notes: a) used if both NonLin_FrSurf & useRealFreshWater are set.
                0021 C              b) use pTracer surface (local) value if = UNSET_RL (default)
5d1aafd341 Jean*0022 C     PTRACERS_startStepFwd :: time to start stepping forward this tracer
                0023 C     PTRACERS_resetFreq    :: Frequency (s) to reset ptracers to original val
                0024 C     PTRACERS_resetPhase   :: Phase (s) to reset ptracers
9d36aec500 Dimi*0025 
dc3a357327 Jean*0026       _RL PTRACERS_dTLev(Nr)
55966bc737 Mart*0027       _RL PTRACERS_dumpFreq
9d36aec500 Dimi*0028       _RL PTRACERS_taveFreq
0badf4857e Mart*0029       _RL PTRACERS_monitorFreq
785a077159 Alis*0030       _RL PTRACERS_diffKh(PTRACERS_num)
                0031       _RL PTRACERS_diffK4(PTRACERS_num)
d75c5feb26 Jean*0032       _RL PTRACERS_diffKrNr(Nr,PTRACERS_num)
dd33ff71a5 Mart*0033       _RL PTRACERS_ref(Nr,PTRACERS_num)
e6469f285f Jean*0034       _RL PTRACERS_EvPrRn(PTRACERS_num)
5d1aafd341 Jean*0035       _RL PTRACERS_startStepFwd(PTRACERS_num)
                0036       _RL PTRACERS_resetFreq(PTRACERS_num)
                0037       _RL PTRACERS_resetPhase(PTRACERS_num)
0a278985fd Jean*0038       COMMON /PTRACERS_PARAMS_R/
dc3a357327 Jean*0039      &     PTRACERS_dTLev,
0a278985fd Jean*0040      &     PTRACERS_dumpFreq,
                0041      &     PTRACERS_taveFreq,
                0042      &     PTRACERS_monitorFreq,
                0043      &     PTRACERS_diffKh,
                0044      &     PTRACERS_diffK4,
                0045      &     PTRACERS_diffKrNr,
                0046      &     PTRACERS_ref,
5d1aafd341 Jean*0047      &     PTRACERS_EvPrRn,
                0048      &     PTRACERS_startStepFwd,
                0049      &     PTRACERS_resetFreq,
                0050      &     PTRACERS_resetPhase
0a278985fd Jean*0051 
dc3a357327 Jean*0052 #ifdef ALLOW_COST
d217ad1db8 Oliv*0053 C     COMMON /PTRACERS_OLD_R/ Old (real type) PTRACERS parameters
282caa8385 Jean*0054 C        (to be removed 1 day ...)
                0055       _RL lambdaTr1ClimRelax
                0056       COMMON /PTRACERS_OLD_R/
                0057      &     lambdaTr1ClimRelax
dc3a357327 Jean*0058 #endif
282caa8385 Jean*0059 
dc3a357327 Jean*0060 C--   COMMON /PTRACERS_PARAMS_I/ PTRACERS integer-type parameters:
                0061 C     PTRACERS_numInUse :: number of tracers to use
                0062 C     PTRACERS_Iter0    :: timestep number when tracers are initialized
727f3ba9e2 Jean*0063       INTEGER PTRACERS_Iter0
0dcd950fdd Patr*0064       INTEGER PTRACERS_numInUse
1883875e84 Jean*0065       INTEGER PTRACERS_advScheme(PTRACERS_num)
0a278985fd Jean*0066       COMMON /PTRACERS_PARAMS_I/
                0067      &     PTRACERS_Iter0,
                0068      &     PTRACERS_numInUse,
                0069      &     PTRACERS_advScheme
                0070 
dc3a357327 Jean*0071 C--   COMMON /PTRACERS_PARAMS_L/ PTRACERS logical-type parameters:
fc10d43a89 Jean*0072 C     PTRACERS_ImplVertAdv   :: use Implicit Vertical Advection for this tracer
d217ad1db8 Oliv*0073 C     PTRACERS_MultiDimAdv   :: internal flag (depend on the advection scheme),
                0074 C                               true if this tracer uses Multi-Dim advection
                0075 C     PTRACERS_SOM_Advection :: internal flag (depend on the advection scheme),
                0076 C                               true if this tracer uses 2nd-order moment advection
                0077 C     PTRACERS_AdamsBashGtr  :: internal flag (depend on the advection scheme),
                0078 C                               true if applies Adams-Bashforth on tracer tendency
fc10d43a89 Jean*0079 C     PTRACERS_AdamsBash_Tr  :: internal flag (depend on the advection scheme),
                0080 C                               true if applies Adams-Bashforth on passive Tracer
                0081 C     PTRACERS_useGMRedi(n)  :: true if GM-Redi applies to pTracer n
c2ced55abd Jean*0082 C     PTRACERS_useDWNSLP(n)  :: true if Down-Sloping flow applies to pTracer n
fc10d43a89 Jean*0083 C     PTRACERS_useKPP(n)     :: true if KPP applies to pTracer n
                0084 C     PTRACERS_doAB_onGpTr   :: if Adams-Bashforth time stepping is used, apply
                0085 C                               AB on tracer tendencies (rather than on Tracers)
                0086 C     PTRACERS_addSrelax2EmP :: add Salt relaxation to EmP
dc3a357327 Jean*0087 C     PTRACERS_startAllTrc   :: internal flag, all tracers start at startTime
fc10d43a89 Jean*0088 C     PTRACERS_calcSurfCor   :: calculate Linear Free-Surf source/sink of tracer
0aacb0e819 Oliv*0089 C                               (set internally)
                0090 C     PTRACERS_linFSConserve :: apply mean Free-Surf source/sink at surface
46918f1b26 Jean*0091 C     PTRACERS_stayPositive  :: use Smolarkiewicz Hack to ensure Tracer stays >0
fc10d43a89 Jean*0092 C     PTRACERS_useRecords    :: snap-shot output: put all pTracers in one file
1883875e84 Jean*0093       LOGICAL PTRACERS_ImplVertAdv(PTRACERS_num)
d31276c95b Jean*0094       LOGICAL PTRACERS_MultiDimAdv(PTRACERS_num)
d217ad1db8 Oliv*0095       LOGICAL PTRACERS_SOM_Advection(PTRACERS_num)
d31276c95b Jean*0096       LOGICAL PTRACERS_AdamsBashGtr(PTRACERS_num)
fc10d43a89 Jean*0097       LOGICAL PTRACERS_AdamsBash_Tr(PTRACERS_num)
785a077159 Alis*0098       LOGICAL PTRACERS_useGMRedi(PTRACERS_num)
1db41719d4 Jean*0099       LOGICAL PTRACERS_useDWNSLP(PTRACERS_num)
785a077159 Alis*0100       LOGICAL PTRACERS_useKPP(PTRACERS_num)
0aacb0e819 Oliv*0101       LOGICAL PTRACERS_linFSConserve(PTRACERS_num)
46918f1b26 Jean*0102       LOGICAL PTRACERS_stayPositive(PTRACERS_num)
fc10d43a89 Jean*0103       LOGICAL PTRACERS_doAB_onGpTr
c2ced55abd Jean*0104       LOGICAL PTRACERS_addSrelax2EmP
dc3a357327 Jean*0105       LOGICAL PTRACERS_startAllTrc
4da58558f5 Oliv*0106       LOGICAL PTRACERS_calcSurfCor
fc10d43a89 Jean*0107       LOGICAL PTRACERS_useRecords
e6469f285f Jean*0108       LOGICAL
de55280acd Mart*0109      &     PTRACERS_monitor_mnc, PTRACERS_monitor_stdio,
50653b81f1 Ed H*0110      &     PTRACERS_timeave_mdsio, PTRACERS_snapshot_mdsio,
                0111      &     PTRACERS_pickup_write_mdsio, PTRACERS_pickup_read_mdsio,
                0112      &     PTRACERS_timeave_mnc, PTRACERS_snapshot_mnc,
                0113      &     PTRACERS_pickup_write_mnc, PTRACERS_pickup_read_mnc
0a278985fd Jean*0114       COMMON /PTRACERS_PARAMS_L/
1883875e84 Jean*0115      &     PTRACERS_ImplVertAdv,
d31276c95b Jean*0116      &     PTRACERS_MultiDimAdv,
d217ad1db8 Oliv*0117      &     PTRACERS_SOM_Advection,
fc10d43a89 Jean*0118      &     PTRACERS_AdamsBashGtr, PTRACERS_AdamsBash_Tr,
46918f1b26 Jean*0119      &     PTRACERS_useGMRedi, PTRACERS_useDWNSLP, PTRACERS_useKPP,
                0120      &     PTRACERS_linFSConserve, PTRACERS_stayPositive,
fc10d43a89 Jean*0121      &     PTRACERS_doAB_onGpTr,
c2ced55abd Jean*0122      &     PTRACERS_addSrelax2EmP,
dc3a357327 Jean*0123      &     PTRACERS_startAllTrc,
4da58558f5 Oliv*0124      &     PTRACERS_calcSurfCor,
fc10d43a89 Jean*0125      &     PTRACERS_useRecords,
50653b81f1 Ed H*0126      &     PTRACERS_timeave_mdsio, PTRACERS_snapshot_mdsio,
                0127      &     PTRACERS_pickup_write_mdsio, PTRACERS_pickup_read_mdsio,
de55280acd Mart*0128      &     PTRACERS_monitor_stdio, PTRACERS_monitor_mnc,
50653b81f1 Ed H*0129      &     PTRACERS_timeave_mnc, PTRACERS_snapshot_mnc,
                0130      &     PTRACERS_pickup_write_mnc, PTRACERS_pickup_read_mnc
785a077159 Alis*0131 
dc3a357327 Jean*0132 C--   COMMON /PTRACERS_PARAMS_C/ PTRACERS character-type parameters:
0a278985fd Jean*0133       CHARACTER*(MAX_LEN_FNAM) PTRACERS_initialFile(PTRACERS_num)
                0134       CHARACTER*(MAX_LEN_FNAM) PTRACERS_names(PTRACERS_num)
                0135       CHARACTER*(MAX_LEN_FNAM) PTRACERS_long_names(PTRACERS_num)
                0136       CHARACTER*(MAX_LEN_FNAM) PTRACERS_units(PTRACERS_num)
                0137       COMMON /PTRACERS_PARAMS_C/
                0138      &     PTRACERS_initialFile,
                0139      &     PTRACERS_names,
                0140      &     PTRACERS_long_names,
                0141      &     PTRACERS_units
de55280acd Mart*0142 
01111eb599 Jean*0143 C     COMMON /PTRACERS_LABELS/ holds pTracers labels
                0144 C     PTRACERS_ioLabel  :: pTracer I/O & diagnostics label (2 charecters long)
                0145       COMMON /PTRACERS_LABELS/
                0146      &     PTRACERS_ioLabel
                0147       CHARACTER*2              PTRACERS_ioLabel(PTRACERS_num)
                0148 
785a077159 Alis*0149 #endif /* ALLOW_PTRACERS */
d2825c6d08 Ed H*0150 
                0151 CEH3 ;;; Local Variables: ***
                0152 CEH3 ;;; mode:fortran ***
                0153 CEH3 ;;; End: ***
[ 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
Valid CSS 2.1! Valid HTML 4.01!