 Parent Directory
|
|
|
|
|
correction_step.F
|
|
1.26
|
12 years |
jmc |
zero out velocity outside OB interior region: This has no effect on the
solutio…
|
|
calc_ivdc.F
|
|
1.8
|
12 years |
mlosch |
use sigmaR in calc_ivdc rather than rhokp1 and rhokm1
|
|
diags_phi_rlow.F
|
|
1.11
|
9 years |
jmc |
use pStarFacK (now stored in commom block) instead of re-computing it
|
|
diags_phi_hyd.F
|
|
1.7
|
9 years |
jmc |
use pStarFacK (now stored in commom block) instead of re-computing it
|
|
integrate_for_w.F
|
|
1.16
|
12 years |
jmc |
use new local variable rStarDhDt (instead of common block variable rStarDhCDt)
t…
|
|
calc_oce_mxlayer.F
|
|
1.10
|
10 years |
m_bates |
use calc_oce_mxlayer to calculate the mixed layer depth for the PV eddy closure …
|
|
ini_global_domain.F
|
|
1.1
|
11 years |
jmc |
to refine CS-grid check, add logical flag: true if using Cubed-Sphere Exch with
…
|
|
pre_cg3d.F
|
|
1.5
|
12 years |
jmc |
test for uniformFreeSurfLev instead of testing for singZCoords
(will matters wh…
|
|
post_cg3d.F
|
|
1.4
|
12 years |
jmc |
test for uniformFreeSurfLev instead of testing for singZCoords
(will matters wh…
|
|
ini_theta.F
|
|
1.29
|
12 years |
jmc |
test debugLevel (instead of debugMode) to print maps (using PLOT_FIELDS call)
|
|
ini_salt.F
|
|
1.24
|
12 years |
jmc |
test debugLevel (instead of debugMode) to print maps (using PLOT_FIELDS call)
|
|
update_etah.F
|
|
1.13
|
12 years |
jmc |
take sigma-coords related code out of update_etah.F into new S/R UPDATE_ETAWS
|
|
ini_nlfs_vars.F
|
|
1.10
|
10 years |
jmc |
store factor rStarFacC**atm_kappa in common block (for atmosphere in p* coords)
…
|
|
calc_r_star.F
|
|
1.22
|
10 years |
jmc |
store factor rStarFacC**atm_kappa in common block (for atmosphere in p* coords)
…
|
|
ini_pressure.F
|
|
1.15
|
10 years |
jmc |
stop to iterate for pressure once it converges
|
|
config_check.F
|
|
1.78
|
9 years |
jmc |
stop if trying to use geothermalFile with corresponding code not compiled
|
|
freesurf_rescale_g.F
|
|
1.7
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
|
taueddy_init_varia.F
|
|
1.4
|
14 years |
jmc |
replace calls to MDSREADFIELD with equivalent READ_FLD_XYZ_RS
|
|
update_etaws.F
|
|
1.2
|
12 years |
jmc |
remove/avoid un-used variables
|
|
integr_continuity.F
|
|
1.28
|
12 years |
jmc |
remove/avoid un-used variables
|
|
set_grid_factors.F
|
|
1.2
|
14 years |
jmc |
remove unused variables
|
|
diags_oceanic_surf_flux.F
|
|
1.15
|
9 years |
jmc |
remove unused variable
|
|
ini_model_io.F
|
|
1.46
|
11 years |
jmc |
remove unused (since Aug 2006) S/R SET_WRITE_GLOBAL_PICKUP and its call.
|
|
ini_vel.F
|
|
1.8
|
14 years |
jmc |
remove unnecessary BARRIER
|
|
ini_psurf.F
|
|
1.11
|
14 years |
jmc |
remove unnecessary BARRIER
|
|
state_summary.F
|
|
1.8
|
14 years |
jmc |
remove unnecessary BARRIER
|
|
model_ad_diff.list
|
|
1.52
|
9 years |
jmc |
remove external_forcing.f : sine option USE_OLD_EXTERNAL_FORCING is
not recomme…
|
|
do_statevars_diags.F
|
|
1.21
|
11 years |
jmc |
remove bi,bj from argument list of S/R LAND_DIAGNOSTICS_STATE
and S/R THSICE_D…
|
|
config_summary.F
|
|
1.147
|
9 years |
jmc |
remove "recip_Cp" from common block ; add thetaConst (for pStar)
|
|
load_ref_files.F
|
|
1.3
|
9 years |
jmc |
remove "recip_Cp" from common block ; add thetaConst (for pStar)
|
|
ini_cg3d.F
|
|
1.28
|
12 years |
jmc |
refine debugLevel criteria when printing messages
|
|
packages_print_msg.F
|
|
1.1
|
10 years |
jmc |
print a summary of compiled and/or used pkgs
|
|
do_statevars_tave.F
|
|
1.5
|
14 years |
jmc |
oops! fix previous modif
|
|
reset_nlfs_vars.F
|
|
1.2
|
9 years |
jmc |
only compute pStarFacK if select_rStar > 0
|
|
ini_fields.F
|
|
1.26
|
10 years |
jmc |
offline with rStar: use normal pickup files (needed for restart with NLFS)
|
|
do_write_pickup.F
|
|
1.9
|
10 years |
jmc |
offline with rStar: use normal pickup files (needed for restart with NLFS)
|
|
plot_field.F
|
|
1.14
|
22 years |
heimbach |
o merge of relevant stuff from the ecco-branch:
- genmake: removed $S64 overwr…
|
|
cycle_ab_tracer.F
|
|
1.1
|
9 years |
jmc |
new routine: in addition to cycling tracer (like cycle_tracer.F), save
previous …
|
|
ini_local_grid.F
|
|
1.1
|
12 years |
jmc |
new S/R INI_LOCAL_GRID to define model tile-local grid (using same units
as delX…
|
|
packages_unused_msg.F
|
|
1.1
|
9 years |
jmc |
new S/R (to call from THIS_PKG_READPARMS, when useTHIS_PKG=F)
to print a weak wa…
|
|
cg3d_ex0.F
|
|
1.1
|
11 years |
jmc |
new CG-solver version (_EX0) for disconnected-tiles special case.
|
|
cg2d_ex0.F
|
|
1.1
|
11 years |
jmc |
new CG-solver version (_EX0) for disconnected-tiles special case.
|
|
grad_sigma.F
|
|
1.10
|
12 years |
jmc |
multiply sigmaR by maskC(k)*maskC(k-1) (instead of just maskC(k))
|
|
update_surf_dr.F
|
|
1.10
|
12 years |
jmc |
move call to OBCS_APPLY_SURF_DR from update_surf_dr.F to calc_surf_dr.F
and add…
|
|
update_r_star.F
|
|
1.9
|
12 years |
jmc |
move call to OBCS_APPLY_R_STAR from update_r_star.F to calc_r_star.F
and add ar…
|
|
ini_mixing.F
|
|
1.13
|
10 years |
jmc |
move additional anomaly fields of control vars (related to options:
ALLOW_KAPGM_…
|
|
do_stagger_fields_exchanges.F
|
|
1.11
|
9 years |
jmc |
move CYCLE_TRACER calls from tracers_correction_step.F to temp/salt/ptracer_inte…
|
|
forward_step.F
|
|
1.223
|
9 years |
jmc |
move CYCLE_TRACER calls from tracers_correction_step.F to temp/salt/ptracer_inte…
|
|
tracers_correction_step.F
|
|
1.18
|
9 years |
jmc |
move CYCLE_TRACER calls from tracers_correction_step.F to temp/salt/ptracer_inte…
|
|
thermodynamics.F
|
|
1.152
|
9 years |
jmc |
move CYCLE_TRACER calls from tracers_correction_step.F to temp/salt/ptracer_inte…
|
|
dynamics.F
|
|
1.171
|
9 years |
jmc |
move CYCLE_TRACER calls from tracers_correction_step.F to temp/salt/ptracer_inte…
|
|
check_pickup.F
|
|
1.5
|
12 years |
jmc |
more uniform warning message
|
|
rotate_uv2en.F
|
|
1.1
|
13 years |
gforget |
introducing rotate_uv2en.F that rotates a vector field
from X/Y to Eastward/Nort…
|
|
set_defaults.F
|
|
1.173
|
9 years |
jmc |
initialise "geothermalFile"
|
|
cg3d.F
|
|
1.25
|
11 years |
jmc |
import some minor changes from cg2d.F
|
|
calc_grad_phi_fv.F
|
|
1.1
|
11 years |
jmc |
implement Finite-Volume method for (hydrostatic) presure gradient
from S.-J. Lin…
|
|
do_fields_blocking_exchanges.F
|
|
1.30
|
9 years |
jmc |
if staggerTimeStep=T, always apply exchange to velocity field in
do_stagger_fie…
|
|
external_forcing.F
|
|
1.70
|
9 years |
jmc |
if SALT_PLUME_VOLUME is undef, keep the call to SALT_PLUME_TENDENCY_APPLY_T
(whi…
|
|
update_cg2d.F
|
|
1.10
|
11 years |
jmc |
for TAF: (re-)initialise aC2d to zero
|
|
swfrac.F
|
|
1.16
|
10 years |
dimitri |
fixing comment to be consistent with code
|
|
impldiff.F
|
|
1.32
|
9 years |
rpa |
fixed bugs in layers
|
|
calc_eddy_stress.F
|
|
1.2
|
10 years |
m_bates |
fixed bug (incorrect minus sign) in calculation of eddy stress for residual mode…
|
|
remove_mean.F
|
|
1.3
|
15 years |
jmc |
fix wrong type of GLOBAL_SUM in REMOVE_MEAN_RS ;
+ change macros (EXCH & GLOBAL_…
|
|
convectively_mixtracer.F
|
|
1.3
|
12 years |
jmc |
fix description (comments)
|
|
ini_p_ground.F
|
|
1.9
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
|
ini_sigma_hfac.F
|
|
1.1
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
|
ini_mnc_vars.F
|
|
1.12
|
10 years |
jmc |
extend length of drC & recip_drC from Nr to Nr+1.
|
|
write_grid.F
|
|
1.38
|
10 years |
jmc |
extend length of drC & recip_drC from Nr to Nr+1.
|
|
ini_vertical_grid.F
|
|
1.22
|
10 years |
jmc |
extend length of drC & recip_drC from Nr to Nr+1.
|
|
cycle_tracer.F
|
|
1.8
|
17 years |
jmc |
do the k loop inside CYCLE_TRACER (supposed to be more efficient)
|
|
pressure_for_eos.F
|
|
1.4
|
15 years |
jmc |
comment out maskC multiplication (not really needed as far as I know,
but harmf…
|
|
port_rand.F
|
|
1.8
|
10 years |
jmc |
cleaning (remove GOTO since there was already "DO WHILE")
|
|
timestep_wvel.F
|
|
1.7
|
12 years |
jmc |
clean-up: remove call to OBCS_APPLY_W (not necessary).
|
|
adams_bashforth3.F
|
|
1.6
|
9 years |
jmc |
change implemetation of AB on tracer (doAB_onGtGs=F, not AB on tendency):
store…
|
|
calc_wsurf_tr.F
|
|
1.2
|
15 years |
jmc |
call GLOBAL_SUM_TILE_RL (result is less dependant on Nb of Procs/Threads)
|
|
ini_nh_fields.F
|
|
1.6
|
10 years |
jmc |
avoid unused variables
|
|
seawater.F
|
|
1.6
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
|
calc_surf_dr.F
|
|
1.20
|
9 years |
jmc |
allows hFacW,S to be larger than surrounding hFacC=1 @ edge of a step with
diffe…
|
|
solve_for_pressure.F
|
|
1.81
|
11 years |
jmc |
add run-time parameter to select CG2D solver minimum-residual solution
(in cas…
|
|
ini_depths.F
|
|
1.50
|
12 years |
jmc |
add exchange topoZ after reading from file
|
|
ini_eos.F
|
|
1.21
|
12 years |
mlosch |
add code for TEOS-10 (www.teos-10.org, McDougall et al. 2011). Use
this eos with…
|
|
packages_write_pickup.F
|
|
1.42
|
10 years |
jmc |
add a call to STREAMICE_WRITE_PICKUP
|
|
packages_error_msg.F
|
|
1.2
|
12 years |
jmc |
add a call to ALL_PROC_DIE before stopping
|
|
ini_spherical_polar_grid.F
|
|
1.31
|
11 years |
jmc |
add 1 argument to S/R CALC_GRID_ANGLES
|
|
turnoff_model_io.F
|
|
1.7
|
12 years |
heimbach |
Turn off one more pkg at the end of cost_final.F
|
|
calc_grad_phi_hyd.F
|
|
1.17
|
9 years |
jmc |
Switch to more accurate p* coordinate slope term (calc_grad_phi_hyd.F)
|
|
calc_phi_hyd.F
|
|
1.46
|
9 years |
jmc |
Store in common bloc array "rhoInSitu" the virtual potential temperature
anomal…
|
|
do_atmospheric_phys.F
|
|
1.12
|
9 years |
jmc |
Store in common bloc array "rhoInSitu" the virtual potential temperature
anomal…
|
|
external_forcing_surf.F
|
|
1.63
|
9 years |
heimbach |
Put back local recip_Cp
|
|
freeze_surface.F
|
|
1.7
|
17 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
|
tracers_iigw_correction.F
|
|
1.2
|
17 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
|
ini_cg2d.F
|
|
1.51
|
11 years |
heimbach |
Initialise some scalars
|
|
read_pickup.F
|
|
1.9
|
10 years |
m_bates |
Fixed bugs in CPP defines when using ALLOW_EDDYPSI and ALLOW_GMREDI
|
|
write_pickup.F
|
|
1.15
|
10 years |
m_bates |
Fixed bugs in CPP defines when using ALLOW_EDDYPSI and ALLOW_GMREDI
|
|
the_main_loop.F
|
|
1.165
|
9 years |
heimbach |
First (so far unsuccessful) attempt at OpenAD active file I/O
|
|
ini_dynvars.F
|
|
1.25
|
10 years |
m_bates |
Changes to implement a residual model. Also, calculation of the mean velocity f…
|
|
ini_forcing.F
|
|
1.53
|
9 years |
heimbach |
Add geothermal flux forcing
|
|
apply_forcing.F
|
|
1.5
|
9 years |
heimbach |
Add geothermal flux forcing
|
|
ini_parms.F
|
|
1.260
|
9 years |
heimbach |
Add geothermal flux forcing
|
|
adams_bashforth2.F
|
|
1.9
|
11 years |
jmc |
Add 3-D array 3rd dimension to argument list of S/R adams_bashforth2/3
|
|
calc_adv_flow.F
|
|
1.2
|
10 years |
jmc |
AUTODIFF only: in calc_adv_flow.F, recompute rTransKp (instead of copying from
r…
|
|
do_oceanic_phys.F
|
|
1.141
|
9 years |
jmc |
ALLOW_AUTODIFF only: compute again (if fluidIsAir) rhoInSitu (as the virtual
pot…
|
|
solve_pentadiagonal.F
|
|
1.10
|
12 years |
jmc |
- replace division with multication by inverse (similar to original version)
- r…
|
|
rotate_spherical_polar_grid.F
|
|
1.4
|
12 years |
jmc |
- rename S/R CALC_ANGLES to CALC_GRID_ANGLES and move it outside
rotate_spheri…
|
|
ini_cori.F
|
|
1.33
|
13 years |
jmc |
- remove useConstantF, useBetaPlaneF, useSphereF and replace them
with integer…
|
|
cg2d.F
|
|
1.55
|
11 years |
jmc |
- remove commented-out pieces of code from Dec 2006 (store main diagonal)
- remo…
|
|
solve_tridiagonal.F
|
|
1.10
|
12 years |
jmc |
- remove 1 local array in original version (SOLVE_DIAGONAL_LOWMEMORY)
- replace …
|
|
cg2d_sr.F
|
|
1.6
|
11 years |
jmc |
- reduce by 1 (now: cg2dMaxIters-1) the upper bound of iteration loop
- if going…
|
|
forcing_surf_relax.F
|
|
1.1
|
10 years |
jmc |
- put surface relaxation of SST & SSS in new S/R (forcing_surf_relax.F)
which …
|
|
salt_integrate.F
|
|
1.13
|
9 years |
jmc |
- push the k loop inside S/R TIMESTEP_TRACER (and call it outside the k loop).
-…
|
|
temp_integrate.F
|
|
1.14
|
9 years |
jmc |
- push the k loop inside S/R TIMESTEP_TRACER (and call it outside the k loop).
-…
|
|
timestep_tracer.F
|
|
1.18
|
9 years |
jmc |
- push the k loop inside S/R TIMESTEP_TRACER (and call it outside the k loop).
-…
|
|
calc_gw.F
|
|
1.53
|
10 years |
jmc |
- move to pkg/mom_common and model/src (previously in tutorial_deep_convection
…
|
|
ini_cartesian_grid.F
|
|
1.25
|
11 years |
jmc |
- move initialisation of all horizontal grid arrays to null value
from specifi…
|
|
ini_grid.F
|
|
1.35
|
11 years |
jmc |
- move initialisation of all horizontal grid arrays to null value
from specifi…
|
|
ini_cylinder_grid.F
|
|
1.8
|
11 years |
jmc |
- move initialisation of all horizontal grid arrays to null value
from specifi…
|
|
ini_nh_vars.F
|
|
1.4
|
10 years |
jmc |
- move horiz-viscosity 3-D arrays viscAh_W & viscA4_W (used in calc_gw.F)
from…
|
|
load_grid_spacing.F
|
|
1.8
|
12 years |
jmc |
- move delX,delY to new header file (SET_GRID.h) and adjust length to 1rst
fac…
|
|
momentum_correction_step.F
|
|
1.10
|
12 years |
jmc |
- move bi,bj loops inside INTEGR_CONTINUITY ;
- call INTEGR_CONTINUITY directly …
|
|
calc_div_ghat.F
|
|
1.27
|
11 years |
jmc |
- move addMass common block from DYNVARS.h to FFIELDS.h
|
|
ini_masks_etc.F
|
|
1.53
|
10 years |
jmc |
- isolate in new S/R ADD_WALLS2MASKS the part dealing with additional
thin-wal…
|
|
add_walls2masks.F
|
|
1.1
|
10 years |
jmc |
- isolate in new S/R ADD_WALLS2MASKS the part dealing with additional
thin-wal…
|
|
convective_weights.F
|
|
1.6
|
12 years |
jmc |
- fix description (comments)
- set output convectCount over the full array range…
|
|
timestep.F
|
|
1.58
|
9 years |
jmc |
- collect forcing tendency into local 2-D array (passed as argument to
apply_f…
|
|
diags_rho.F
|
|
1.5
|
12 years |
jmc |
- change diagnostics WRHOMASS to just the Vertical transport of in-situ density;…
|
|
taueddy_tendency_apply.F
|
|
1.1
|
9 years |
jmc |
- change argument list of all S/R called from ptracers_forcing.F (renamed
to p…
|
|
ini_curvilinear_grid.F
|
|
1.52
|
11 years |
jmc |
- always call S/R CALC_GRID_ANGLES to set new new projection array for
model C…
|
|
calc_grid_angles.F
|
|
1.2
|
11 years |
jmc |
- add new argument to skip the setting of grid-angle at grid-cell center
- also …
|
|
solve_uv_tridiago.F
|
|
1.1
|
11 years |
jmc |
- add global (multi-tile) linear solver for pair of tri-diagonal system
along …
|
|
set_ref_state.F
|
|
1.6
|
9 years |
jmc |
- With p* or Sigma-P, use constant reference Pot.Temp (thetaConst) instead
of …
|
|
ini_linear_phisurf.F
|
|
1.24
|
9 years |
jmc |
- With p* or Sigma-P, use constant reference Pot.Temp (thetaConst) instead
of …
|
|
update_masks_etc.F
|
|
1.10
|
10 years |
jmc |
- Start to include explicitly AUTODIFF_OPTIONS.h, COST_OPTIONS.h,
and CTRL_OPT…
|
|
convective_adjustment.F
|
|
1.34
|
10 years |
jmc |
- Start to include explicitly AUTODIFF_OPTIONS.h, COST_OPTIONS.h,
and CTRL_OPT…
|
|
load_fields_driver.F
|
|
1.16
|
10 years |
jmc |
- Start to include explicitly AUTODIFF_OPTIONS.h, COST_OPTIONS.h,
and CTRL_OPT…
|
|
cg2d_nsa.F
|
|
1.7
|
10 years |
jmc |
- Start to include explicitly AUTODIFF_OPTIONS.h, COST_OPTIONS.h,
and CTRL_OPT…
|
|
convective_adjustment_ini.F
|
|
1.23
|
10 years |
jmc |
- Start to include explicitly AUTODIFF_OPTIONS.h, COST_OPTIONS.h,
and CTRL_OPT…
|
|
main_do_loop.F
|
|
1.16
|
10 years |
jmc |
- Start to include explicitly AUTODIFF_OPTIONS.h, COST_OPTIONS.h,
and CTRL_OPT…
|
|
the_model_main.F
|
|
1.116
|
10 years |
jmc |
- Start to include explicitly AUTODIFF_OPTIONS.h, COST_OPTIONS.h,
and CTRL_OPT…
|
|
set_parms.F
|
|
1.19
|
10 years |
jmc |
- Replace ALLOW_AUTODIFF_TAMC by ALLOW_AUTODIFF (except for tape/storage
which…
|
|
external_fields_load.F
|
|
1.40
|
10 years |
jmc |
- Replace ALLOW_AUTODIFF_TAMC by ALLOW_AUTODIFF (except for tape/storage
which…
|
|
update_sigma.F
|
|
1.2
|
10 years |
jmc |
- Replace ALLOW_AUTODIFF_TAMC by ALLOW_AUTODIFF (except for tape/storage
which…
|
|
initialise_varia.F
|
|
1.75
|
10 years |
jmc |
- Replace ALLOW_AUTODIFF_TAMC by ALLOW_AUTODIFF (except for tape/storage
which…
|
|
find_rho.F
|
|
1.42
|
10 years |
jmc |
- Replace ALLOW_AUTODIFF_TAMC by ALLOW_AUTODIFF (except for tape/storage
which…
|
|
find_alpha.F
|
|
1.21
|
10 years |
jmc |
- Replace ALLOW_AUTODIFF_TAMC by ALLOW_AUTODIFF (except for tape/storage
which…
|
|
write_state.F
|
|
1.64
|
10 years |
jmc |
- Replace ALLOW_AUTODIFF_OPENAD by ALLOW_OPENAD:
because ALLOW_OPENAD is defin…
|
|
initialise_fixed.F
|
|
1.56
|
10 years |
jmc |
- Replace ALLOW_AUTODIFF_OPENAD by ALLOW_OPENAD:
because ALLOW_OPENAD is defin…
|
|
packages_init_variables.F
|
|
1.95
|
9 years |
jmc |
- add new pkg "kl10" for mixing due to internal wave breaking
( http://www.sc…
|
|
packages_readparms.F
|
|
1.77
|
9 years |
jmc |
- add new pkg "kl10" for mixing due to internal wave breaking
( http://www.sc…
|
|
packages_check.F
|
|
1.66
|
9 years |
jmc |
- add new pkg "kl10" for mixing due to internal wave breaking
( http://www.sc…
|
|
calc_viscosity.F
|
|
1.10
|
9 years |
jmc |
- add new pkg "kl10" for mixing due to internal wave breaking
( http://www.sc…
|
|
do_the_model_io.F
|
|
1.65
|
9 years |
jmc |
- add new pkg "kl10" for mixing due to internal wave breaking
( http://www.sc…
|
|
packages_boot.F
|
|
1.66
|
9 years |
jmc |
- add new pkg "kl10" for mixing due to internal wave breaking
( http://www.sc…
|
|
packages_init_fixed.F
|
|
1.84
|
9 years |
jmc |
- add new pkg "kl10" for mixing due to internal wave breaking
( http://www.sc…
|
|
calc_3d_diffusivity.F
|
|
1.18
|
9 years |
jmc |
- add new pkg "kl10" for mixing due to internal wave breaking
( http://www.sc…
|
|
calc_grad_phi_surf.F
|
|
1.2
|
22 years |
cnh |
Bringing comments up to data and formatting for document extraction.
|
