!====================================================================== ! CROCO is a branch of ROMS developped at IRD, INRIA, ! Ifremer, CNRS and Univ. Toulouse III in France ! The two other branches from UCLA (Shchepetkin et al) ! and Rutgers University (Arango et al) are under MIT/X style license. ! CROCO specific routines (nesting) are under CeCILL-C license. ! ! CROCO website : http://www.croco-ocean.org !====================================================================== ! !---------------------------------------------------------------------- ! Dimensions of Physical Grid and array dimensions !---------------------------------------------------------------------- ! ! LLm,MMm Number of the internal points of the PHYSICAL grid. ! in the XI- and ETA-directions [physical side boundary ! points and peroodic ghost points (if any) are excluded]. ! ! Lm,Mm Number of the internal points [see above] of array ! covering a Message Passing subdomain. In the case when ! no Message Passing partitioning is used, these two are ! the same as LLm,MMm. ! ! N Number of vertical levels. ! integer LLm,Lm,MMm,Mm,N, LLm0,MMm0 #if defined AGRIF integer LLmm2, MMmm2 #endif #if defined ABL1D integer N_abl #endif #if defined BASIN parameter (LLm0=60, MMm0=50, N=10) #elif defined CANYON parameter (LLm0=65, MMm0=48, N=16) #elif defined EQUATOR parameter (LLm0=40, MMm0=32, N=32) ! 100 km resolution #elif defined KH_INST # ifndef KH_INSTY # ifdef KH_INST3D parameter (LLm0=256, MMm0=32, N=256) ! 1 m resolution # else parameter (LLm0=128, MMm0=1, N=128) ! 2 m resolution # endif # else parameter (LLm0=1, MMm0=256, N=256) # endif #elif defined ACOUSTIC parameter (LLm0=64, MMm0=1, N=64) #elif defined GRAV_ADJ # ifdef NBQ ! parameter (LLm0=600, MMm0=1, N=60) ! 5 mm resolution parameter (LLm0=300, MMm0=1, N=30) ! 10 mm resolution # else ! parameter (LLm0=32, MMm0=1, N=10) ! 2 km resolution parameter (LLm0=128, MMm0=1, N=40) ! 500 m resolution ! parameter (LLm0=512, MMm0=1, N=160) ! 125 m resolution # endif #elif defined ISOLITON parameter (LLm0=60, MMm0=1, N=74) ! 10 cm resolution #elif defined INNERSHELF parameter (LLm0=200, MMm0=3, N=60) #elif defined INTERNAL ! parameter (LLm0=120, MMm0=3, N=40) ! 10 km resolution parameter (LLm0=800, MMm0=3, N=40) ! 1.5 km resolution ! parameter (LLm0=1600, MMm0=3, N=40) ! .75 km resolution #elif defined IGW # ifndef NBQ ! parameter (LLm0=878, MMm0=3, N=80) ! 1 km resolution parameter (LLm0=878, MMm0=3, N=40) ! parameter (LLm0=878, MMm0=3, N=20) # else parameter (LLm0=256, MMm0=3, N=40) # endif #elif defined OVERFLOW parameter (LLm0=4, MMm0=128, N=10) #elif defined TS_HADV_TEST parameter (LLm0=100, MMm0=100, N=5) #elif defined SINGLE_COLUMN # ifdef KATO_PHILIPS parameter (LLm0=5 , MMm0=5, N=100) # elif defined WILLIS_DEARDORFF || defined FORCED_NONROTBBL \ || defined FORCED_OSCNONROTBBL parameter (LLm0=5 , MMm0=5, N=50) # elif defined FORCED_EKBBL parameter (LLm0=5 , MMm0=5, N=40) # elif defined FORCED_DBLEEK parameter (LLm0=5 , MMm0=5, N=25) # elif defined DIURNAL_CYCLE parameter (LLm0=5 , MMm0=5, N=150) # endif #elif defined RIVER parameter (LLm0=40, MMm0=80, N=20) #elif defined SEAGRASS parameter (LLm0=36, MMm0=5, N=40) #elif defined SEAMOUNT parameter (LLm0=64, MMm0=64, N=20) #elif defined SHELFRONT parameter (LLm0=3, MMm0=40, N=10) #elif defined SOLITON parameter (LLm0=96, MMm0=32, N=10) #elif defined UPWELLING parameter (LLm0=16, MMm0=64, N=16) #elif defined VORTEX ! parameter (LLm0=360, MMm0=360, N=10) ! 5 km resolution ! parameter (LLm0=180, MMm0=180, N=10) ! 10 km resolution ! parameter (LLm0=90, MMm0=90, N=10) ! 20 km resolution parameter (LLm0=60, MMm0=60, N=10) ! 30 km resolution #elif defined JET # ifdef ANA_JET ! parameter (LLm0=250, MMm0=1000, N=100) ! 2 km resolution ! parameter (LLm0=100, MMm0=400, N=80) ! 5 km resolution ! parameter (LLm0= 50, MMm0=200, N=60) ! 10 km resolution parameter (LLm0= 25, MMm0=100, N=40) ! 20 km resolution # else ! parameter (LLm0=300, MMm0=500, N=30) ! 2 km resolution ! parameter (LLm0=120, MMm0=200, N=30) ! 5 km resolution ! parameter (LLm0=60, MMm0=100, N=30) ! 10 km resolution parameter (LLm0=30, MMm0=50, N=30) ! 20 km resolution # endif #elif defined SHOREFACE parameter (LLm0=59, MMm0=1, N=20) ! 20 m Planar Beach #elif defined SANDBAR # ifndef NBQ parameter (LLm0=100, MMm0=1, N=10) ! 3 m Sandbar # else ! parameter (LLm0=180, MMm0=1, N=10) ! 1.0 m Sandbar ! parameter (LLm0=360, MMm0=1, N=20) ! 0.5 m Sandbar parameter (LLm0=720, MMm0=1, N=20) ! 0.25 m Sandbar # endif #elif defined SWASH ! parameter (LLm0=100, MMm0=1, N=10) ! 1 m Swash parameter (LLm0=800, MMm0=1, N=10) ! 12 cm Swash (GLOBEX) #elif defined RIP # ifdef BISCA parameter (LLm0= 86, MMm0=92, N=20) ! 10 m Bisca Rip # else ! parameter (LLm0=256, MMm0=256, N=20) ! 3 m resolution ! parameter (LLm0= 96, MMm0= 96, N=20) ! 8 m resolution parameter (LLm0= 48, MMm0= 48, N=20) ! 16 m resolution # endif #elif defined THACKER # ifdef THACKER_2DV parameter (LLm0=200, MMm0=1, N=5 ) ! 1 km resolution # else parameter (LLm0=200, MMm0=200, N=5 ) ! 1 km resolution # endif #elif defined TANK # ifndef TANKY parameter (LLm0=50, MMm0=1, N=50) ! 20 cm resolution # else parameter (LLm0=1, MMm0=50, N=50) ! 20 cm resolution # endif #elif defined MOVING_BATHY parameter (LLm0=500, MMm0=1, N=50) ! 8 mm resolution ! parameter (LLm0=1000, MMm0=1, N=100) ! 4 mm resolution ! parameter (LLm0=4000, MMm0=1, N=400) ! 1 mm resolution #elif defined CALDEIRA parameter (LLm0=100, MMm0=100, N=50) #elif defined DUNE # ifdef ANA_DUNE parameter (LLm0=150, MMm0=1, N=20) ! 2 m resolution # elif defined DUNE3D parameter (LLm0=50, MMm0=50, N=20) ! 2 m resolution # else parameter (LLm0=50, MMm0=1, N=20) ! 2 m resolution # endif #elif defined SED_TOY # ifdef SED_TOY_ROUSE parameter (LLm0=5, MMm0=5, N=100) ! 5 cm resolution # elif defined SED_TOY_FLOC_0D || defined SED_TOY_FLOC_1D parameter (LLm0=5, MMm0=5, N=50) ! 10 cm resolution # else parameter (LLm0=4, MMm0=3, N=20) ! 1 m resolution # endif #elif defined TIDAL_FLAT parameter (LLm0=200, MMm0=3, N=10) ! TIDAL_FLAT #elif defined ESTUARY parameter (LLm0=200, MMm0=90, N=5) ! ESTUARY #elif defined KILPATRICK parameter (LLm0=600, MMm0=3, N=2) ! KILPATRICK # if defined ABL1D parameter (N_abl=50) # endif #elif defined REGIONAL # if defined BACIAPOTIGUAR parameter (LLm0=54, MMm0=40, N=40) ! BACIAPOTIGUAR # elif defined BENGUELA_HR parameter (LLm0=83, MMm0=85, N=32) ! BENGUELA_HR # elif defined BENGUELA_VHR parameter (LLm0=167, MMm0=170, N=32) ! BENGUELA_VHR # elif defined GIBRALTAR_BR4 parameter (LLm0=591, MMm0=272, N=40) # elif defined GIBRALTAR_HR4 parameter (LLm0=575, MMm0=315, N=40) # elif defined GIBRALTAR_VHR5 parameter (LLm0=348, MMm0=198, N=40) # else parameter (LLm0=xx, MMm0=xx, N=xx) ! YOUR REGIONAL CONFIG # endif # if defined ABL1D parameter (N_abl=50) # endif #elif defined COASTAL # if defined VILAINE parameter (LLm0=180, MMm0=130, N=10) ! VILAINE # else parameter (LLm0=94, MMm0=81, N=40) ! YOUR COASTAL CONFIG # endif #else parameter (LLm0=xxx, MMm0=xxx, N=xxx) #endif #ifdef AGRIF common /scrum_physical_grid/ LLm,Lm,LLmm2,MMm,Mm,MMmm2 #else parameter (LLm=LLm0, MMm=MMm0) #endif ! !---------------------------------------------------------------------- ! Number of layers in Sediment (SL) !---------------------------------------------------------------------- ! integer N_sl !parameter (N_sl=40) parameter (N_sl=0) ! !---------------------------------------------------------------------- ! MPI related variables !---------------------------------------------------------------------- ! integer Lmmpi,Mmmpi,iminmpi,imaxmpi,jminmpi,jmaxmpi common /comm_setup_mpi1/ Lmmpi,Mmmpi common /comm_setup_mpi2/ iminmpi,imaxmpi,jminmpi,jmaxmpi ! ! Domain subdivision parameters ! ====== =========== ========== ! ! NPP Maximum allowed number of parallel threads; ! NSUB_X,NSUB_E Number of SHARED memory subdomains in XI- and ! ETA-directions; ! NNODES Total number of MPI processes (nodes); ! NP_XI,NP_ETA Number of MPI subdomains in XI- and ETA-directions; ! integer NSUB_X, NSUB_E, NPP #ifdef MPI integer NP_XI, NP_ETA, NNODES parameter (NP_XI=1, NP_ETA=4, NNODES=NP_XI*NP_ETA) parameter (NPP=1) parameter (NSUB_X=1, NSUB_E=1) #ifdef OPENACC integer my_acc_device logical compute_on_device common/comm_my_device/my_acc_device,compute_on_device #endif #elif defined OPENMP parameter (NPP=4) # ifdef AUTOTILING common/distrib/NSUB_X, NSUB_E # else parameter (NSUB_X=1, NSUB_E=NPP) # endif #else parameter (NPP=1) # ifdef AUTOTILING common/distrib/NSUB_X, NSUB_E # else parameter (NSUB_X=1, NSUB_E=NPP) # endif #ifdef OPENACC integer,parameter :: my_acc_device = 0 logical,parameter :: compute_on_device = .true. #endif #endif ! !---------------------------------------------------------------------- ! Number maximum of weights for the barotropic mode !---------------------------------------------------------------------- ! integer NWEIGHT parameter (NWEIGHT=1000) ! !---------------------------------------------------------------------- ! Tides !---------------------------------------------------------------------- ! #if defined SSH_TIDES || defined UV_TIDES || defined POT_TIDES integer Ntides ! Number of tides ! ====== == ===== # if defined IGW parameter (Ntides=1) # else parameter (Ntides=8) # endif #endif ! !---------------------------------------------------------------------- ! Wetting-Drying !---------------------------------------------------------------------- ! #ifdef WET_DRY real D_wetdry ! Critical Depth for Drying cells ! ======== ===== === ====== ===== # if defined SWASH parameter (D_wetdry=0.001) # elif defined THACKER parameter (D_wetdry=0.01) # elif defined SANDBAR || defined TIDAL_FLAT || defined ESTUARY parameter (D_wetdry=0.1) # else parameter (D_wetdry=0.2) # endif #endif ! !---------------------------------------------------------------------- ! Minimum water depth above which wave forcing is applied ! (D_wavedry>D_wetdry if WET_DRY is activated) !---------------------------------------------------------------------- #ifdef MRL_WCI # ifdef WAVE_DRY real D_wavedry parameter (D_wavedry=1.0) # endif #endif ! !---------------------------------------------------------------------- ! Point sources, Floast, Stations !---------------------------------------------------------------------- ! #if defined PSOURCE || defined PSOURCE_MASS || defined PSOURCE_NCFILE integer Msrc ! Number of point sources # ifdef RIVER parameter (Msrc=2) ! ====== == ===== ======= # elif defined SEAGRASS parameter (Msrc=1) ! ====== == ===== ======= # elif defined VILAINE parameter (Msrc=2) ! ====== == ===== ======= # elif defined ESTUARY parameter (Msrc=1) ! ====== == ===== ======= # else parameter (Msrc=30) ! ====== == ===== ======= # endif #endif #ifdef FLOATS integer Mfloats ! Maximum number of floats parameter (Mfloats=32000) ! ======= ====== == ====== #endif #ifdef STATIONS integer NS ! Number of output stations parameter (NS=5) ! ====== == ====== ======== integer Msta ! Maximum number of stations parameter (Msta=1000) ! ======= ====== == ======== #endif ! !---------------------------------------------------------------------- ! Derived dimension parameters !---------------------------------------------------------------------- ! integer stdout, Np, NpHz, padd_X,padd_E #ifdef AGRIF common/scrum_deriv_param/padd_X,padd_E #endif #ifdef LOGFILE common /stdout/stdout #else parameter (stdout=6) #endif parameter (Np=N+1) parameter (NpHz=(N+1+N_sl)) #ifndef AGRIF # ifdef MPI parameter (Lm=(LLm+NP_XI-1)/NP_XI, Mm=(MMm+NP_ETA-1)/NP_ETA) # else parameter (Lm=LLm, Mm=MMm) # endif parameter (padd_X=(Lm+2)/2-(Lm+1)/2) parameter (padd_E=(Mm+2)/2-(Mm+1)/2) #endif #if defined AGRIF || defined AUTOTILING integer NSA, N2d,N3d,N3dHz,N1dXI,N1dETA # if !defined NBQ parameter (NSA=28) # else parameter (NSA=35) # endif common /scrum_private_param/ N2d,N3d,N3dHz,N1dXI,N1dETA #else integer NSA, N2d,N3d,N3dHz, size_XI,size_ETA integer se,sse, sz,ssz # ifdef ABL1D integer N2dabl,N3dabl integer se_abl,sse_abl, sz_abl,ssz_abl # endif # if !defined NBQ parameter (NSA=28) # else parameter (NSA=35) # endif # ifdef ALLOW_SINGLE_BLOCK_MODE parameter (size_XI=6+Lm, size_ETA=6+Mm) # else parameter (size_XI=7+(Lm+NSUB_X-1)/NSUB_X) parameter (size_ETA=7+(Mm+NSUB_E-1)/NSUB_E) # endif parameter (sse=size_ETA/Np, ssz=Np/size_ETA) parameter (se=sse/(sse+ssz), sz=1-se) parameter (N2d=size_XI*(se*size_ETA+sz*Np)) parameter (N3d=size_XI*size_ETA*Np) parameter (N3dHz=size_XI*size_ETA*NpHz) # ifdef ABL1D parameter (sse_abl=size_ETA/(N_abl+1), ssz_abl=(N_abl+1)/size_ETA) parameter (se_abl=sse_abl/(sse_abl+ssz_abl), sz_abl=1-se_abl) parameter (N2dabl=size_XI*(se_abl*size_ETA+sz_abl*(N_abl+1))) parameter (N3dabl=size_XI*size_ETA*(N_abl+1)) # endif #endif ! !---------------------------------------------------------------------- ! I/O : flag for type sigma vertical transformation !---------------------------------------------------------------------- ! #ifdef NEW_S_COORD real Vtransform parameter (Vtransform=2) #else real Vtransform parameter (Vtransform=1) #endif ! !---------------------------------------------------------------------- ! Number of tracers !---------------------------------------------------------------------- ! #ifdef SOLVE3D integer NT, NTA, itemp, NTot integer ntrc_temp, ntrc_salt, ntrc_pas, ntrc_bio, ntrc_sed integer ntrc_subs, ntrc_substot ! # ifdef TEMPERATURE parameter (itemp=1) parameter (ntrc_temp=1) # else parameter (itemp=0) parameter (ntrc_temp=0) # endif # ifdef SALINITY parameter (ntrc_salt=1) # else parameter (ntrc_salt=0) # endif # ifdef PASSIVE_TRACER # ifdef KH_INST parameter (ntrc_pas=2) # else parameter (ntrc_pas=1) # endif # else parameter (ntrc_pas=0) # endif # ifdef BIOLOGY # ifdef PISCES # ifdef key_pisces_light parameter (ntrc_bio=9) # elif defined key_pisces_quota # ifdef key_ligand parameter (ntrc_bio=40) # else parameter (ntrc_bio=39) # endif # else # ifdef key_ligand parameter (ntrc_bio=25) # else parameter (ntrc_bio=24) # endif # endif # elif defined BIO_NChlPZD # ifdef OXYGEN parameter (ntrc_bio=6) # else parameter (ntrc_bio=5) # endif # elif defined BIO_N2ChlPZD2 parameter (ntrc_bio=7) # elif defined BIO_BioEBUS # ifdef NITROUS_OXIDE parameter (ntrc_bio=12) # else parameter (ntrc_bio=11) # endif # endif # else parameter (ntrc_bio=0) # endif /* BIOLOGY */ /*! === SUBSTANCE ===*/ ! # if defined SUBSTANCE ! ntrc_subs : number of advected substances (not fixed, neither benthic) integer itsubs1, itsubs2, ntfix # ifdef SED_TOY # if defined SED_TOY_FLOC_0D || defined SED_TOY_FLOC_1D parameter (ntrc_subs=15 , ntfix=0, ntrc_substot=ntrc_subs+ntfix ) # else parameter (ntrc_subs=6 , ntfix=0, ntrc_substot=ntrc_subs+ntfix ) # endif # elif defined TIDAL_FLAT parameter (ntrc_subs=3 , ntfix=0, ntrc_substot=ntrc_subs+ntfix ) # elif defined ESTUARY parameter (ntrc_subs=2 , ntfix=0, ntrc_substot=ntrc_subs+ntfix ) # elif defined VILAINE parameter (ntrc_subs=3 , ntfix=0, ntrc_substot=ntrc_subs+ntfix ) # else parameter (ntrc_subs=2 , ntfix=0, ntrc_substot=ntrc_subs+ntfix ) # endif parameter (itsubs1= itemp+ntrc_salt+ntrc_pas+ntrc_bio+1 ) parameter (itsubs2= itemp+ntrc_salt+ntrc_pas+ntrc_bio+ntrc_subs ) # else parameter (ntrc_subs=0, ntrc_substot=0) # endif /* SUBSTANCE */ ! # ifdef SEDIMENT ! NSAND Number of sand classes ! NMUD Number of mud classes ! NGRAV Number of gravel classes (not implemented...) ! NST Number of sediment (tracer) size classes ! NLAY Number of layers in sediment bed ! integer NSAND, NMUD, NGRAV, NST, NLAY # ifdef DUNE # ifdef ANA_DUNE parameter (NSAND=1, NMUD=0, NGRAV=0) parameter (NLAY=11) # else parameter (NSAND=2, NMUD=0, NGRAV=0) parameter (NLAY=10) # endif # elif defined SED_TOY # if defined SED_TOY_RESUSP || defined SED_TOY_CONSOLID parameter (NSAND=2, NMUD=2, NGRAV=0) parameter (NLAY=41) # elif defined SED_TOY_FLOC_0D || defined SED_TOY_FLOC_1D parameter (NSAND=4, NMUD=15, NGRAV=0) parameter (NLAY=20) # elif defined SED_TOY_ROUSE parameter (NSAND=0, NMUD=6, NGRAV=0) parameter (NLAY=1) # endif # else parameter (NSAND=2, NMUD=0, NGRAV=0) parameter (NLAY=1) # endif parameter (ntrc_sed=NSAND+NMUD+NGRAV) parameter (NST=ntrc_sed) # else parameter (ntrc_sed=0) # endif /* SEDIMENT */ ! ! Total number of active tracers ! parameter (NTA=itemp+ntrc_salt) ! ! Total number of tracers ! # ifdef SUBSTANCE parameter (NT=itemp+ntrc_salt+ntrc_pas+ntrc_bio+ntrc_sed+ntrc_subs) parameter (NTot=NT+ntfix) # else parameter (NT=itemp+ntrc_salt+ntrc_pas+ntrc_bio+ntrc_sed) parameter (NTot=NT) # endif /* SUBSTANCE */ # ifdef MUSTANG ! vertical dimension (ksdmin:ksdmax) of variables in sediment ! (ksdmax=max number of layers) integer ksdmin,ksdmax # if defined ANA_DUNE || defined key_ANA_bedload parameter (ksdmin=1,ksdmax=11) # elif defined TIDAL_FLAT || defined ESTUARY parameter (ksdmin=1,ksdmax=3) # else parameter (ksdmin=1,ksdmax=10) # endif # endif /* MUSTANG */ # if defined SEDIMENT && defined AGRIF integer Agrif_lev_sedim parameter (Agrif_lev_sedim=0) # endif # ifdef GLS_MIXING integer NGLS parameter(NGLS=2) integer itke parameter(itke=1) integer igls parameter(igls=2) # endif #endif /* SOLVE3D */ ! !---------------------------------------------------------------------- ! Tracer identification indices !---------------------------------------------------------------------- ! #if defined SOLVE3D integer ntrc_diats, ntrc_diauv, ntrc_diabio integer ntrc_diavrt, ntrc_diaek, ntrc_diapv integer ntrc_diaeddy, ntrc_surf # ifdef BIOLOGY & , itrc_bio # endif # ifdef SEDIMENT & , itrc_sed, itrc_sand, itrc_mud, itrc_grav # endif # ifdef SALINITY & , isalt # endif # ifdef PASSIVE_TRACER & , itpas # endif ! # ifdef BIOLOGY # ifdef PISCES & , iDIC_, iTAL_, iOXY_, iCAL_, iPO4_ & , iPOC_, iSIL_, iPHY_, iZOO_, iDOC_ & , iDIA_, iMES_, iBSI_, iFER_ & , iBFE_, iGOC_, iSFE_, iDFE_, iDSI_ & , iNFE_, iNCH_, iDCH_, iNO3_, iNH4_ & , iLGW_, iDON_, iDOP_, iPON_, iPOP_ & , iNPH_, iPPH_, iNDI_, iPDI_, iPIC_ & , iNPI_, iPPI_, iPFE_, iPCH_, iGON_ & , iGOP_ # ifdef DIAGNOSTICS_BIO # ifdef key_trc_diaadd & , Nhi,Nco3,Naksp,Netot,Nprorca & , Nprorcad,Npronew,Npronewd & , Nprobsi,Nprofed,Nprofen & , Ngrapoc,Ngrapoc2 & , Nmico2,Nmeso2 & , Nnitrifo2,Nfixo2,Nremino2 & , Npronewo2,Nprorego2 & , Nfld,Nflu16,Nkgco2,Natcco2,Nsinking & , Nsinkfer,Nsinksil,Nironsed & , Nsinkcal,Nheup,Nnitrpot & , Nirondep,Nsildep,Npo4dep & , Nno3dep,Nnh4dep # endif # endif & , NumFluxTerms,NumVSinkTerms,NumGasExcTerms # elif defined BIO_NChlPZD & , iNO3_, iChla, iPhy1, iZoo1 & , iDet1 # ifdef OXYGEN & , iO2 # endif & , NFlux_NewProd, NFlux_Grazing, NFlux_SlopFeed & , NFlux_Pmort, NFlux_Zmetab, NFlux_Zmort, NFlux_ReminD & , NumFluxTermsN # ifdef OXYGEN & , OGain_NewProd, OLoss_Zmetab & , OLoss_ReminD, NumFluxTermsO, OFlux_GasExc & , NumGasExcTerms, NumFluxTerms # else & , NumGasExcTerms & , NumFluxTerms # endif & , NFlux_VSinkP1, NFlux_VSinkD1 & , NumVSinkTerms # elif defined BIO_N2ChlPZD2 & , iNO3_, iNH4_, iChla, iPhy1, iZoo1 & , iDet1, iDet2 & , NFlux_NewProd & , NFlux_RegProd & , NFlux_Nitrific & , NFlux_Grazing & , NFlux_SlopFeed & , NFlux_Pmort & , NFlux_Zmetab & , NFlux_Zmort & , NFlux_ReminD1, NFlux_ReminD2 & , NFlux_CoagPhy, NFlux_CoagSDet & , NumFluxTermsN, NumFluxTerms, NumGasExcTerms & , NFlux_VSinkP1 & , NFlux_VSinkD1, NFlux_VSinkD2 & , NumVSinkTerms # elif defined BIO_BioEBUS & , iNO3_, iNO2_, iNH4_, iPhy1, iPhy2, iZoo1, iZoo2 & , iDet1, iDet2, iDON, iO2 # ifdef NITROUS_OXIDE & , iN2O # endif & , NFlux_lightlimitP1, NFlux_lightlimitP2 & , NFlux_templimitP1, NFlux_templimitP2 & , NFlux_NO3limitP1, NFlux_NO2limitP1 & , NFlux_NH4limitP1, NFlux_NO3limitP2 & , NFlux_NO2limitP2, NFlux_NH4limitP2 & , NFlux_ProdNO3P1, NFlux_ProdNO3P2 & , NFlux_ProdNO2P1, NFlux_ProdNO2P2 & , NFlux_Nitrif1, NFlux_Nitrif2, NFlux_ProdNH4P1 & , NFlux_ProdNH4P2, NFlux_P1Z1Grazing & , NFlux_P2Z1Grazing, NFlux_P1mort, NFlux_P2mort & , NFlux_P1Z2Grazing, NFlux_P2Z2Grazing & , NFlux_Z1Z2Grazing, NFlux_Z1metab, NFlux_Z1mort & , NFlux_Z2metab, NFlux_Z2mort, NFlux_HydrolD1 & , NFlux_ReminOxyD1, NFlux_Denitr1D1 & , NFlux_Denitr2D1 & , NFlux_HydrolD2, NFlux_ReminOxyD2 & , NFlux_Denitr1D2, NFlux_Denitr2D2 & , NFlux_ReminOxyDON & , NFlux_Denitr1DON, NFlux_Denitr2DON & , NFlux_NO2anammox & , NFlux_NH4anammox, O2Flux_GasExc, NumFluxTermsN # ifdef NITROUS_OXIDE & , NFlux_paramN2O, N2OFlux_GasExc # endif & , NumFluxTerms, NumGasExcTerms & , NFlux_VSinkP2, NFlux_VSinkD1 & , NFlux_VSinkD2, NumVSinkTerms # endif # endif /* BIOLOGY */ # ifdef SEDIMENT & ,isand1,imud1,isand2,imud2,igrav1,igrav2 # endif ! ! ================ Parameters ===================== ! # ifdef SALINITY parameter (isalt=itemp+1) # endif # ifdef PASSIVE_TRACER parameter (itpas=itemp+ntrc_salt+1) # endif ! ! === BIOLOGY === ! # ifdef BIOLOGY # ifdef PISCES parameter (itrc_bio=itemp+ntrc_salt+ntrc_pas+1) parameter (iDIC_=itrc_bio, iTAL_=iDIC_+1, iOXY_=iDIC_+2) # ifdef key_pisces_light parameter ( iPOC_=iDIC_+3, iPHY_=iDIC_+4, iZOO_=iDIC_+5, & iDOC_=iDIC_+6, iNO3_=iDIC_+7, iFER_=iDIC_+8) # endif # if ! defined key_pisces_light parameter ( iCAL_=iDIC_+3, iPO4_=iDIC_+4, & iPOC_=iDIC_+5, iSIL_=iDIC_+6, iPHY_=iDIC_+7, & iZOO_=iDIC_+8, iDOC_=iDIC_+9, iDIA_=iDIC_+10, & iMES_=iDIC_+11, iBSI_=iDIC_+12, iFER_=iDIC_+13, & iBFE_=iDIC_+14, iGOC_=iDIC_+15, iSFE_=iDIC_+16, & iDFE_=iDIC_+17, iDSI_=iDIC_+18, iNFE_=iDIC_+19, & iNCH_=iDIC_+20, iDCH_=iDIC_+21, iNO3_=iDIC_+22, & iNH4_=iDIC_+23) # ifdef key_ligand parameter (iLGW_=iDIC_+24) # endif # endif # ifdef key_pisces_quota # ifdef key_ligand parameter (iDON_=iDIC_+25, iDOP_=iDIC_+26, iPON_=iDIC_+27, & iPOP_=iDIC_+28, iNPH_=iDIC_+29, iPPH_=iDIC_+30, & iNDI_=iDIC_+31, iPDI_=iDIC_+32, iPIC_=iDIC_+33, & iNPI_=iDIC_+34, iPPI_=iDIC_+35, iPFE_=iDIC_+36, & iPCH_=iDIC_+37, iGON_=iDIC_+38, iGOP_=iDIC_+39) # else parameter (iDON_=iDIC_+24, iDOP_=iDIC_+25, iPON_=iDIC_+26, & iPOP_=iDIC_+27, iNPH_=iDIC_+28, iPPH_=iDIC_+29, & iNDI_=iDIC_+30, iPDI_=iDIC_+31, iPIC_=iDIC_+32, & iNPI_=iDIC_+33, iPPI_=iDIC_+34, iPFE_=iDIC_+35, & iPCH_=iDIC_+36, iGON_=iDIC_+37, iGOP_=iDIC_+38) # endif # endif # ifdef key_trc_diaadd parameter (Nhi = 1, & Nco3 = 2, & Naksp = 3, & Netot = 4, & Nprorca = 5, & Ngrapoc = 6, & Nmico2 = 7, & Nremino2 = 8, & Nfixo2 = 9, & Nirondep = 10, & Nironsed = 11, & Npronew = 12, # if defined key_pisces_light & NumFluxTerms = Npronew) # else & Npronewd = 13, & Nprorcad = 14, & Nprobsi = 15, & Nprofen = 16, & Nprofed = 17, & Npronewo2 = 18, & Nprorego2 = 19, & Ngrapoc2 = 20, & Nmeso2 = 21, & Nnitrifo2 = 22, & NumFluxTerms = Nnitrifo2) # endif parameter (Nfld = 1, & Nflu16 = 2, & Nkgco2 = 3, & Natcco2 = 4, & Nsinking = 5, & Nheup = 6, & Nno3dep = 7, & Nnitrpot = 8, # if defined key_pisces_light & NumGasExcTerms = 0, & NumVSinkTerms = Nnitrpot) # else & Nsinkfer = 9, & Nsinksil = 10, & Nsinkcal = 11, & Nsildep = 12, & Npo4dep = 13, & Nnh4dep = 14, & NumGasExcTerms = 0, & NumVSinkTerms = Nnh4dep) # endif # else parameter (NumFluxTerms = 0) parameter (NumGasExcTerms = 0, NumVSinkTerms = 0) # endif # elif defined BIO_NChlPZD parameter (itrc_bio=itemp+ntrc_salt+ntrc_pas+1) parameter (iNO3_=itrc_bio, iChla=iNO3_+1, & iPhy1=iNO3_+2, & iZoo1=iNO3_+3, & iDet1=iNO3_+4) # ifdef OXYGEN parameter (iO2=iNO3_+5) # endif parameter (NFlux_NewProd = 1, & NFlux_Grazing = 2, & NFlux_SlopFeed = 3, & NFlux_Pmort = 4, & NFlux_Zmetab = 5, & NFlux_Zmort = 6, & NFlux_ReminD = 7, & NumFluxTermsN = 7, # ifdef OXYGEN & OGain_NewProd = 8, & OLoss_Zmetab = 9, & OLoss_ReminD = 10, & NumFluxTermsO = 3, & OFlux_GasExc = 1, & NumGasExcTerms = 1, & NumFluxTerms = 10, # else & NumGasExcTerms = 0, & NumFluxTerms = 7, # endif & NFlux_VSinkP1 = 1, & NFlux_VSinkD1 = 2, & NumVSinkTerms = 2) # elif defined BIO_N2ChlPZD2 parameter (itrc_bio=itemp+ntrc_salt+ntrc_pas+1) parameter (iNO3_=itrc_bio, iNH4_=iNO3_+1, iChla=iNO3_+2, & iPhy1=iNO3_+3, & iZoo1=iNO3_+4, & iDet1=iNO3_+5, iDet2=iNO3_+6) parameter (NFlux_NewProd = 1, & NFlux_RegProd = 2, & NFlux_Nitrific = 3, & NFlux_Grazing = 4, & NFlux_SlopFeed = 5, & NFlux_Pmort = 6, & NFlux_Zmetab = 7, & NFlux_Zmort = 8, & NFlux_CoagPhy = 9, & NFlux_CoagSDet = 10, & NFlux_ReminD1 = 11, & NFlux_ReminD2 = 12, & NumFluxTermsN = 12, & NumFluxTerms = 12, & NumGasExcTerms = 0, & NFlux_VSinkP1 = 1, & NFlux_VSinkD1 = 2, & NFlux_VSinkD2 = 3, & NumVSinkTerms = 3) # elif defined BIO_BioEBUS # ifdef NITROUS_OXIDE parameter (itrc_bio=itemp+ntrc_salt+ntrc_pas+1) # else parameter (itrc_bio=itemp+ntrc_salt+ntrc_pas+1) # endif parameter (iNO3_=itrc_bio, iNO2_=iNO3_+1, iNH4_=iNO3_+2, & iPhy1=iNO3_+3, iPhy2=iNO3_+4, & iZoo1=iNO3_+5, iZoo2=iNO3_+6, & iDet1=iNO3_+7, iDet2=iNO3_+8, & iDON=iNO3_+9, iO2=iNO3_+10) # ifdef NITROUS_OXIDE parameter (iN2O=iNO3_+11) # endif parameter( NFlux_lightlimitP1=1 & , NFlux_lightlimitP2=2 & , NFlux_templimitP1=3 & , NFlux_templimitP2=4 & , NFlux_NO3limitP1=5 & , NFlux_NO2limitP1=6 & , NFlux_NH4limitP1=7 & , NFlux_NO3limitP2=8 & , NFlux_NO2limitP2=9 & , NFlux_NH4limitP2=10 & , NFlux_ProdNO3P1=11 & , NFlux_ProdNO3P2=12 & , NFlux_ProdNO2P1=13 & , NFlux_ProdNO2P2=14 & , NFlux_Nitrif1=15 & , NFlux_Nitrif2=16 & , NFlux_ProdNH4P1=17 & , NFlux_ProdNH4P2=18 & , NFlux_P1Z1Grazing=19 & , NFlux_P2Z1Grazing=20 & , NFlux_P1mort=21 & , NFlux_P2mort=22 & , NFlux_P1Z2Grazing=23 & , NFlux_P2Z2Grazing=24 & , NFlux_Z1Z2Grazing=25 & , NFlux_Z1metab=26 & , NFlux_Z1mort=27 & , NFlux_Z2metab=28 & , NFlux_Z2mort=29 & , NFlux_HydrolD1=30 & , NFlux_ReminOxyD1=31 & , NFlux_Denitr1D1=32 & , NFlux_Denitr2D1=33 & , NFlux_HydrolD2=34 & , NFlux_ReminOxyD2=35 & , NFlux_Denitr1D2=36 & , NFlux_Denitr2D2=37 & , NFlux_ReminOxyDON=38 & , NFlux_Denitr1DON=39 & , NFlux_Denitr2DON=40 & , NFlux_NO2anammox=41 & , NFlux_NH4anammox=42 # ifdef NITROUS_OXIDE & , NFlux_paramN2O=43 & , NumFluxTermsN=NFlux_paramN2O # else & , NumFluxTermsN=NFlux_NH4anammox # endif & , NumFluxTerms=NumFluxTermsN & , O2Flux_GasExc=1 # ifdef NITROUS_OXIDE & , N2OFlux_GasExc=2 & , NumGasExcTerms=2 # else & , NumGasExcTerms=1 # endif & , NFlux_VSinkP2=1 & , NFlux_VSinkD1=2 & , NFlux_VSinkD2=3 & , NumVSinkTerms=3) # endif /* PISCES ... */ ! ! === BIOLOGY DIAGS === ! # if defined BIO_NChlPZD || defined BIO_N2ChlPZD2 || defined PISCES \ || defined BIO_BioEBUS # ifdef DIAGNOSTICS_BIO parameter (ntrc_diabio=NumFluxTerms+ & NumGasExcTerms+NumVSinkTerms) # else parameter (ntrc_diabio=0) # endif # else parameter (ntrc_diabio=0) # endif # else parameter (ntrc_diabio=0) # endif /* BIOLOGY */ ! ! === SEDIMENTS === ! # ifdef SEDIMENT parameter (itrc_sed=itemp+ntrc_salt+ntrc_pas+ntrc_bio+1) parameter (itrc_sand=itrc_sed,itrc_mud=itrc_sand+NSAND) parameter (itrc_grav=itrc_mud+NGRAV) parameter (isand1=1,imud1=isand1+NSAND) parameter (igrav1=imud1+NMUD) parameter (isand2=isand1+NSAND-1,imud2=imud1+NMUD-1) parameter (igrav2=igrav1+NGRAV-1) # endif ! ! === u,v and tracer equations Diagnostics === ! # ifdef DIAGNOSTICS_TS # ifdef DIAGNOSTICS_TS_MLD parameter (ntrc_diats=16*NT) # else parameter (ntrc_diats=8*NT) # endif # else parameter (ntrc_diats=0) # endif # ifdef DIAGNOSTICS_UV parameter (ntrc_diauv=24) # else parameter (ntrc_diauv=0) # endif # ifdef DIAGNOSTICS_VRT parameter (ntrc_diavrt=16) # else parameter (ntrc_diavrt=0) # endif # ifdef DIAGNOSTICS_EK # ifdef DIAGNOSTICS_EK_MLD parameter (ntrc_diaek=28) # else parameter (ntrc_diaek=16) # endif # else parameter (ntrc_diaek=0) # endif # ifdef DIAGNOSTICS_PV parameter (ntrc_diapv=12) # else parameter (ntrc_diapv=0) # endif # if defined DIAGNOSTICS_EDDY && ! defined XIOS parameter (ntrc_diaeddy=15) # else parameter (ntrc_diaeddy=0) # endif # if defined OUTPUTS_SURFACE && ! defined XIOS parameter (ntrc_surf=5) # else parameter (ntrc_surf=0) # endif #endif /*SOLVE3D */ ! !---------------------------------------------------------------------- ! Max time increment for computing bottom stress at the 3D fast time ! steps !---------------------------------------------------------------------- ! #ifdef BSTRESS_FAST integer inc_faststep_max parameter(inc_faststep_max = 10) #endif