Parent Directory
|
|
|
|
|
adams_bashforth2.F
|
|
1.7
|
16 years |
jmc |
prepare for "clever pickup" implementation:
add startAB parameter to argument li…
|
adams_bashforth3.F
|
|
1.3
|
16 years |
jmc |
prepare for "clever pickup" implementation:
add startAB parameter to argument li…
|
calc_3d_diffusivity.F
|
|
1.16
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
calc_buoyancy.F
|
|
1.9
|
13 years |
jmc |
remove tabs
|
calc_common_factors.F
|
|
1.22
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
calc_diffusivity.F
|
|
1.37
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
calc_div_ghat.F
|
|
1.26
|
14 years |
jmc |
add parenthesis in cg3d_b computation
|
calc_grad_phi_hyd.F
|
|
1.13
|
13 years |
jmc |
add a missing phi0surf when Ro_surf=rC in special case select_rStar=1
& nonlinF…
|
calc_grad_phi_surf.F
|
|
1.2
|
22 years |
cnh |
Bringing comments up to data and formatting for document extraction.
|
calc_gs.F
|
|
1.52
|
13 years |
heimbach |
Adjoint compatible with combined AB3 and NLFS.
|
calc_gt.F
|
|
1.56
|
13 years |
heimbach |
Adjoint compatible with combined AB3 and NLFS.
|
calc_gw.F
|
|
1.44
|
14 years |
jmc |
add commented line to reproduce old results (with bug in vertical flux)
|
calc_ivdc.F
|
|
1.7
|
18 years |
jmc |
"rkSign" replaces "-rkFac" (<- removed)
|
calc_oce_mxlayer.F
|
|
1.8
|
14 years |
dimitri |
added a reference comment
|
calc_phi_hyd.F
|
|
1.40
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
calc_r_star.F
|
|
1.17
|
13 years |
jmc |
add code for simple average (not area weighted) of rStarFac at U,V point
(should…
|
calc_surf_dr.F
|
|
1.14
|
15 years |
jmc |
change macros (EXCH & GLOBAL_SUM/MAX) sufix _R4/_R8 to _RS/_RL
when applied to …
|
calc_viscosity.F
|
|
1.9
|
14 years |
jmc |
allow to specify a vertical profile of vertical viscosity
|
calc_wsurf_tr.F
|
|
1.2
|
15 years |
jmc |
call GLOBAL_SUM_TILE_RL (result is less dependant on Nb of Procs/Threads)
|
cg2d.F
|
|
1.53
|
14 years |
jmc |
use simple EXCH (overlap 1 and no Corner Exch): this reduces number of
EXCH cal…
|
cg2d_nsa.F
|
|
1.3
|
14 years |
jmc |
- import modifs from standard version (cg2d.F, v1.16):
use pre-computed solver …
|
cg2d_sr.F
|
|
1.3
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
cg3d.F
|
|
1.23
|
14 years |
jmc |
use the right type (RL) of S/R to write residual field (debug)
|
check_pickup.F
|
|
1.4
|
14 years |
jmc |
Implement AB-3 for non-hydrostatic vertical momentum ;
add 2-D field to store Hy…
|
config_check.F
|
|
1.56
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
config_summary.F
|
|
1.124
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
convective_adjustment.F
|
|
1.33
|
15 years |
heimbach |
Add TAF option "kind" (or adjust "byte") to enable real*4 common blocks
|
convective_adjustment_ini.F
|
|
1.22
|
15 years |
jmc |
replace calls to "FIND_RHO" with recent version "FIND_RHO_2D"
|
convective_weights.F
|
|
1.5
|
18 years |
jmc |
"rkSign" replaces "-rkFac" (<- removed)
|
convectively_mixtracer.F
|
|
1.2
|
22 years |
adcroft |
Tidied up protex preamble promments.
|
correction_step.F
|
|
1.25
|
14 years |
jmc |
explicit time-stepping for part of Non-Hydrostatic pressure gradient
|
cycle_tracer.F
|
|
1.8
|
17 years |
jmc |
do the k loop inside CYCLE_TRACER (supposed to be more efficient)
|
diags_oceanic_surf_flux.F
|
|
1.10
|
14 years |
jmc |
return to version 1.8, but uses (new) right type of S/R for diagnostic filling
…
|
diags_phi_hyd.F
|
|
1.2
|
20 years |
heimbach |
Retain TAMC compatibility:
- avoid "_d" constructs in PARAMETER declarations
- a…
|
diags_phi_rlow.F
|
|
1.7
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
diags_rho.F
|
|
1.4
|
15 years |
jmc |
store 3-D (in-situ) density in commom block (this save 1 rho computation);
re-a…
|
do_atmospheric_phys.F
|
|
1.8
|
15 years |
jmc |
move bi,bj loops inside AIM_DO_PHYSICS
|
do_fields_blocking_exchanges.F
|
|
1.27
|
13 years |
gforget |
fix adjoint of cd scheme for curvilinear grids etc.,
which requires the adjoint …
|
do_gterm_blocking_exchanges.F
|
|
1.18
|
15 years |
jmc |
change macros (EXCH & GLOBAL_SUM/MAX) sufix _R4/_R8 to _RS/_RL
when applied to …
|
do_oceanic_phys.F
|
|
1.93
|
13 years |
heimbach |
Change store dir. logic following common block changes (05/2009)
|
do_stagger_fields_exchanges.F
|
|
1.7
|
15 years |
jmc |
change macros (EXCH & GLOBAL_SUM/MAX) sufix _R4/_R8 to _RS/_RL
when applied to …
|
do_statevars_diags.F
|
|
1.14
|
14 years |
jahn |
add package longstep
|
do_statevars_tave.F
|
|
1.5
|
14 years |
jmc |
oops! fix previous modif
|
do_the_model_io.F
|
|
1.63
|
14 years |
jmc |
- pass modelEnd flag as argument, from forward_step to diagnostics_write
- move …
|
do_write_pickup.F
|
|
1.6
|
16 years |
mlosch |
add a flag writePickupAtEnd (default=true) to be able to suppress
writing a pick…
|
dynamics.F
|
|
1.148
|
13 years |
heimbach |
Adjoint compatible with combined AB3 and NLFS.
|
external_fields_load.F
|
|
1.34
|
14 years |
jmc |
remove unbalanced quote in commented line (forgot to check-in this one)
|
external_forcing.F
|
|
1.57
|
14 years |
dimitri |
Adding parameters to specify temperature and salinity of addMass array
separatel…
|
external_forcing_surf.F
|
|
1.51
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
find_alpha.F
|
|
1.17
|
15 years |
jmc |
new S/R FIND_RHO_2D (replace FIND_RHO):
change argument tFld & sFld to just 2-D…
|
find_rho.F
|
|
1.37
|
14 years |
jmc |
move (back) S/R FIND_RHO_SCALAR from seawater.F to find_rho.F
|
forward_step.F
|
|
1.180
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
freesurf_rescale_g.F
|
|
1.7
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
freeze.F
|
|
1.11
|
19 years |
jmc |
add "_d 0" that was missing.
|
freeze_surface.F
|
|
1.7
|
18 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
grad_sigma.F
|
|
1.9
|
15 years |
jmc |
changes in FILL_CS_CORNER_TR_RL argument list.
|
impldiff.F
|
|
1.28
|
13 years |
mlosch |
not pretty but efficient: if TARGET_NEC_SX, extend loop ranges for
better vector…
|
ini_cartesian_grid.F
|
|
1.22
|
14 years |
jmc |
add code for Exch2 IO layout:
(not always compatible with delX,delY setting; co…
|
ini_cg2d.F
|
|
1.49
|
14 years |
jmc |
fix deep-atmosphere with topography (+ re-arrange do-loops)
|
ini_cg3d.F
|
|
1.26
|
14 years |
jmc |
add NH free-surface formulation (selectNHfreeSurf=1) (not fully tested)
|
ini_cori.F
|
|
1.32
|
14 years |
jmc |
reset monitor prefix to "NONE".
|
ini_curvilinear_grid.F
|
|
1.48
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
ini_cylinder_grid.F
|
|
1.6
|
14 years |
jmc |
add code for Exch2 IO layout:
(not always compatible with delX,delY setting; co…
|
ini_depths.F
|
|
1.48
|
14 years |
jmc |
add changes (but commented out) for Symetric Domain vs Eq
|
ini_dynvars.F
|
|
1.23
|
14 years |
gforget |
ALLOW_3D_VISCAH/ALLOW_3D_VISCA4 bug fix
|
ini_eos.F
|
|
1.20
|
15 years |
jmc |
change FIND_RHO_SCALAR : return rho (instead of rho - rhoConst)
|
ini_fields.F
|
|
1.24
|
14 years |
jmc |
move ini_pnh.F to ini_nh_fields.F (with more NH var. initialisation and
called …
|
ini_forcing.F
|
|
1.50
|
15 years |
jmc |
remove unnecessary BARRIER
|
ini_grid.F
|
|
1.33
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
ini_hfac.F
|
|
1.1
|
18 years |
heimbach |
o Changes in initialisation needed for NLFS adjoint.
|
ini_linear_phisurf.F
|
|
1.17
|
14 years |
jmc |
define 2-D "interior" masks (C,W & S); move global area computation from
ini_mas…
|
ini_masks_etc.F
|
|
1.47
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
ini_mixing.F
|
|
1.10
|
15 years |
jmc |
add missing header file "PACKAGES_CONFIG.h" ; initialise diffKr over full domain…
|
ini_mnc_vars.F
|
|
1.8
|
14 years |
mlosch |
if available (ALLOW_CAL), use startTime_1 and 2 to create a meaningful
unit attr…
|
ini_model_io.F
|
|
1.35
|
14 years |
jmc |
Implement AB-3 for non-hydrostatic vertical momentum ;
add 2-D field to store Hy…
|
ini_nh_fields.F
|
|
1.2
|
14 years |
jmc |
replace "write(0,*)" with call to PRINT_MESSAGE
|
ini_nh_vars.F
|
|
1.3
|
14 years |
jmc |
Implement AB-3 for non-hydrostatic vertical momentum ;
add 2-D field to store Hy…
|
ini_nlfs_vars.F
|
|
1.2
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
ini_p_ground.F
|
|
1.9
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
ini_parms.F
|
|
1.232
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
ini_pressure.F
|
|
1.13
|
13 years |
jmc |
remove tabs
|
ini_psurf.F
|
|
1.11
|
15 years |
jmc |
remove unnecessary BARRIER
|
ini_salt.F
|
|
1.23
|
14 years |
jmc |
typo in comments
|
ini_sigma_hfac.F
|
|
1.1
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
ini_spherical_polar_grid.F
|
|
1.27
|
14 years |
jmc |
add code for Exch2 IO layout:
(not always compatible with delX,delY setting; co…
|
ini_theta.F
|
|
1.28
|
14 years |
jmc |
add run-time parameters to check and mask initial T & S
|
ini_vel.F
|
|
1.8
|
15 years |
jmc |
remove unnecessary BARRIER
|
ini_vertical_grid.F
|
|
1.20
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
initialise_fixed.F
|
|
1.51
|
14 years |
jmc |
update comments (+ typo)
|
initialise_varia.F
|
|
1.65
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
integr_continuity.F
|
|
1.22
|
14 years |
jmc |
make changes for anelastic and deep-atmosphere when using r*
|
integrate_for_w.F
|
|
1.15
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
load_fields_driver.F
|
|
1.8
|
15 years |
heimbach |
Add TAF option "kind" (or adjust "byte") to enable real*4 common blocks
|
load_grid_spacing.F
|
|
1.3
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
load_ref_files.F
|
|
1.1
|
15 years |
jmc |
- add initialisation of deepFac if using Pcoords (new S/R set_grid_factors)
- mo…
|
model_ad_diff.list
|
|
1.30
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
modeldata_example.F
|
|
1.9
|
22 years |
cnh |
Bringing comments up to data and formatting for document extraction.
|
momentum_correction_step.F
|
|
1.7
|
15 years |
jmc |
change macros (EXCH & GLOBAL_SUM/MAX) sufix _R4/_R8 to _RS/_RL
when applied to …
|
packages_boot.F
|
|
1.50
|
14 years |
jmc |
initialise variable "useEMBED_FILES"
|
packages_check.F
|
|
1.49
|
14 years |
jmc |
stop if useEBM, useCheapAML, useFizhi, useGridAlt, useEMBED_FILES,
is true but …
|
packages_error_msg.F
|
|
1.1
|
17 years |
jmc |
S/R PACKAGES_ERROR_MSG replaces PACKAGES_CHECK_ERROR :
- add 1 argument (used in…
|
packages_init_fixed.F
|
|
1.71
|
14 years |
dimitri |
Adding the shell of, and the hooks to, a new package that will be
used to model …
|
packages_init_variables.F
|
|
1.78
|
14 years |
jmc |
fix a comment.
|
packages_readparms.F
|
|
1.65
|
13 years |
jmc |
read "data.offline" only if useOffLine=T.
|
packages_write_pickup.F
|
|
1.38
|
14 years |
jmc |
uncomment OBCS_WRITE_PICKUP call
|
plot_field.F
|
|
1.14
|
22 years |
heimbach |
o merge of relevant stuff from the ecco-branch:
- genmake: removed $S64 overwr…
|
port_rand.F
|
|
1.7
|
14 years |
jmc |
remove unused variables
|
post_cg3d.F
|
|
1.3
|
14 years |
jmc |
add NH free-surface formulation (selectNHfreeSurf=1) (not fully tested)
|
pre_cg3d.F
|
|
1.2
|
14 years |
jmc |
add NH free-surface formulation (selectNHfreeSurf=1) (not fully tested)
|
pressure_for_eos.F
|
|
1.4
|
15 years |
jmc |
comment out maskC multiplication (not really needed as far as I know,
but harmf…
|
read_pickup.F
|
|
1.6
|
14 years |
jmc |
Implement AB-3 for non-hydrostatic vertical momentum ;
add 2-D field to store Hy…
|
remove_mean.F
|
|
1.3
|
15 years |
jmc |
fix wrong type of GLOBAL_SUM in REMOVE_MEAN_RS ;
+ change macros (EXCH & GLOBAL_…
|
rotate_spherical_polar_grid.F
|
|
1.2
|
16 years |
mlosch |
add the computation of the cos/sin(angle between model north and
geographical no…
|
rotate_uv2en.F
|
|
1.1
|
14 years |
gforget |
introducing rotate_uv2en.F that rotates a vector field
from X/Y to Eastward/Nort…
|
seawater.F
|
|
1.6
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
set_defaults.F
|
|
1.149
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
set_grid_factors.F
|
|
1.2
|
14 years |
jmc |
remove unused variables
|
set_parms.F
|
|
1.7
|
14 years |
jmc |
Adjust endTime (used to test for last-iter) for sub-timestep mismatch.
|
set_ref_state.F
|
|
1.4
|
14 years |
jmc |
add output for rhoref(k) = rho(Tref,Sref)
|
set_write_global_pickup.F
|
|
1.1
|
17 years |
jmc |
isolate in set_write_global_pickup.F the only S/R of checkpoint.F that is
still …
|
solve_for_pressure.F
|
|
1.74
|
14 years |
jmc |
- use interior masks (instead of maskH, <- to be remove).
|
solve_pentadiagonal.F
|
|
1.4
|
13 years |
gforget |
Adjoint related modifications -- allowing the
use of implicit vertical advection…
|
solve_tridiagonal.F
|
|
1.3
|
13 years |
gforget |
Adjoint related modifications -- allowing the
use of implicit vertical advection…
|
state_summary.F
|
|
1.8
|
15 years |
jmc |
remove unnecessary BARRIER
|
swfrac.F
|
|
1.15
|
14 years |
jmc |
add missing "_d 0" in water type coeff.
|
taueddy_external_forcing.F
|
|
1.4
|
16 years |
gforget |
o bridging the gap between eddy stress and GM.
... had missed this bit.
|
taueddy_init_varia.F
|
|
1.4
|
14 years |
jmc |
replace calls to MDSREADFIELD with equivalent READ_FLD_XYZ_RS
|
the_main_loop.F
|
|
1.106
|
14 years |
mlosch |
adjust store directives for seaice evp and multicategory according to
pkg/ecco/t…
|
the_model_main.F
|
|
1.107
|
14 years |
jmc |
move call to DIAGSTATS_CLOSE_IO to diagnostics_write.F
|
thermodynamics.F
|
|
1.130
|
13 years |
heimbach |
Enabling (perhaps) AB3 + NLFS + RSTAR
initial tests for ECCO-GODAE v4 and global…
|
timestep.F
|
|
1.52
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
timestep_tracer.F
|
|
1.14
|
14 years |
jahn |
add package longstep
|
timestep_wvel.F
|
|
1.6
|
14 years |
jmc |
add NH free-surface formulation (selectNHfreeSurf=1) (not fully tested)
|
tracers_correction_step.F
|
|
1.16
|
14 years |
jmc |
apply zonal filter to all passive tracers
|
tracers_iigw_correction.F
|
|
1.2
|
18 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
turnoff_model_io.F
|
|
1.2
|
14 years |
jmc |
- switch-off more output flags (exf_monFreq, chkPtFreq, dumpInitAndLast,
write…
|
update_cg2d.F
|
|
1.7
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
update_etah.F
|
|
1.10
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
update_masks_etc.F
|
|
1.5
|
14 years |
jmc |
call PLOT_FIELD if debugLevel.GE.debLevB ; fix for multi-threaded (IO).
|
update_r_star.F
|
|
1.7
|
15 years |
jmc |
move kSurfC,W,S from SURFACE.h to GRID.h
|
update_sigma.F
|
|
1.1
|
13 years |
jmc |
sigma (and hybrid-sigma) coordinate code for non-linear free-surface
|
update_surf_dr.F
|
|
1.7
|
15 years |
jmc |
move kSurfC,W,S from SURFACE.h to GRID.h
|
write_grid.F
|
|
1.32
|
13 years |
jmc |
first check-in of sigma (and hybrid-sigma) coordinate code
|
write_pickup.F
|
|
1.10
|
14 years |
jmc |
avoid unbalanced quote (single or double) in commented line
|
write_state.F
|
|
1.61
|
14 years |
jmc |
add NH free-surface formulation (selectNHfreeSurf=1) (not fully tested)
|