Go to the source code of this file.
Functions/Subroutines | |
| !$Id they are placed into the same cache line!despite their mixed so that only one cachene is being!invalidated and has to be propagated accross the cluster!Note that the real values are placed first into the common block!before the integer variables This is done to prevent the!possibility of misallignment of the byte objects in the case!when an uneven number of byte integers is placed before a byte | !real (in the case when default real size is set to 8bytes).!Thought misallignment is not formally a violation of fortran!standard |
| !$Id they are placed into the same cache line!despite their mixed so that only one cachene is being!invalidated and has to be propagated accross the cluster!Note that the real values are placed first into the common block!before the integer variables This is done to prevent the!possibility of misallignment of the byte objects in the case!when an uneven number of byte integers is placed before a byte it may cause performance degradation and or make compiler!issue a warning | message (Sun, DEC Alpha) or even crash(Alpha).!!time Time since initialization[seconds] |
| !dtfast Time step | for (barotropic) mode[seconds] |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing or are changing only in!association with the I el Physical | size (m) of domain box in the XI- |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing or are changing only in!association with the I el Physical ETA directions!Tcline | Width (m) of surface or bottom boundary layer in which!higher vertical resolution is required during stretching.!theta_s S-coordinate surface control parameter |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing or are changing only in!association with the I el Physical ETA directions!Tcline!theta_b S coordinate bottom control!hc S coordinate at!vertical RHO points!sc_w S coordinate independent at!vertical W points!Cs_r Set of S curves used to stretch the vertical coordinate!lines that follow the topography at vertical RHO points!Cs_w Set of S curves used to stretch the vertical coordinate!lines that follow the topography at vertical W points!rho0 Boussinesque Approximation Mean density[kg/m^3]!R0 Background constant density anomaly[kg/m^3] used in!linear equation of state S0 Background | temperature (Celsius) and salinity[PSU]!values used in analytical fields |
| !rdrg Linear bottom drag coefficient!rdrg2 Quadratic bottom drag coefficient!Cdb_max Maximum bottom drag coefficient allowed!Cdb_min Minimum bottom drag coefficient to avoid the!law of the wall to extend indefinitely!Zob Bottom | roughness (m).!!gamma2 Slipperiness parameter |
| !rdrg Linear bottom drag coefficient!rdrg2 Quadratic bottom drag coefficient!Cdb_max Maximum bottom drag coefficient allowed!Cdb_min Minimum bottom drag coefficient to avoid the!law of the wall to extend indefinitely!Zob Bottom | either (free-slip)!!ntstart Starting timestep in evolving the 3D primitive equations |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from | file (ifdef also SEDIMENT)!the ripple var.is set in ana_bsedim(ifndef SEDIMENT)!real time_avg |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of | Perestroika (which literally means! 'remodelling') |
Variables | |
| !$Id | __pad35__ |
| !$Id | v |
| !$Id they are placed into the same cache line!despite their mixed | type |
| !time_start Initialization | time [seconds] |
| !tdays Time since | initialization [days] |
| !dt Time step for primitive | equations [seconds] |
| !real | dt |
| !real | dtfast |
| !real | time_start |
| !real tdays integer | iic |
| !real tdays integer | kstp |
| !real tdays integer | krhs |
| !real tdays integer | knew |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices | tdays |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices | next_kstp |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing | variables |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing or are changing only in!association with the I | !xl |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing or are changing only in!association with the I el Physical ETA directions!Tcline!theta_b S coordinate bottom control | parameter |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing or are changing only in!association with the I el Physical ETA directions!Tcline!theta_b S coordinate bottom control!hc S coordinate | hc |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing or are changing only in!association with the I el Physical ETA directions!Tcline!theta_b S coordinate bottom control!hc S coordinate at!vertical RHO points!sc_w S coordinate independent | variable |
| !real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices &PREDICTOR_2D_STEP!Slowly changing or are changing only in!association with the I el Physical ETA directions!Tcline!theta_b S coordinate bottom control!hc S coordinate at!vertical RHO points!sc_w S coordinate independent at!vertical W points!Cs_r Set of S curves used to stretch the vertical coordinate!lines that follow the topography at vertical RHO points!Cs_w Set of S curves used to stretch the vertical coordinate!lines that follow the topography at vertical W points!rho0 Boussinesque Approximation Mean density[kg/m^3]!R0 Background constant density anomaly[kg/m^3] used in!linear equation of state | !T0 |
| !Tcoef Thermal expansion coefficient in linear | EOS |
| !usually | |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from | disk |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If | TRUE |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If | FALSE |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple | height |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 | rdrg |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 | rdrg2 |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 | Cdb_min |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 | Cdb_max |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob | xl |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob | el |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob | visc2 |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob | visc4 |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer | numthreads |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer | ntstart |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer | ntimes |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo | ndtfast |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo | nfast |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo | nrrec |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo | nrst |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main & | time_avg |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main | rho0 |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 | Zob |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nwrt ldefhis!This following common block contains a set of globally accessable!variables in order to allow information exchange between parallel!threads working on different subdomains!Global summation variables are declared with byte precision!to avoid accumulation of roundoff | errors |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nwrt ldefhis!This following common block contains a set of globally accessable!variables in order to allow information exchange between parallel!threads working on different subdomains!Global summation variables are declared with byte precision!to avoid accumulation of roundoff since roundoff error!depends on the order of | summation |
| if not a restart run!ntimes Number of timesteps for the primitive equations in!the current run!ndtfast Number of timesteps for D equations between each dt!nrst Number of timesteps between storage of restart fields!nwrt Number of timesteps between writing of fields into!history file!ninfo Number of timesteps between print of single line!information to standard output!nsta Number of timesteps between storage of station data!navg Number of timesteps between storage of time averaged!fields!ntsavg Starting timestep for accumulation of output time!averaged fields!nrrec Counter of restart time records to read from!the last is used as the initial conditions!ldefhis Logical switch used to create the history file!If a new history file is created If!data is appended to an existing history file!levsfrc Deepest level to apply surface momentum stress as!bodyforce!levbfrc Shallowest level to apply bottom momentum stress as!bodyforce!got_tini Logical switch used at initialisation!If the tracer is present in the initial file!If the tracer needs an analytical value!got_inised Logical switch used at initialisation of sediments!If the sediment var is in the initial file!If the sed var gets analytical value from file!got_inibed Logical switch used at initialisation of ripple length!If the ripple var is in the initial file!If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nwrt ldefhis!This following common block contains a set of globally accessable!variables in order to allow information exchange between parallel!threads working on different subdomains!Global summation variables are declared with byte precision!to avoid accumulation of roundoff since roundoff error!depends on the order of which is undeterministic in!the case of summation between the parallel | threads |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the | model |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring | day |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american | tourist |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an | attorney |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in | !Moscow |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of | them |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his | leg |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and | !complaining |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The | doctor |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to | him |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of | parity |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer | tile_count |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer | first_time |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i & | may_day_flag |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real | hmin |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real | hmax |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real | grdmin |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real | grdmax |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real | Cu_min |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD | volume |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD | avgke |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD | avgpe |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD | avgkp |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD bc_crss common communicators_rq bc_crss!The following common block contains process counters and model!timers These are used to measure CPU time consumed by different!parallel threads during the whole | run |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD bc_crss common communicators_rq bc_crss!The following common block contains process counters and model!timers These are used to measure CPU time consumed by different!parallel threads during the whole as well as in various!parallel | regions |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD bc_crss common communicators_rq bc_crss!The following common block contains process counters and model!timers These are used to measure CPU time consumed by different!parallel threads during the whole as well as in various!parallel if so is needed These variables are used purely!for diagnostic performance measurements purposes and do not affect!the model results!real *CPU_time(0:31, 0:NPP) integer proc(0 Aceleration of | gravity [m/s^2] |
| not doing so!would make itimpossible to pass an ETALON CHECK test if there is!a feedback of these sums into the dynamics of the such as!in the case when global mass conservation is enforced!One sunny spring sometime in an american who!happened to be an was walking along a Moscow street!Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He!felt into one of broke his ended up in a hospital and I will sue em for their negligence!The!who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned!in Byte boundaries and Byte objects are aligned in Byte!boundaries Removing or introduction of variables with violation!of as well as changing the sequence of variables in the!common block may cause violation of alignment!logical synchro_flag common sync_flag synchro_flag integer may_day_flag!This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD bc_crss common communicators_rq bc_crss!The following common block contains process counters and model!timers These are used to measure CPU time consumed by different!parallel threads during the whole as well as in various!parallel if so is needed These variables are used purely!for diagnostic performance measurements purposes and do not affect!the model results!real *CPU_time(0:31, 0:NPP) integer proc(0 Aceleration of duration!of the day in seconds and its | inverse |
| Julian offset day real | Eradius |
| Julian offset day real | g |
| Julian offset day real | day2sec |
| Julian offset day real | sec2day |
| Julian offset day real | jul_off |
| Julian offset day real & | year2day |
| ! $Id they are placed into the same cache line ! despite their mixed so that only one cachene is being ! invalidated and has to be propagated accross the cluster ! Note that the real values are placed first into the common block ! before the integer variables This is done to prevent the ! possibility of misallignment of the byte objects in the case ! when an uneven number of byte integers is placed before a byte !real | ( | in the case when default real size is set to | 8bytes | ) |
| ! rdrg Linear bottom drag coefficient ! rdrg2 Quadratic bottom drag coefficient ! Cdb_max Maximum bottom drag coefficient allowed ! Cdb_min Minimum bottom drag coefficient to avoid the ! law of the wall to extend indefinitely ! Zob Bottom either | ( | free- | slip | ) |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from file | ( | ifdef also | SEDIMENT | ) |
| ! dtfast Time step for | ( | barotropic | ) |

| ! $Id they are placed into the same cache line ! despite their mixed so that only one cachene is being ! invalidated and has to be propagated accross the cluster ! Note that the real values are placed first into the common block ! before the integer variables This is done to prevent the ! possibility of misallignment of the byte objects in the case ! when an uneven number of byte integers is placed before a byte it may cause performance degradation and or make compiler ! issue a warning message | ( | Sun | , | |
| DEC | Alpha | |||
| ) |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of Perestroika | ( | which literally means! 'remodelling' | ) |
| ! rdrg Linear bottom drag coefficient ! rdrg2 Quadratic bottom drag coefficient ! Cdb_max Maximum bottom drag coefficient allowed ! Cdb_min Minimum bottom drag coefficient to avoid the ! law of the wall to extend indefinitely ! Zob Bottom roughness | ( | m | ) |
| ! real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices & PREDICTOR_2D_STEP ! Slowly changing or are changing only in ! association with the I el Physical size | ( | m | ) |

| ! real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices & PREDICTOR_2D_STEP ! Slowly changing or are changing only in ! association with the I el Physical ETA directions ! Tcline ! theta_b S coordinate bottom control ! hc S coordinate at ! vertical RHO points ! sc_w S coordinate independent at ! vertical W points ! Cs_r Set of S curves used to stretch the vertical coordinate ! lines that follow the topography at vertical RHO points ! Cs_w Set of S curves used to stretch the vertical coordinate ! lines that follow the topography at vertical W points ! rho0 Boussinesque Approximation Mean density [kg/m^3] ! R0 Background constant density anomaly [kg/m^3] used in ! linear equation of state S0 Background temperature | ( | Celsius | ) |
| ! real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices & PREDICTOR_2D_STEP ! Slowly changing or are changing only in ! association with the I el Physical ETA directions ! Tcline Width | ( | m | ) |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and !complaining |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in !Moscow |
| ! real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices & PREDICTOR_2D_STEP ! Slowly changing or are changing only in ! association with the I el Physical ETA directions ! Tcline ! theta_b S coordinate bottom control ! hc S coordinate at ! vertical RHO points ! sc_w S coordinate independent at ! vertical W points ! Cs_r Set of S curves used to stretch the vertical coordinate ! lines that follow the topography at vertical RHO points ! Cs_w Set of S curves used to stretch the vertical coordinate ! lines that follow the topography at vertical W points ! rho0 Boussinesque Approximation Mean density [kg/m^3] ! R0 Background constant density anomaly [kg/m^3] used in ! linear equation of state !T0 |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD bc_crss common communicators_rq avgke |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD bc_crss common communicators_rq avgkp |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD bc_crss common communicators_rq avgpe |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from rho0 Cdb_max |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_min |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_min |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from disk |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and I will sue em for their negligence ! The doctor |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max el |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nwrt ldefhis ! This following common block contains a set of globally accessable ! variables in order to allow information exchange between parallel ! threads working on different subdomains ! Global summation variables are declared with byte precision ! to avoid accumulation of roundoff errors |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If FALSE |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i first_time |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and I will sue em for their negligence ! The ! who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned ! in Byte boundaries and Byte objects are aligned in Byte ! boundaries Removing or introduction of variables with violation ! of as well as changing the sequence of variables in the ! common block may cause violation of alignment ! logical synchro_flag common sync_flag synchro_flag integer may_day_flag ! This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real* QUAD bc_crss common communicators_rq bc_crss ! The following common block contains process counters and model ! timers These are used to measure CPU time consumed by different ! parallel threads during the whole as well as in various ! parallel if so is needed These variables are used purely ! for diagnostic performance measurements purposes and do not affect ! the model results ! real* CPU_time (0:31,0:NPP) integer proc(0 Aceleration of gravity[m/s^2] |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r grdmax |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r grdmin |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple height |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and I will sue em for their negligence ! The ! who was performing surgery on his leg replied to him |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r hmax |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r & hmin |
| ! tdays Time since initialization[days] |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and I will sue em for their negligence ! The ! who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned ! in Byte boundaries and Byte objects are aligned in Byte ! boundaries Removing or introduction of variables with violation ! of as well as changing the sequence of variables in the ! common block may cause violation of alignment ! logical synchro_flag common sync_flag synchro_flag integer may_day_flag ! This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real* QUAD bc_crss common communicators_rq bc_crss ! The following common block contains process counters and model ! timers These are used to measure CPU time consumed by different ! parallel threads during the whole as well as in various ! parallel if so is needed These variables are used purely ! for diagnostic performance measurements purposes and do not affect ! the model results ! real* CPU_time (0:31,0:NPP) integer proc(0 Aceleration of duration ! of the day in seconds and its inverse |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his leg |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and I will sue em for their negligence ! The ! who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned ! in Byte boundaries and Byte objects are aligned in Byte ! boundaries Removing or introduction of variables with violation ! of as well as changing the sequence of variables in the ! common block may cause violation of alignment ! logical synchro_flag common sync_flag synchro_flag integer may_day_flag ! This is a shared variable among nested grids integer bc_count common communicators_i& may_day_flag |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo ndtfast |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nfast |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nrrec |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nrst |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ntimes |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ntstart |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 numthreads |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and I will sue em for their negligence ! The ! who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned ! in Byte boundaries and Byte objects are aligned in Byte ! boundaries Removing or introduction of variables with violation ! of parity |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from rho0 rdrg2 |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and I will sue em for their negligence ! The ! who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned ! in Byte boundaries and Byte objects are aligned in Byte ! boundaries Removing or introduction of variables with violation ! of as well as changing the sequence of variables in the ! common block may cause violation of alignment ! logical synchro_flag common sync_flag synchro_flag integer may_day_flag ! This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real* QUAD bc_crss common communicators_rq bc_crss ! The following common block contains process counters and model ! timers These are used to measure CPU time consumed by different ! parallel threads during the whole as well as in various ! parallel regions |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rho0 |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of broke his ended up in a hospital and I will sue em for their negligence ! The ! who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned ! in Byte boundaries and Byte objects are aligned in Byte ! boundaries Removing or introduction of variables with violation ! of as well as changing the sequence of variables in the ! common block may cause violation of alignment ! logical synchro_flag common sync_flag synchro_flag integer may_day_flag ! This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real* QUAD bc_crss common communicators_rq bc_crss ! The following common block contains process counters and model ! timers These are used to measure CPU time consumed by different ! parallel threads during the whole run |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nwrt ldefhis ! This following common block contains a set of globally accessable ! variables in order to allow information exchange between parallel ! threads working on different subdomains ! Global summation variables are declared with byte precision ! to avoid accumulation of roundoff since roundoff error ! depends on the order of summation |
| not doing so ! would make itimpossible to pass an ETALON CHECK test if there is ! a feedback of these sums into the dynamics of the such as ! in the case when global mass conservation is enforced ! One sunny spring sometime in an american who ! happened to be an was walking along a Moscow street ! Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He ! felt into one of them |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max gamma2 ninfo nwrt ldefhis ! This following common block contains a set of globally accessable ! variables in order to allow information exchange between parallel ! threads working on different subdomains ! Global summation variables are declared with byte precision ! to avoid accumulation of roundoff since roundoff error ! depends on the order of which is undeterministic in ! the case of summation between the parallel threads |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i tile_count |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main& time_avg |
| real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices time_start |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If TRUE |
| ! $Id they are placed into the same cache line ! despite their mixed type |
| ! real tdays integer next_kstp logical PREDICTOR_2D_STEP common time_indices & PREDICTOR_2D_STEP ! Slowly changing or are changing only in ! association with the I el Physical ETA directions ! Tcline ! theta_b S coordinate bottom control ! hc S coordinate at ! vertical RHO points ! sc_w S coordinate independent variable |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max visc2 |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max visc4 |
| not doing so would make itimpossible to pass an ETALON CHECK test if there is a feedback of these sums into the dynamics of the such as in the case when global mass conservation is enforced One sunny spring sometime in an american who happened to be an was walking along a Moscow street Because it was the period of so that a lot of construction was going on in dozens of holes and trenches were open on the street He felt into one of broke his ended up in a hospital and I will sue em for their negligence The who was performing surgery on his leg replied to it is guaranteed that Byte objects are aligned in Byte boundaries and Byte objects are aligned in Byte boundaries Removing or introduction of variables with violation of as well as changing the sequence of variables in the common block may cause violation of alignment logical synchro_flag common sync_flag synchro_flag integer may_day_flag This is a shared variable among nested grids integer bc_count common communicators_i bc_count real Cu_max common communicators_r Cu_max real *QUAD bc_crss common communicators_rq & volume |
| if not a restart run ntimes Number of timesteps for the primitive equations in the current run ndtfast Number of timesteps for D equations between each dt nrst Number of timesteps between storage of restart fields nwrt Number of timesteps between writing of fields into history file ninfo Number of timesteps between print of single line information to standard output nsta Number of timesteps between storage of station data navg Number of timesteps between storage of time averaged fields ntsavg Starting timestep for accumulation of output time averaged fields nrrec Counter of restart time records to read from the last is used as the initial conditions ldefhis Logical switch used to create the history file If a new history file is created If data is appended to an existing history file levsfrc Deepest level to apply surface momentum stress as bodyforce levbfrc Shallowest level to apply bottom momentum stress as bodyforce got_tini Logical switch used at initialisation If the tracer is present in the initial file If the tracer needs an analytical value got_inised Logical switch used at initialisation of sediments If the sediment var is in the initial file If the sed var gets analytical value from file got_inibed Logical switch used at initialisation of ripple length If the ripple var is in the initial file If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Cdb_max xl |
| if not a restart run ! ntimes Number of timesteps for the primitive equations in ! the current run ! ndtfast Number of timesteps for D equations between each dt ! nrst Number of timesteps between storage of restart fields ! nwrt Number of timesteps between writing of fields into ! history file ! ninfo Number of timesteps between print of single line ! information to standard output ! nsta Number of timesteps between storage of station data ! navg Number of timesteps between storage of time averaged ! fields ! ntsavg Starting timestep for accumulation of output time ! averaged fields ! nrrec Counter of restart time records to read from ! the last is used as the initial conditions ! ldefhis Logical switch used to create the history file ! If a new history file is created If ! data is appended to an existing history file ! levsfrc Deepest level to apply surface momentum stress as ! bodyforce ! levbfrc Shallowest level to apply bottom momentum stress as ! bodyforce ! got_tini Logical switch used at initialisation ! If the tracer is present in the initial file ! If the tracer needs an analytical value ! got_inised Logical switch used at initialisation of sediments ! If the sediment var is in the initial file ! If the sed var gets analytical value from file ! got_inibed Logical switch used at initialisation of ripple length ! If the ripple var is in the initial file ! If the ripple var is obtained from rho0 Zob gamma2 integer ninfo nwrt logical ldefhis common scalars_main rdrg2 Zob |
1.5.8