pkg/rbcs/RBCS_PARAMS.h

5a13c92ce6 Step*0001 #ifdef ALLOW_RBCS
                0002
                0003 CBOP
a16c4403c6 Jean*0004 C    !ROUTINE: RBCS_PARAMS.h
5a13c92ce6 Step*0005 C    !INTERFACE:
                0006
                0007 C    !DESCRIPTION:
a16c4403c6 Jean*0008 C Contains RBCS parameters and input files for 3-D relaxation
5a13c92ce6 Step*0009 C Some of these can be read in from data.rbcs
a16c4403c6 Jean*0010 CEOP
1830fa7b80 Step*0011
a16c4403c6 Jean*0012 C---  RBCS Parameters:
fb7cd45a1a Oliv*0013 C     rbcsForcingPeriod :: period of rbc data (in seconds)
                0014 C     rbcsForcingCycle  :: cycle of rbc data (in seconds)
                0015 C     rbcsForcingOffset :: model time at beginning of first rbc period
                0016 C     rbcsSingleTimeFiles :: if .TRUE., rbc fields are given 1 file per time
                0017 C                         :: labeled by iteration number (see rbcsIter0,deltaTrbcs)
                0018 C     deltaTrbcs :: time step used to compute iteration numbers for singleTimeFiles
                0019 C     rbcsIter0  :: singleTimeFile iteration number corresponding to rbcsForcingOffset
880a0c1fb9 Gael*0020 C     rbcsVanishingTime :: when rbcsVanishingTime .NE. 0. the relaxation strength reduces
                0021 C                       :: linearly to vanish at myTime .EQ. rbcsVanishingTime
fb7cd45a1a Oliv*0022 C
a16c4403c6 Jean*0023       _RL tauRelaxU
                0024       _RL tauRelaxV
1830fa7b80 Step*0025       _RL tauRelaxT
                0026       _RL tauRelaxS
5a13c92ce6 Step*0027       _RL rbcsForcingPeriod
                0028       _RL rbcsForcingCycle
fb7cd45a1a Oliv*0029       _RL rbcsForcingOffset
                0030       _RL deltaTrbcs
880a0c1fb9 Gael*0031       _RL rbcsVanishingTime
fb7cd45a1a Oliv*0032       INTEGER rbcsIter0
                0033       LOGICAL rbcsSingleTimeFiles
a16c4403c6 Jean*0034       LOGICAL useRBCuVel
                0035       LOGICAL useRBCvVel
5a13c92ce6 Step*0036       LOGICAL useRBCtemp
                0037       LOGICAL useRBCsalt
a16c4403c6 Jean*0038       CHARACTER*(MAX_LEN_FNAM) relaxMaskUFile
                0039       CHARACTER*(MAX_LEN_FNAM) relaxMaskVFile
63f94a92e5 Jean*0040       CHARACTER*(MAX_LEN_FNAM) relaxMaskTrFile(maskLEN)
a16c4403c6 Jean*0041       CHARACTER*(MAX_LEN_FNAM) relaxUFile
                0042       CHARACTER*(MAX_LEN_FNAM) relaxVFile
5a13c92ce6 Step*0043       CHARACTER*(MAX_LEN_FNAM) relaxTFile
                0044       CHARACTER*(MAX_LEN_FNAM) relaxSFile
                0045
9e0fde7eaf Patr*0046       COMMON /RBCS_PARM01_R/
a16c4403c6 Jean*0047      &          tauRelaxU,
                0048      &          tauRelaxV,
1830fa7b80 Step*0049      &          tauRelaxT,
                0050      &          tauRelaxS,
5a13c92ce6 Step*0051      &          rbcsForcingPeriod,
fb7cd45a1a Oliv*0052      &          rbcsForcingCycle,
                0053      &          rbcsForcingOffset,
880a0c1fb9 Gael*0054      &          rbcsVanishingTime,
fb7cd45a1a Oliv*0055      &          deltaTrbcs
9e0fde7eaf Patr*0056       COMMON /RBCS_PARM01_I/
fb7cd45a1a Oliv*0057      &          rbcsIter0
9e0fde7eaf Patr*0058       COMMON /RBCS_PARM01_L/
fb7cd45a1a Oliv*0059      &          rbcsSingleTimeFiles,
a16c4403c6 Jean*0060      &          useRBCuVel,
                0061      &          useRBCvVel,
5a13c92ce6 Step*0062      &          useRBCtemp,
c3afacc940 Jean*0063      &          useRBCsalt
9e0fde7eaf Patr*0064       COMMON /RBCS_PARM01_C/
a16c4403c6 Jean*0065      &          relaxMaskUFile,
                0066      &          relaxMaskVFile,
63f94a92e5 Jean*0067      &          relaxMaskTrFile,
a16c4403c6 Jean*0068      &          relaxUFile,
                0069      &          relaxVFile,
9e0fde7eaf Patr*0070      &          relaxTFile,
                0071      &          relaxSFile
5a13c92ce6 Step*0072
                0073 #ifdef ALLOW_PTRACERS
27afb9cdd5 Jean*0074       LOGICAL useRBCpTrNum(PTRACERS_num)
e993b22a92 Jean*0075       _RL tauRelaxPTR(PTRACERS_num)
                0076       CHARACTER*(MAX_LEN_FNAM) relaxPtracerFile(PTRACERS_num)
                0077
                0078       COMMON /RBCS_PARM02_L/
27afb9cdd5 Jean*0079      &          useRBCpTrNum
e993b22a92 Jean*0080       COMMON /RBCS_PARM02_R/
                0081      &          tauRelaxPTR
                0082       COMMON /RBCS_PARM02_C/
                0083      &          relaxPtracerFile
c3afacc940 Jean*0084 #endif /* ALLOW_PTRACERS */
5a13c92ce6 Step*0085
c3afacc940 Jean*0086 #endif /* ALLOW_RBCS */