 Parent Directory
|
|
|
|
|
askparam.F
|
|
1.1
|
19 years |
molod |
Function to query values from inside of common blocks in PARAMS.h
|
|
calc_viscosity.F
|
|
1.7
|
19 years |
mlosch |
o prepare addition of new packages GGL90 and OPPS
- new parameters useGGL90 an…
|
|
remove_mean.F
|
|
1.1
|
18 years |
mlosch |
o add file that does the balancing of EmPmR and/or Qnet
|
|
find_alpha.F
|
|
1.16
|
17 years |
mlosch |
add myThid to all kpp routines (long overdue)
|
|
calc_r_star.F
|
|
1.11
|
17 years |
mlosch |
change error catch in calc_r_star to improve vectorization
|
|
calc_buoyancy.F
|
|
1.8
|
21 years |
mlosch |
o cleaned up the use of rhoNil and rhoConst.
- rhoNil should only appear in th…
|
|
update_masks_etc.F
|
|
1.2
|
17 years |
jmc |
remove storage & computation of recip_hFacU (not used)
|
|
ini_vel.F
|
|
1.7
|
17 years |
jmc |
add BARRIER before reading uVel,vVel from file.
|
|
config_check.F
|
|
1.42
|
17 years |
jmc |
move checking for un-compiled pkg, from CONFIG_CHECK to PACKAGES_CHECK.
|
|
ini_masks_etc.F
|
|
1.34
|
17 years |
jmc |
fix globalArea calculation: apply GLOBAL_SUM to thread-local variable.
|
|
set_parms.F
|
|
1.2
|
17 years |
jmc |
add useSphereF, useBetaPlaneF and use3dCoriolis to namelist PARAM01 ;
change def…
|
|
convective_adjustment.F
|
|
1.30
|
17 years |
jmc |
iMin,iMax,jMin,jMax are set within convective_adjustment S/R instead of
passed …
|
|
ini_spherical_polar_grid.F
|
|
1.23
|
18 years |
jmc |
set grid-direction orientation angle to zero (Cos=1,Sin=0).
|
|
load_grid_spacing.F
|
|
1.2
|
17 years |
jmc |
setting both delR & delRc => no assumption on vertical grid (center@middle
or i…
|
|
external_fields_load.F
|
|
1.29
|
17 years |
jmc |
make pLoad & sIceLoad always available (but still only used if
ATMOSPHERIC…
|
|
do_stagger_fields_exchanges.F
|
|
1.6
|
18 years |
jmc |
1rst implementation of Implicit IGW using the 3-D solver (use3Dsolver=T)
and b…
|
|
model_ad_diff.list
|
|
1.21
|
17 years |
jmc |
remove the_correction_step.f (usePickupBeforeC35 no longer supported).
|
|
solve_pentadiagonal.F
|
|
1.2
|
20 years |
jmc |
make it safer in case Nr=1 or Nr=2
|
|
calc_oce_mxlayer.F
|
|
1.2
|
16 years |
jmc |
Improve the 2nd method (local N2 > hMixCriteria * Mean(N2) );
|
|
set_defaults.F
|
|
1.128
|
17 years |
jmc |
add temperaure criteria for Mixed-layer diagnostic
|
|
diags_phi_rlow.F
|
|
1.2
|
21 years |
jmc |
o avoid using any hFac in calc_phi_hyd ; use Ro_surf,R_low instead.
NLFS + p-co…
|
|
load_fields_driver.F
|
|
1.5
|
17 years |
jmc |
works when pkg/exf is compiled but not used (useEXF=.F.)
|
|
ini_forcing.F
|
|
1.44
|
17 years |
jmc |
make pLoad & sIceLoad always available (but still only used if
ATMOSPHERIC…
|
|
calc_ivdc.F
|
|
1.7
|
18 years |
jmc |
"rkSign" replaces "-rkFac" (<- removed)
|
|
external_forcing_surf.F
|
|
1.37
|
17 years |
jmc |
fix for useSEAICE=F with ALLOW_SEAICE define: AREA is not initialised !
|
|
correction_step.F
|
|
1.24
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
ini_cg2d.F
|
|
1.45
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
update_etah.F
|
|
1.8
|
18 years |
jmc |
always reset wVel & eta (to zero or prescribe it) at the OBs.
|
|
diags_oceanic_surf_flux.F
|
|
1.6
|
17 years |
jmc |
make pLoad & sIceLoad always available (but still only used if
ATMOSPHERIC…
|
|
calc_surf_dr.F
|
|
1.12
|
17 years |
jmc |
comment out an unused line
|
|
ini_eos.F
|
|
1.15
|
17 years |
jmc |
clean-up multi-threaded problems (reported by debugger tcheck on ACES).
|
|
timestep_wvel.F
|
|
1.4
|
17 years |
jmc |
define and use reference profile for w <-> omega conversion in NH-code.
|
|
packages_check.F
|
|
1.41
|
17 years |
jmc |
S/R PACKAGES_ERROR_MSG replaces PACKAGES_CHECK_ERROR :
- add 1 argument (used in…
|
|
update_cg2d.F
|
|
1.7
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
config_summary.F
|
|
1.98
|
17 years |
jmc |
add temperaure criteria for Mixed-layer diagnostic
|
|
packages_error_msg.F
|
|
1.1
|
17 years |
jmc |
S/R PACKAGES_ERROR_MSG replaces PACKAGES_CHECK_ERROR :
- add 1 argument (used in…
|
|
convective_adjustment_ini.F
|
|
1.20
|
17 years |
jmc |
iMin,iMax,jMin,jMax are set within convective_adjustment S/R instead of
passed …
|
|
ini_mnc_vars.F
|
|
1.4
|
18 years |
jmc |
add variable definition "gWnm1"
|
|
port_rand.F
|
|
1.6
|
19 years |
jmc |
Allow to set the seed ;
turn back to the original port_rand function if called w…
|
|
pressure_for_eos.F
|
|
1.2
|
19 years |
jmc |
use flags: fluidIsAir/Water, usingP/ZCoords instead of buoyancyRelation
|
|
ini_psurf.F
|
|
1.9
|
17 years |
jmc |
all threads call READ_FLD S/R (needed if using SingleCpuIO) ;
add barrier before…
|
|
grad_sigma.F
|
|
1.6
|
18 years |
jmc |
"rkSign" replaces "-rkFac" (<- removed)
|
|
ini_fields.F
|
|
1.22
|
17 years |
jmc |
clean-up the read / write pickup S/R
|
|
cg3d.F
|
|
1.18
|
17 years |
jmc |
add 3rd dimension to EXCH_S3D argument list
|
|
timestep_tracer.F
|
|
1.13
|
17 years |
jmc |
comments: always spell tendency the same way (easier to grep for)
|
|
ini_dynvars.F
|
|
1.17
|
17 years |
jmc |
initialise mixed layer depth array.
|
|
ini_cartesian_grid.F
|
|
1.20
|
17 years |
jmc |
clean-up multi-threaded problems (reported by debugger tcheck on ACES).
|
|
do_the_model_io.F
|
|
1.59
|
17 years |
jmc |
call S/R LAND_OUTPUT: replace S/R LAND_WRITE_DIAGS and write also snap-shot
|
|
swfrac.F
|
|
1.13
|
17 years |
jmc |
move myThid to last argument and add myIter to the argument list
|
|
read_pickup.F
|
|
1.1
|
17 years |
jmc |
split checkpoint.F (between different S/R) ; clean up the code
and use RW inter…
|
|
ini_p_ground.F
|
|
1.7
|
18 years |
jmc |
remove unused variable (reduce number of warnings).
|
|
ini_linear_phisurf.F
|
|
1.13
|
17 years |
jmc |
update comments.
|
|
do_statevars_tave.F
|
|
1.2
|
18 years |
jmc |
remove unused variables (reduces number of compiler warnings)
|
|
cycle_tracer.F
|
|
1.8
|
17 years |
jmc |
do the k loop inside CYCLE_TRACER (supposed to be more efficient)
|
|
ini_pressure.F
|
|
1.10
|
17 years |
jmc |
fix global sum here (interior only, otherwise overlap points are counted
severa…
|
|
calc_phi_hyd.F
|
|
1.35
|
17 years |
jmc |
simplify call to S/R CALC_GRAD_PHI_HYD
|
|
write_grid.F
|
|
1.21
|
17 years |
jmc |
- put back tmpfld in a local common block (was commented by ...)
- all threads c…
|
|
calc_grad_phi_hyd.F
|
|
1.10
|
17 years |
jmc |
calculate pressure gradient only where necessary (avoid Pb with uninitialized ar…
|
|
external_forcing.F
|
|
1.42
|
17 years |
jmc |
changes in SWFRAC argument list.
|
|
initialise_varia.F
|
|
1.54
|
17 years |
jmc |
move calls to MONITOR & DO_THE_MODEL_IO
from the_main_loop.F to the end of initi…
|
|
do_write_pickup.F
|
|
1.3
|
17 years |
jmc |
go back to version 1.1 (per Jeff request)
|
|
calc_gw.F
|
|
1.36
|
17 years |
jmc |
- use reference profile for w <-> omega conversion in NH-code
- change grid fact…
|
|
initialise_fixed.F
|
|
1.47
|
17 years |
jmc |
clean-up multi-threaded problems (reported by debugger tcheck on ACES).
|
|
convective_weights.F
|
|
1.5
|
18 years |
jmc |
"rkSign" replaces "-rkFac" (<- removed)
|
|
calc_div_ghat.F
|
|
1.21
|
18 years |
jmc |
1rst implementation of Implicit IGW using the 3-D solver (use3Dsolver=T)
and b…
|
|
ini_parms.F
|
|
1.197
|
17 years |
jmc |
add temperaure criteria for Mixed-layer diagnostic
|
|
packages_write_pickup.F
|
|
1.25
|
17 years |
jmc |
2nd-Order Moment Advection Scheme (Prather, 1986): first check-in
- enable by s…
|
|
integrate_for_w.F
|
|
1.11
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
do_statevars_diags.F
|
|
1.10
|
16 years |
jmc |
new S/R name: {PKG}_DIAGNOSTICS_STATE which fill diagnostics array
for {PKG} st…
|
|
impldiff.F
|
|
1.26
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
do_atmospheric_phys.F
|
|
1.7
|
18 years |
jmc |
remove unused variables (reduces number of compiler warning)
|
|
ini_cori.F
|
|
1.26
|
17 years |
jmc |
use function "MASTER_CPU_IO" to hide EESUPPORT.h from TAF.
|
|
ini_grid.F
|
|
1.31
|
17 years |
jmc |
allow to read vertical arrays: tRef,sRef,delR & delRc from (binary) file ;
+ …
|
|
cg2d.F
|
|
1.47
|
17 years |
jmc |
when debugLevel > 2 , print actualResidual for each cg2d_iteration.
|
|
find_rho.F
|
|
1.33
|
18 years |
jmc |
remove comments about linear EOS and "surface" level.
|
|
ini_cg3d.F
|
|
1.23
|
17 years |
jmc |
define and use reference profile for w <-> omega conversion in NH-code.
|
|
adams_bashforth2.F
|
|
1.6
|
19 years |
jmc |
modified to be used for momentum tendencies.
|
|
do_fields_blocking_exchanges.F
|
|
1.22
|
17 years |
jmc |
2nd-Order Moment Advection Scheme (Prather, 1986): first check-in
- enable by s…
|
|
adams_bashforth3.F
|
|
1.2
|
18 years |
jmc |
Allow to apply AB on T,S rather than on AB(gT,gS):
- implemented within #ifdef …
|
|
ini_cylinder_grid.F
|
|
1.4
|
17 years |
jmc |
domain start at radius (Y-axis origin) = phiMin
(we should replace thetaMin,phiM…
|
|
ini_vertical_grid.F
|
|
1.18
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
solve_tridiagonal.F
|
|
1.2
|
19 years |
jmc |
fix comments
|
|
tracers_correction_step.F
|
|
1.14
|
17 years |
jmc |
iMin,iMax,jMin,jMax are set within convective_adjustment S/R instead of
passed …
|
|
ini_model_io.F
|
|
1.22
|
17 years |
jmc |
only master-thread updates parameters in common block; and add a barrier;
|
|
integr_continuity.F
|
|
1.18
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
do_gterm_blocking_exchanges.F
|
|
1.17
|
19 years |
jmc |
do not refer to gxNm1 if unnecessary (to work also with AB-3)
|
|
calc_gs.F
|
|
1.47
|
17 years |
jmc |
make a local copy of velocity to pass (like u,v,r_Trans) to tracer advection S/R…
|
|
ini_surf_dr.F
|
|
1.2
|
17 years |
jmc |
remove un-used variables (to reduce Nb of compiler warnings).
|
|
freeze.F
|
|
1.11
|
19 years |
jmc |
add "_d 0" that was missing.
|
|
ini_phiref.F
|
|
1.5
|
17 years |
jmc |
define and use reference profile for w <-> omega conversion in NH-code.
|
|
getcon.F
|
|
1.10
|
17 years |
jmc |
put back a "d0" (lost in the previous modif) to recover the same g77 output
|
|
ini_reference_state.F
|
|
1.2
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
taueddy_external_forcing.F
|
|
1.2
|
18 years |
jmc |
assume ALLOW_TAU_EDDY to be defined in CPP_OPTIONS.h
|
|
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 …
|
|
ini_pnh.F
|
|
1.6
|
17 years |
jmc |
change commented lines (in case we read initial Phi_nh from a file)
|
|
calc_common_factors.F
|
|
1.22
|
17 years |
jmc |
start to implement deep-atmosphere and/or anelastic formulation
|
|
ini_r_star.F
|
|
1.3
|
17 years |
jmc |
remove un-used variables (to reduce Nb of compiler warnings).
|
|
read_write.F
|
|
1.22
|
17 years |
jmc |
add S/R WRITE_0D_C to print character string.
|
|
calc_gt.F
|
|
1.51
|
17 years |
jmc |
make a local copy of velocity to pass (like u,v,r_Trans) to tracer advection S/R…
|
|
do_oceanic_phys.F
|
|
1.50
|
17 years |
heimbach |
One more store change (revert).
|
|
the_main_loop.F
|
|
1.87
|
16 years |
heimbach |
Merge Jean's changes for OpenAD into main trunk.
|
|
update_r_star.F
|
|
1.6
|
17 years |
heimbach |
Change storing for rstar adjoint.
|
|
freeze_surface.F
|
|
1.7
|
18 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
|
update_surf_dr.F
|
|
1.6
|
17 years |
heimbach |
Change storing for rstar adjoint.
|
|
diags_rho.F
|
|
1.3
|
18 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
|
freesurf_rescale_g.F
|
|
1.6
|
18 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
|
cg2d_nsa.F
|
|
1.1
|
18 years |
heimbach |
New routines for bottom topog. control.
|
|
the_model_main.F
|
|
1.102
|
17 years |
heimbach |
It bloody still doesnt work $%@#
|
|
tracers_iigw_correction.F
|
|
1.2
|
18 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
|
timestep.F
|
|
1.46
|
18 years |
heimbach |
Modifications for bottom topography control
o replace hFacC by _hFacC at various…
|
|
forward_step.F
|
|
1.150
|
17 years |
heimbach |
Further cleanup of top-level routines.
|
|
taueddy_init_varia.F
|
|
1.1
|
18 years |
heimbach |
Adding/updating eddy stress control code
|
|
solve_for_pressure.F
|
|
1.60
|
17 years |
heimbach |
Start cleanup of the_main_loop
o package all timing stuff (not tested)
|
|
diags_phi_hyd.F
|
|
1.2
|
20 years |
heimbach |
Retain TAMC compatibility:
- avoid "_d" constructs in PARAMETER declarations
- a…
|
|
plot_field.F
|
|
1.14
|
22 years |
heimbach |
o merge of relevant stuff from the ecco-branch:
- genmake: removed $S64 overwr…
|
|
packages_init_fixed.F
|
|
1.59
|
17 years |
heimbach |
Add init to ADMTLM.
|
|
momentum_correction_step.F
|
|
1.5
|
18 years |
heimbach |
o Now rstar adjoint.
|
|
thermodynamics.F
|
|
1.115
|
17 years |
heimbach |
Updates for NLFS adjoint.
|
|
dynamics.F
|
|
1.137
|
17 years |
heimbach |
Change storing for rstar adjoint.
|
|
ini_hfac.F
|
|
1.1
|
18 years |
heimbach |
o Changes in initialisation needed for NLFS adjoint.
|
|
packages_init_variables.F
|
|
1.60
|
16 years |
gforget |
pkg/smooth initialization
|
|
packages_readparms.F
|
|
1.53
|
16 years |
gforget |
pkg/smooth initialization
|
|
packages_boot.F
|
|
1.41
|
16 years |
gforget |
dependencies: pkg/profiles requires pkg/cal
|
|
ini_depths.F
|
|
1.39
|
17 years |
edhill |
add ability to read bathy, salt, and theta using MNC (off by def)
-- and this …
|
|
ini_theta.F
|
|
1.24
|
17 years |
edhill |
add ability to read bathy, salt, and theta using MNC (off by def)
-- and this …
|
|
write_pickup.F
|
|
1.2
|
17 years |
edhill |
try to fix the too-many-files-open problem described by Jan and Martin
-- the id…
|
|
ini_salt.F
|
|
1.18
|
17 years |
edhill |
add ability to read bathy, salt, and theta using MNC (off by def)
-- and this …
|
|
ini_mixing.F
|
|
1.7
|
17 years |
dimitri |
latitudinal dependence of Bryan and Lewis, 1979
fixed and reworked as per JM sug…
|
|
ini_curvilinear_grid.F
|
|
1.34
|
17 years |
dimitri |
moved "#undef OLD_GRID_IO" from ini_curvilinear_grid.F to CPP_OPTIONS.h
|
|
calc_3d_diffusivity.F
|
|
1.10
|
17 years |
dimitri |
o bug fixes for vertical diffusivity computations when both KPP and
3D diffu…
|
|
calc_diffusivity.F
|
|
1.32
|
17 years |
dimitri |
o bug fixes for vertical diffusivity computations when both KPP and
3D diffu…
|
|
calc_wsurf_tr.F
|
|
1.1
|
17 years |
dfer |
Second wave bis: correction of tracer source/sink due to Linear
Free surface
|
|
write_state.F
|
|
1.59
|
18 years |
cnh |
Removing gratuitous _BEGIN_MASTER statements so that singleCpuIO make work
multi…
|
|
state_summary.F
|
|
1.7
|
22 years |
cnh |
Bringing comments up to data and formatting for document extraction.
|
|
calc_grad_phi_surf.F
|
|
1.2
|
22 years |
cnh |
Bringing comments up to data and formatting for document extraction.
|
|
modeldata_example.F
|
|
1.9
|
22 years |
cnh |
Bringing comments up to data and formatting for document extraction.
|
|
open_copy_data_file.F
|
|
1.5
|
18 years |
ce107 |
Changed SCRATCH files to named files to avoid mysterious runtime error on
Blue G…
|
|
ini_nh_vars.F
|
|
1.2
|
17 years |
baylor |
Pass the variable viscosities on to calc_gw.
|
|
convectively_mixtracer.F
|
|
1.2
|
22 years |
adcroft |
Tidied up protex preamble promments.
|
