| 4 |
Notes on tags used in MITgcmUV |
Notes on tags used in MITgcmUV |
| 5 |
============================== |
============================== |
| 6 |
|
|
| 7 |
o adding precip control xx_precip |
o split PTRACERS.h in 2 header files: PTRACERS_FIELDS.h & PTRACERS_PARAMS.h |
| 8 |
o moved ptracer ctrl index 17 -> 32 |
(keep a temporary version of PTRACERS.h in verification/OpenAD/code_ad_openad |
| 9 |
|
to allow to compile customized code before the update) |
| 10 |
|
o cleaning-up: |
| 11 |
|
- fix CPP instruction syntax in pkg/obcs |
| 12 |
|
- replace (some) call to MDSIO S/R with call to RW interface S/R ; and |
| 13 |
|
add #ifdef ALLOW_MDSIO elsewhere (allows to compile without pkg/mdsio) |
| 14 |
|
- fix some threads issue in IO parts. |
| 15 |
|
o pkg/dic: |
| 16 |
|
- add tons of "_d 0" (--> much better testreports !) |
| 17 |
|
and then update outputs of tutorial_global_oce_biogeo |
| 18 |
|
o pkg/mom_fluxform: |
| 19 |
|
add a special version of momentum advection intended to conserve momentum |
| 20 |
|
next to a bathymetry step or a coastline edge. (default = off = #undef) |
| 21 |
|
o new read/write pickup version: |
| 22 |
|
- for now, only implemented for main (mdsio) pickup file. |
| 23 |
|
- write out only what is needed to restart; merge pickup_nh , pickup_ph |
| 24 |
|
and main pickup together. |
| 25 |
|
- read meta file; read only what is needed to restart; stop if a field |
| 26 |
|
is missing (if pickupStrictlyMatch=T, = the default) or try to restart |
| 27 |
|
if it make sense (even if the restart is not perfect). |
| 28 |
|
- if no meta file, assume that pickup to read corresponds exactly to |
| 29 |
|
a pickup that would currently be written. |
| 30 |
|
- read pickup written in the old format (until checkpoint59i) if it |
| 31 |
|
recognizes an old meta file (no field-list). |
| 32 |
|
- add a meta file in exp. which starts from a pickup: 2 cases: |
| 33 |
|
a) minimal meta file (with just file precision) + pickupStrictlyMatch=F |
| 34 |
|
e.g.: global_ocean.90x40x15/input/pickup.0000036000.meta |
| 35 |
|
b) a meta file describing the content of the associated pickup file |
| 36 |
|
e.g.: tutorial_global_oce_biogeo/input/pickup.0004248000.meta |
| 37 |
|
o pkg/mdsio & pkg/rw: |
| 38 |
|
- new routine to read a meta file ; new set of routine to read |
| 39 |
|
Multiple-fields file (with meta file). |
| 40 |
|
o added open boundary conditions capability for seaice |
| 41 |
|
HSNOW, HSALT, UICE, and VICE |
| 42 |
|
|
| 43 |
|
checkpoint59i |
| 44 |
|
o adjoint: |
| 45 |
|
* fix multiDimAdvection adjoint |
| 46 |
|
(partial recomputation problem by TAF for fVerT(:,:,kDown) |
| 47 |
|
and comlev1 size definition (maxpass vs. max. number of tracers) |
| 48 |
|
* verification/global_ocean.90x45x15 adjoint now tests |
| 49 |
|
NLFS and multiDimAdvection using DST3 (=30) |
| 50 |
|
* verification/lab_sea now tests multiDimAdvection using DST3 (=30) |
| 51 |
|
o pkg/kpp: add "_d 0" to real constant (if missing); |
| 52 |
|
update output of exp: natl_box (10.digits); vermix (std, 7.digits) |
| 53 |
|
and lab_sea, 3.FW (only 6,4,6 digits match) & AD (8.digits). |
| 54 |
|
o prepare for "clever pickup" implementation: add new header file "RESTART.h" |
| 55 |
|
for internal parameters related to restart process (formerly from PARAMS.h) |
| 56 |
|
and add startAB parameter to argument list of S/R ADAMS_BASHFORTH2. |
| 57 |
|
o more standard interface to {PKG}_WRITE_PICKUP with pickup suffix passed |
| 58 |
|
as argument. (only atm2d & obcs write_pickup have not yet been updated) |
| 59 |
|
o pkg/monitor: |
| 60 |
|
- use GLOBAL_SUM_TILE instead of _GLOBAL_SUM |
| 61 |
|
- fix mon_stats_rs (statistics over the full domain, even where field is zero) |
| 62 |
|
- account for deep Atmosphere factor and density factor (anelastic) |
| 63 |
|
o added open boundary conditions capability for seaice HEFF and AREA |
| 64 |
|
o pkg/shelfice: add option for convservative form of Hellmer&Olbers (1989) |
| 65 |
|
thermodynamics |
| 66 |
|
- requires a little reorganization, which affects the testreport results |
| 67 |
|
of isomip.htd (only 7 digits of cg2d agree) => update/modify experiment, |
| 68 |
|
so that now the conservative form is tested |
| 69 |
|
- add a few comments |
| 70 |
|
o add missing cvs Header: or Name: in eesupp/*, pkg/* & verification/code* |
| 71 |
|
o add a little bit of code to gad_os7mp_adv_?.F to help vectorization |
| 72 |
|
o add new diagnostics to seaice: advective, diffusive fluxes (only for |
| 73 |
|
multidim-advection, for scheme 2 they are not filled) and transports, |
| 74 |
|
thermodynamic growth rates |
| 75 |
|
o change units of EmPmR (inside the code, + within coupling interface) |
| 76 |
|
from m/s to kg/m2/s (mass flux) but leave input file unchanged. |
| 77 |
|
Affects results @ truncation level (cg2d match) and update output of |
| 78 |
|
experiments: lab_sea(6), global_ocean.90x40x15(10), |
| 79 |
|
global_ocean.cs32x15(11x3,10), natl_box(11), tutorial_global_oce_latlon(11) |
| 80 |
|
+ adjoint results: global_ocean_ebm(11) and lab_sea (12). |
| 81 |
|
Coupled set-up: allow to restart from previous pickups (cpl_oldPickup=T). |
| 82 |
|
Next: will retire convertEmP2rUnit (simply using mass2rUnit instead). |
| 83 |
|
|
| 84 |
|
checkpoint59h |
| 85 |
|
o pkg/exf: |
| 86 |
|
- improve vectorization by moving if-statement out of loops in |
| 87 |
|
exf_mapfields, exf_radiation |
| 88 |
|
- exf_bulkformulae.F: introduce 2D fields and vectorize code |
| 89 |
|
o pkg/kpp: added the salt plume scheme (ALLOW_SALT_PLUME) to KPP package |
| 90 |
|
o testreport: |
| 91 |
|
- allow to test for Qnet & SeaIce monitor output; clean-up ALLOW_BULK_OFFLINE |
| 92 |
|
monitor & update offline_exf_seaice exp. output. |
| 93 |
|
- AD testing: pass/FAIL according to Grad. output accuracy (instead of Cost) |
| 94 |
|
o pkg/seaice: |
| 95 |
|
- bug fix in the evp solver: boundary conditions were affected be |
| 96 |
|
masking of zMax/zMin (changes results) |
| 97 |
|
- minor bug fix in boundary conditions in seaice_calc_strainrates |
| 98 |
|
(changes results for no_slip) |
| 99 |
|
- seaice_lsr.F: make interpolation of eta dependent on boundaries |
| 100 |
|
- replace hardcoded lower limit for zeta (zMin) by runtime parameter |
| 101 |
|
- add a test to lab_sea, that tests the Hibler and Bryan (1987) ocean |
| 102 |
|
stress formulation and no-slip boundary conditions |
| 103 |
|
o pkg/ptracers: Temporary fix for PTRACERS_useGMRedi & PTRACERS_useKPP |
| 104 |
|
in gad_calc_rhs.F ; add few safety stops in initialisation phase. |
| 105 |
|
o pkg/seaice: a first HSALT time stepping equation has been checked in |
| 106 |
|
o pkg/seaice: replaced maskW with seaiceMaskU and maskS with seaiceMaskV |
| 107 |
|
in seaice_lsr.F; this solves the pkg/seaice-pkg/obcs problem |
| 108 |
|
without requiring DO-IF statements |
| 109 |
|
o pkg/thsice: |
| 110 |
|
use continuous power-law function for partition of energy between lateral |
| 111 |
|
melting/freezing and thinning/thickening ; old code using step function |
| 112 |
|
still available with #undef THSICE_FRACEN_POWERLAW |
| 113 |
|
update output of exp: aim.5l_cs.thSI, global_ocean.cs32x15.icedyn & .thsice |
| 114 |
|
o testreport: change AD testing : check against results/output_adm.txt |
| 115 |
|
using same scripts as for forward test. |
| 116 |
|
|
| 117 |
|
checkpoint59g |
| 118 |
|
o adjoint testing: in preparation for changing testreport: |
| 119 |
|
- output format: cost and grad written on separated lines |
| 120 |
|
- ad output results in directory "results" (instead of "results_ad") |
| 121 |
|
o pkg/seaice: adding ice salinity HSALT as a prognostic variable |
| 122 |
|
o pkg/seaice: changes for using pkg/seaice with pkg/obcs |
| 123 |
|
o pkg/ecco: allow user defined cost function contributions |
| 124 |
|
o testreport: |
| 125 |
|
Allow to choose (per experiment) the list of tested output variables |
| 126 |
|
and the main variable (used to issue a pass/FAIL ) ; |
| 127 |
|
- for now, done by adding the specific list in file: [exp]/input/tr_checklist |
| 128 |
|
- default is unchanged: >cg2d< , (T,S,U,V,5 tracers)_[min,max,mean,StD] ; |
| 129 |
|
Also modify printing of summary: |
| 130 |
|
a) ">" NN "<" indicates the "main" variable (used for pass/FAIL) |
| 131 |
|
b) echo the list of tested variables in the individual summary.txt of |
| 132 |
|
each experiment. |
| 133 |
|
o new S/R GLOBAL_SUM_TILE to compute global sum independently of number of |
| 134 |
|
threads and number of processes (with #define GLOBAL_SUM_SEND_RECV) |
| 135 |
|
(but still depend on the tile decompostion of the domain). |
| 136 |
|
o pkg/seaice: change a discretization detail to make the B-grid code |
| 137 |
|
"more symmetric". This change is likely to remove all "ridges/leads" that |
| 138 |
|
where quasi-aligned with the grid in B-grid solutions. It may also be |
| 139 |
|
the solution to the stress coupling issues with the B-grid. |
| 140 |
|
o each tested exp: add a "run" directory with a standard ".cvsignore" file ; |
| 141 |
|
remove .cvsignore from input dir. (since testreport no longer run here). |
| 142 |
|
o pkg/thsice: |
| 143 |
|
- cleaning: move common block out of "THSICE_2DYN.h" (removed) to "THSICE_VARS.h" |
| 144 |
|
- fix reshaping of sea-ice just after advection: |
| 145 |
|
melt all the ice only if ice-volume is too small. |
| 146 |
|
- re-visit lateral/thinning repartition of melting (modifs from May 04, 2007): |
| 147 |
|
prevent lateral melting if sea-ice fraction is too close to iceMaskMin ; |
| 148 |
|
and update experiment global_ocean.cs32x15.icedyn (+start from pickup files). |
| 149 |
|
o external_forcing_surf : extend the use of salt_EvPrRn & temp_EvPrRn (fresh-water |
| 150 |
|
tracer content) to linFS or no RealFreshWaterFlux ; default remains unchanged. |
| 151 |
|
o define mass2rUnit & rUnit2mass as units conversion factor, used for surface |
| 152 |
|
forcing. mass2rUnit: from mass per unit area [kg/m2] to r-coordinate unit |
| 153 |
|
(z-coord: =1/rhoConst ; p-coord: =gravity) ; rUnit2mass is just the reverse; |
| 154 |
|
and remove horiVertRatio (& recip_horiVertRatio). Affects truncation error |
| 155 |
|
of exp. global_oce_in_p: 10 16 16 14 16 13 16 16 16 13 13 13 16 13 13 12 16 |
| 156 |
|
-> update output.txt |
| 157 |
|
o pkg/cd_code: add brackets in multiple terms sum (S/R CD_CODE_SCHEME): |
| 158 |
|
this affects truncation error: -> update output.txt of exp: |
| 159 |
|
global_ocean.90x40x15 (fw&adm), lab_sea (fw&adm) & lab_sea.lsr, |
| 160 |
|
ideal_2D_oce, isomip.htd, natl_box, tutorial_global_oce_latlon. |
| 161 |
|
|
| 162 |
|
checkpoint59f |
| 163 |
|
o pkg/autodiff: zero_adj resets an ajoint variable to zero (in adjoint mode) |
| 164 |
|
o pkg/ctrl: ctrl_bound forces parameter corrections to stay in |
| 165 |
|
a bounded range (in forward mode) |
| 166 |
|
o pkg/ecco, ctrl, autodiff and mom_common: |
| 167 |
|
internal parameter controls, completements of implementations |
| 168 |
|
o add few EXCH S/R (UV_BGRID, UV_DGRID, SM) for B & D-Grid velocity & 2nd Moment Sxy. |
| 169 |
|
o use UV_BGRID exch for dxV,dyU: for now, only with pkg/exch2 & forward ; |
| 170 |
|
(not seem any difference in testing results). |
| 171 |
|
o pkg/cd_code: use the right EXCH calls (for CS-grid); but problem remains |
| 172 |
|
at face corners. |
| 173 |
|
o pkg/generic_advdiff: |
| 174 |
|
- in GAD.h, define as parameters (iMinAdvR,iMaxAdvR,jMinAdvR,jMaxAdvR) |
| 175 |
|
loop range indices for computing vertical advection tendency |
| 176 |
|
and do the calculation in the interior only (no overlap) ; |
| 177 |
|
for now, only implemented for SOM advection (to save CPU time). |
| 178 |
|
- add argument "withSigns" to S/R FILL_CS_CORNER_TR_RL (needed for SOM_xy moment) |
| 179 |
|
o exch2 adjoint |
| 180 |
|
First set of changes: |
| 181 |
|
- add exch2 hand-written adjoint templates |
| 182 |
|
- exch2 hand-written no longer use TAF-flag 'nownew_arg' |
| 183 |
|
This will require cleanup in pkg/autodiff/*.F |
| 184 |
|
(changed routines currently kept separate in verif. code/) |
| 185 |
|
- Comment all relevant #ifndef ALLOW_AUTODIFF_TAMC |
| 186 |
|
that used to hide exch2 or cubed-sphere specific code |
| 187 |
|
(commented via 'cph-exch2') |
| 188 |
|
o pkg/seaice |
| 189 |
|
- Close southern and western boundaries for UICE/VICE when useOBCS=.TRUE. |
| 190 |
|
o pkg/bulk_force: fix loading into Qsw of Short-Wave flux; and update |
| 191 |
|
output of global_ocean.cs32x15.thsice . |
| 192 |
|
|
| 193 |
|
checkpoint59e |
| 194 |
|
o exch2: new S/R that only use the cube-tracer (center-position) exchange: |
| 195 |
|
for B-grid vector (not yet tested) and C-grid vector (<- only used |
| 196 |
|
when option W2_USE_R1_ONLY in W2_OPTIONS.h is defined). |
| 197 |
|
o starting implementation of Duffy et al. (GRL 1999) salt plume scheme |
| 198 |
|
(#ifdef ALLOW_SALT_PLUME) |
| 199 |
|
o gather_2d/scatter_2d: removed halo regions |
| 200 |
|
o gmredi: add option (GM_taper_scheme='fm07') for Ferrari & McWilliams 2007 |
| 201 |
|
scheme and the corresponding test case (under front_relax dir). For now, |
| 202 |
|
only available with Skew-flux form and not yet tested in realistic set-up. |
| 203 |
|
adjoint: store directives updated, but gradient checks deteriorated, |
| 204 |
|
so maybe GM/Redi adjoint is now broken. |
| 205 |
|
o seaice adjoint |
| 206 |
|
* add AREA, HEFF, HSNOW as control variable |
| 207 |
|
(should not change lab_sea results) |
| 208 |
|
* CTRL_OPTIONS.h needs new flag: CTRL_SET_OLD_MAXCVARS_40 |
| 209 |
|
o pkg/seaice: |
| 210 |
|
* added computation of saltFlux in seaice_growth; |
| 211 |
|
For time being, sea ice salinity is assumed constant |
| 212 |
|
contribution of snow flooding to freshening of sea ice is neglected. |
| 213 |
|
SEAICE_salinity is set in SEAICE_PARM01 of data.seaice and it |
| 214 |
|
defaults to 0.0 in order to maintain backward compatibility. |
| 215 |
|
Typical values for SEAICE_salinity are 4 to 10 g/kg. |
| 216 |
|
* replaced dRf(1) with dRf(kSurface)*hFacC(kSurface) in seaice_growth.F |
| 217 |
|
* added SEAICE_availHeatFrac, which specifies fraction of surface level |
| 218 |
|
heat content used to melt or grow ice |
| 219 |
|
* commented out cap of HICE: it helps keep ice thinner |
| 220 |
|
* reintroduced cap of HEFF via MAX_HEFF and SEAICE_CAP_HEFF option |
| 221 |
|
* applied OBCS T/S mask to HEFFM sea ice mask |
| 222 |
|
|
| 223 |
|
checkpoint59d |
| 224 |
|
o standard name: {PKG}_DIAGNOSTICS_STATE to fill diagnostics array |
| 225 |
|
for {PKG} state variables, and called from DO_STATEVARS_DIAGS. |
| 226 |
|
(keep {PKG}_DIAGNOSTICS_FILL for non-state variables diagnostics) |
| 227 |
|
o pkg/gmredi (gmredi_readparms.F): add some missing "_d 0" |
| 228 |
|
and change default value of parameter "GM_Small_Number"; |
| 229 |
|
update output of exp: lab_sea (x2), cfc_example, global_ocean.90x40x15, |
| 230 |
|
global_ocean.cs32x15 (x4), global_ocean_ebm, global_with_exf, |
| 231 |
|
tutorial_global_oce_biogeo, tutorial_global_oce_latlon |
| 232 |
|
o pkg/ecco: cost function when applying pkg/smooth to controls |
| 233 |
|
o pkg/ctrl: add forcingPrecond run time parameter |
| 234 |
|
o pkg/seaice: |
| 235 |
|
- replace ZMIN=4.e8 with ZMIN=0. in dynsolver.F as in C-grid code |
| 236 |
|
- fix bug in metric terms of u-equation in LSR solver (implicit part), |
| 237 |
|
changes verification/lab_sea |
| 238 |
|
- rearrange implicit part of u-equation in LSR solver to make it easier to |
| 239 |
|
read, understand, and debug. This causes changes at the truncation level. |
| 240 |
|
- fix (serious) bug in the boundary conditions (sign error in the implicit |
| 241 |
|
part) of the LSR solver. Changes all LSR results. |
| 242 |
|
- fixed problem with HSNOW initialization to avoid thick snow when AREA |
| 243 |
|
is initilized with small values - does not change lab_sea results. |
| 244 |
|
- added HsnowFile initialization capability |
| 245 |
|
o pkg/smooth: addition to model/src and pkg/ctrl so allow |
| 246 |
|
initialization of pkg/smooth and application to control vector |
| 247 |
|
o pkg/seaice: fix another bug in the LSR no-slip boundary conditons |
| 248 |
|
o dependencies: pkg/profiles requires pkg/cal |
| 249 |
|
o pkg/profiles: |
| 250 |
|
- added option ALLOW_PROFILES_GENERICGRID |
| 251 |
|
-> pkg/profiles can thus be used with any grid (e.g. cs32x15) assuming |
| 252 |
|
that interpolation information (grid points and coefficients) is provided |
| 253 |
|
within the netcdf input files. |
| 254 |
|
-> sample matlab scripts can be found in MITgcm_contrib/gael |
| 255 |
|
that allow you to prepare netcdf input files. |
| 256 |
|
- also modified: cleaner include statements, cleaner error print statements, |
| 257 |
|
cleaner stops when error, and more tests of the netcdf input files consistency. |
| 258 |
|
o additional test (in global_ocean.cs32x15) using seaice+thsice pkgs. |
| 259 |
|
o pkg/seaice: |
| 260 |
|
- move seaice-diagnostics from seaice_do_diags to do_statevars_diags; this |
| 261 |
|
requires a new routine: seaice_diagnostics_fill.F |
| 262 |
|
- make sure that seaice does not move if not forced (pressure replacement |
| 263 |
|
method, Hibler and Ip, 1995), changes results |
| 264 |
|
- and new damping criterion for EVP solver according to Hunke, JCP, 2001 |
| 265 |
|
- SEAICE_evpDampC = > 0. turns it on (615. is the recommended value). |
| 266 |
|
It is turned off by default (=-1.), because it changes the results. |
| 267 |
|
- make it possible to read AREA from a file, too. |
| 268 |
|
|
| 269 |
|
checkpoint59c |
| 270 |
|
o add S/R and diagnostics for oceanic mixed-layer depth |
| 271 |
|
o move GMRedi call after all vertical mixing schemes (including KPP) |
| 272 |
|
o pkg/thsice: |
| 273 |
|
- ensure iceMask > iceMaskMin : this problem appeared after May-04 modifs |
| 274 |
|
(melt only laterally if thin ice): update output of global_ocean.cs32x15.thsice |
| 275 |
|
o pkg/obcs: |
| 276 |
|
- bug fix for balance code |
| 277 |
|
o pkg/seaice: |
| 278 |
|
- allow values of SEAICE_elasticParm > 1 |
| 279 |
|
- add new parameter SEAICE_evpTauRelax as an alternative |
| 280 |
|
to SEAICE_elasticParm |
| 281 |
|
- make lsr boundary conditions free slip (by default), changes result |
| 282 |
|
- add code for no slip boundary conditions for lsr |
| 283 |
|
- set minimum of zeta to zero (and not 4e8) (changes results) |
| 284 |
|
- add a cap on AREA after advecting AREA if seaice_growth is not called |
| 285 |
|
o change calculation of Visbeck K: |
| 286 |
|
- no longer depend on tapering scheme; instead, compute slope (limited |
| 287 |
|
by GM_maxSlope). this is equivalent to what was comuted before with |
| 288 |
|
clipping or linear tappering. |
| 289 |
|
- fix vertical averaging (wrong by 1/2 level) |
| 290 |
|
- leave the old version (but will not be maintained) within |
| 291 |
|
#ifdef OLD_VISBECK_CALC / #endif |
| 292 |
|
- update output of exp. ideal_2D_oce |
| 293 |
|
o change error catch in calc_r_star to improve vectorization |
| 294 |
|
o exf runoff and seaice: remove ALLOW_SEAICE from exf pkg files and |
| 295 |
|
add #define ALLOW_RUNOFF in SEAICE_OPTIONS.h (when not using exf). |
| 296 |
|
o adjoint: |
| 297 |
|
Re-organized adjoint checkpointing according to Matt Mazloff |
| 298 |
|
(but with modifs/completions/cleanups) |
| 299 |
|
Storing is now bundled into large arrays to optimized I/O |
| 300 |
|
(and second step in cleanup of the_main_loop) |
| 301 |
|
|
| 302 |
|
checkpoint59b |
| 303 |
|
o coupler (pkg/atm_ocn_coupler, pkg/ocn_compon_interf, pkg/atm2d): |
| 304 |
|
- export/import (between ocean & coupler) fields needed for ocean DIC. |
| 305 |
|
o pkg/seaice: |
| 306 |
|
- get rid of three more exchanges seaice_calc_viscosities (required |
| 307 |
|
different loop boundaries in seaice_lsr and seaice_ocean_stress) |
| 308 |
|
- bug fix in seaice_ocean_stress (update of lab_sea required) |
| 309 |
|
- reduce loop boundaries to necessary minimum also in seaice_evp |
| 310 |
|
- go back to the old way of computing deltaC/Z as the adjoint likes that |
| 311 |
|
better |
| 312 |
|
o Refresh of tutorial_global_oce_latlon (includes changing salinity-like |
| 313 |
|
passive tracer to an Age Tracer) + update output.txt |
| 314 |
|
o pkg/exf: |
| 315 |
|
- implement A-grid / C-grid selection for wind-stress input files. |
| 316 |
|
- clean-up exf_wind.F (remove us, use wspeed instead ; add wStress) |
| 317 |
|
for now, in exf_bulk_largeyeager04.F only : |
| 318 |
|
- change implementation for case where windspeed + 2. components wind-stress |
| 319 |
|
are read-in. AND use rhoConstFresh to convert evap. |
| 320 |
|
o pkg/seaice: |
| 321 |
|
- use correct EXCH_UV for wind-forcing (on A-grid). |
| 322 |
|
- change SEAICE_OPTIONS.h to limit the number of option combinations (regarding |
| 323 |
|
SEAICE_EXTERNAL_FORCING & SEAICE_EXTERNAL_FLUXES); add corresponding stops. |
| 324 |
|
o pkg/exf: |
| 325 |
|
- default EXF options are now set in EXF_OPTIONS.h (ifndef ALLOW_AUTODIFF_TAMC) |
| 326 |
|
EXF_INTERPOLATION: |
| 327 |
|
- merge global_with_exf/code version of exf_interp_read.F |
| 328 |
|
to the main code ; |
| 329 |
|
- Add new option: EXF_INTERP_USE_DYNALLOC to use Dynamical Allocation when |
| 330 |
|
reading the file ; Important: This options needs to be defined to recover |
| 331 |
|
previous code. |
| 332 |
|
otherwise, use fixed size array to read in (size=exf_interp_bufferSize). |
| 333 |
|
- no longer loose real*8 precision along the way when using exf_iprec=64. |
| 334 |
|
o pkg/seaice: rearrangement of common blocks (really needs more cleaning up) |
| 335 |
|
- change discretisation of evp-solver in order to avoid another exchange |
| 336 |
|
(changes lab_sea) and clean up a little |
| 337 |
|
- replace SQRT(MAX(deltaC,SEAICE_EPS)) by MAX(SQRT(deltaC),SEAICE_EPS) |
| 338 |
|
help the adjoint (this also changes the results slightly) |
| 339 |
|
- add a few "_d 0" where they had been missing in seaice_evp.F |
| 340 |
|
- cleaning up: remove unused seaice_calc_rhs.F |
| 341 |
|
o pkg/exf: some cleaning-up: |
| 342 |
|
- change various "constants" into runtime parameters |
| 343 |
|
- cleaned-up Large&Yeager04 routine which should eventually |
| 344 |
|
replace exf_bulkformulae.F (changed names of S/R and CPP) |
| 345 |
|
and merged various ALLOW_ATM_WIND options |
| 346 |
|
only used with thsice pkg (in thsice_get_exf.F): |
| 347 |
|
- implement fixed turbulent transfert Coeff over ice (as in Large&Yeager04) |
| 348 |
|
which are used when useStabilityFct_overIce=TRUE (= the default) |
| 349 |
|
- change default values of ice & snow emissivity and scale downward LW |
| 350 |
|
by ice & snow emissivity. |
| 351 |
|
o pkg/thsice: |
| 352 |
|
fix few little problems, in thsice_calc_thickn.F: |
| 353 |
|
- growth vertically (and not laterally) if iceFrac == iceMaskMax |
| 354 |
|
- melt only laterally if hIce < hThinIce (as the comments say) |
| 355 |
|
and in thsice_extend.F: |
| 356 |
|
- allow to form ice even when iceFrac == iceMaskMax (by increasing thickness) |
| 357 |
|
- start to form ice as soon as the minimum ice-volume is reachable. |
| 358 |
|
update output of test-exp: aim.5l_cs(thSI), global_ocean.cs32x15(thsice), |
| 359 |
|
and cpl_aim+ocn |
| 360 |
|
o pkg/kpp |
| 361 |
|
- move computation of surface related input fields to KPP into a new |
| 362 |
|
subroutine kpp_forcing_surf.F |
| 363 |
|
- remove wrong (within bi,bj loops) EXCH calls. |
| 364 |
|
- little cleaning (add argument myThid in last position, cvs header ...) |
| 365 |
|
- for now, fix conservation problem by exchanging KPPviscAz (may not |
| 366 |
|
be the best fix) |
| 367 |
|
o pkg/seaice |
| 368 |
|
- check for inconsistent evp parameter/cpp-flag combination |
| 369 |
|
- remove leftover errIO flat for obsolete name list error handling |
| 370 |
|
o OpenAD |
| 371 |
|
- changed verification/OpenAD to full baroclinic setup (including GM/Redi) |
| 372 |
|
|
| 373 |
|
checkpoint59a |
| 374 |
|
o pkg/seaice: some parameter clarifications and a little bit of clean up |
| 375 |
|
o pkg/thsice: rename run-time parameters: |
| 376 |
|
himin -> hIceMin |
| 377 |
|
himin0 -> hThinIce |
| 378 |
|
hihig -> hThickIce |
| 379 |
|
i0 -> i0swFrac |
| 380 |
|
transCoef -> bMeltCoef |
| 381 |
|
frac_energy -> fracMelting |
| 382 |
|
add new parameters: hNewIceMax, fracFreezing, dhSnowLin |
| 383 |
|
with default values (for now) that do not change the results. |
| 384 |
|
remove old version of thsice vars advection in pkg/seaice. |
| 385 |
|
o in FFIELDS.h: |
| 386 |
|
- replace #ifndef ALLOW_EXF by #ifndef EXCLUDE_FFIELDS_LOAD |
| 387 |
|
- make pLoad & sIceLoad always available (but still only used if |
| 388 |
|
ATMOSPHERIC_LOADING is #define). |
| 389 |
|
o pkg/kpp: replaced _KPP_RL with _RL |
| 390 |
|
o bug fixes for vertical diffusivity computations when both KPP and |
| 391 |
|
3D diffusivity arrays are used; pkg/kpp/kpp_calc_diff_s & _t.F |
| 392 |
|
are no longer updating the vertical diffusivity array |
| 393 |
|
(passed as argument) but are (re-) setting those arrays. |
| 394 |
|
o pkg/seaice: fix bug in evp solver, while doing that |
| 395 |
|
- change (improve?) discretization of stress computations for both |
| 396 |
|
cgrid-lsr and evp solver |
| 397 |
|
- add a new routine to compute strain rates |
| 398 |
|
- the above changes lab_sea results |
| 399 |
|
- add no slip conditions for evp solver (off by default), lsr-version |
| 400 |
|
may follow |
| 401 |
|
- fix exchange for shear at Z-points (does not change lab_sea) |
| 402 |
|
- retire SEAICEuseEVP, instead turn on EVP by setting SEAICE_deltaTevp |
| 403 |
|
(to force the user to pick a time step since there is not "safe" way |
| 404 |
|
of choosing it) |
| 405 |
|
- add principal stress diagnostics |
| 406 |
|
- rearrange fields for evp a little to avoid having to call a: too many |
| 407 |
|
exchanges and b: exchanges for stress trensor components which we do |
| 408 |
|
not have. |
| 409 |
|
- modify Hibler+Bryan (1987) stress coupling so that it reuses information |
| 410 |
|
of evp, complete rewrite for lsr case (latter is does not yet work |
| 411 |
|
in all cases) |
| 412 |
|
o pkg/kpp: add code to have mixing in shelf ice caverns |
| 413 |
|
- add myThid to all kpp routines (long overdue) |
| 414 |
|
|
| 415 |
|
checkpoint59 |
| 416 |
|
o pkg/exf: |
| 417 |
|
- fix wind-stress location: defined on A-grid (if ALLOW_ATM_WIND & |
| 418 |
|
ALLOW_BULKFORMULAE or USE_EXF_INTERPOLATION), otherwise, defined on C-grid |
| 419 |
|
- move exf header files from lower_case.h to UPPER_CASE.h ; |
| 420 |
|
add missing cvs Header & Name |
| 421 |
|
- add adjoint routines and flow dirs for newly used exch_uv_agrid routines |
| 422 |
|
- add namelist param. selectStressGridPosition, exf_monFreq |
| 423 |
|
- retire many _CLIM routines, and remove data.exf_clim |
| 424 |
|
+ params moved to data.exf |
| 425 |
|
+ climsst, climsss now handled by exf_set_gen, i.e. |
| 426 |
|
climss?period=0 refers to constant field, |
| 427 |
|
climss?period=-12 to monthly forcing |
| 428 |
|
- split up namelists in data.exf |
| 429 |
|
o pkg/seaice: |
| 430 |
|
- remove seaice_exch and seaice_exch_uv |
| 431 |
|
- remove superfluous exchange of theta |
| 432 |
|
- add myThid to seaice_budget_ocean/ice |
| 433 |
|
- add new interface for atmospheric wind forcing (C-grid only) |
| 434 |
|
+ new routine |
| 435 |
|
+ two new field (taux, tauy for stress over ice) |
| 436 |
|
+ removed one global field (DAIRN) for C-grid case only |
| 437 |
|
o pkg/thsise |
| 438 |
|
- 2nd set of modifs for thsice adjoint in conjunction with exf |
| 439 |
|
o enable runtime flag useEXF (useCAL is set to .T. if useEXF=.T.) |
| 440 |
|
|
| 441 |
|
checkpoint58y_post |
| 442 |
|
o Added capability for latitudinal dependence of Bryan and Lewis, 1979 |
| 443 |
|
vertical diffusivity, similar to that in MOM4; turned on using |
| 444 |
|
#define ALLOW_BL79_LAT_VARY in CPP_OPTIONS.h and specified using |
| 445 |
|
diffKrBL79*, diffKrBLEQ*, and BL79LatVary in runtime data file. |
| 446 |
|
o Added capability for 3D specification of background vertical diffusion |
| 447 |
|
coefficient. This is done by (i) #define ALLOW_3D_DIFFKR |
| 448 |
|
in CPP_OPTIONS.h and (ii) specifying file diffKrFile in runtime |
| 449 |
|
"data" file that contains the 3D vertical diffusivity coefficients. |
| 450 |
|
o ice dynamics (pkg/seaice) with thsice thermodynamics: |
| 451 |
|
- add code within pkg thsice to advect & diffuse sea-ice fields |
| 452 |
|
similar to (and will replace) what has been added in seaice_advdiff.F, |
| 453 |
|
but: - conserving Mass, Heat & Salt. |
| 454 |
|
- better when using non-linear advection scheme (not yet fully tested) |
| 455 |
|
- can also be used in atmospheric set-up (for now, only the diffusion). |
| 456 |
|
|
| 457 |
|
checkpoint58x_post |
| 458 |
|
o IO option for global-file compact format: |
| 459 |
|
- add options when generating topology (utils/exch2/matlab-topology-generator) |
| 460 |
|
- add I/O capability (pkg/mdsio). |
| 461 |
|
- adapt utils/matlab/rdmds.m to read this format. |
| 462 |
|
for now long-line format not yet supported by pkg/mdsio (& exch2). |
| 463 |
|
o shelfice: add a few diagnostics |
| 464 |
|
|
| 465 |
|
checkpoint58w_post |
| 466 |
|
o p-coord. non-hydrostatic using reference profile for w <-> omega conversion: |
| 467 |
|
rVel2wUnit & wUnit2rVel are computed from reference profile Tref,Sref |
| 468 |
|
(and replace horiVertRatio in NH code). |
| 469 |
|
Update output of exp.: tutorial_global_oce_in_p (useNHMTerms !) |
| 470 |
|
and tutorial_plume_on_slope (sensitive to truncation) |
| 471 |
|
o seaice: if ALLOW_ATM_WIND is undefined use wind stress |
| 472 |
|
directly to drive seaice model (C-grid only) |
| 473 |
|
o exf: when input wind-stress (#undef ALLOW_ATM_WIND): |
| 474 |
|
- reintroduce computation of wind from stress, |
| 475 |
|
- compute tau (in exf_bulkformulae.F) from windstress averaged to |
| 476 |
|
mass points to avoid tau = 0 |
| 477 |
|
- fix serious bug: (1/3) in Fortran is not the same as (1./3.) |
| 478 |
|
o rdmnc.m: make it work with "global" files created with gluemnc |
| 479 |
|
o rdmnc.m : some improvements in dealing with singleton dimension |
| 480 |
|
(tested on all testreport mnc output files). |
| 481 |
|
o genmake2: disable pkg/profiles if netcdf test fails. |
| 482 |
|
o cpl_aim+ocn exp.: use consistent rhoConstFresh in Atm & Ocn; update output. |
| 483 |
|
o move call to cal_readparms up to make calendar parameters/variable available |
| 484 |
|
to all packages |
| 485 |
|
|
| 486 |
|
checkpoint58v_post |
| 487 |
|
o change EOS (from POLY3 to JMD95P) in global_ocean.90x45x15 to get |
| 488 |
|
useDynP_inEos_Zc tested. |
| 489 |
|
o pkg/exf: changes to properly interpolate/mask/scale initial fields |
| 490 |
|
o utils/matlab/cs_grid/read_cs: routines to speed up reading of CS510 fields |
| 491 |
|
and portions thereof. See read_cs.txt for description and examples. |
| 492 |
|
o utils/matlab/cs_grid/bk_line: to compute transport through passages, |
| 493 |
|
add a script (grt_circ_bkl.m) to generate broken-line between 2 points, |
| 494 |
|
following the great-circle arc between those 2 points. |
| 495 |
|
o trap un-initialized variable with pathscale compiler on weddell.mit.edu |
| 496 |
|
(thanks to Constantinos): fix few problems and get (almost) all exp to pass. |
| 497 |
|
o 2nd-Order Moment Advection Scheme (Prather, 1986): first check-in |
| 498 |
|
- enable by setting #define GAD_ALLOW_SOM_ADVECT (in GAD_OPTIONS.h) |
| 499 |
|
- used without limiter (AdvScheme=80) or with Prather limiter (AdvScheme=81) |
| 500 |
|
- still needs work (not working with some options ; efficiency to improve) |
| 501 |
|
and serious testing. |
| 502 |
|
- use this scheme for temperature & salinity in 2 advection test exp.: |
| 503 |
|
advect_xy & advect_xz, respectively. |
| 504 |
|
|
| 505 |
|
checkpoint58u_post |
| 506 |
|
o new test-exp: fizhi-cs-32x32x40 (40 levels) to replace the 10 levels. |
| 507 |
|
o move call to INI_FORCING from PACKAGES_INIT_VARIABLES to INITIALISE_VARIA. |
| 508 |
|
o testreport: add option "-skipdir" to skip some test. |
| 509 |
|
o exf: when input wind-stress (#undef ALLOW_ATM_WIND), by-pass turbulent |
| 510 |
|
momentum calculation. |
| 511 |
|
o gad_advection: fix vertAdvecScheme (if different from advectionScheme) |
| 512 |
|
o some cleaning: usePickupBeforeC35 no longer supported ; remove this option. |
| 513 |
|
remove checkpoint.F and the_correction_step.F (no longer used); |
| 514 |
|
do the k loop inside CYCLE_TRACER (supposed to be more efficient). |
| 515 |
|
o add option (linFSConserveTr) to correct for tracer source/sink due to |
| 516 |
|
Linear Free surface |
| 517 |
|
o pkg/seaice: fix a bug in the flooding algorithm: turn off the snow machine |
| 518 |
|
o pkg/thsice: fix reading mnc-pickups |
| 519 |
|
|
| 520 |
|
checkpoint58t_post |
| 521 |
|
o pkg/diagnostics: fix multi-threaded output (when singleCpuIO=F) |
| 522 |
|
o pkg/mdsio: |
| 523 |
|
- clean-up mdsio_readfield.F & mdsio_writefield_new.F and |
| 524 |
|
move to new files: mdsio_read_field.F (S/R MDS_READ_FIELD) & |
| 525 |
|
mdsio_write_field.F (S/R MDS_WRITE_FIELD); |
| 526 |
|
- fix multi-threaded singleCpuIO option in MDS_WRITE_FIELD |
| 527 |
|
- collect old S/R in one file: mdsio_rw_field.F (now just a call to |
| 528 |
|
either MDS_READ_FIELD or MDS_WRITE_FIELD ) |
| 529 |
|
- new S/R (to replace MDSWRITEMETA), which allows to write more |
| 530 |
|
informations (variable names, time ...) to meta files. |
| 531 |
|
- modify rdmds.m to give back the meta file content. |
| 532 |
|
o pkg/diagnostics: change vertical interpolation to be safer, and more |
| 533 |
|
flexible (define p-levels to interpolate to in data.diagnostics); |
| 534 |
|
add argument to S/R DIAGNOSTICS_GET_POINTERS to catch the right |
| 535 |
|
diagnostic pointer. |
| 536 |
|
o pkg/seaice: more cleaning up of seaice_growth, added many comments |
| 537 |
|
o pkg/exf: put runoff0 and runoff1 into the appropriate common block |
| 538 |
|
o fix multi-category seaice: |
| 539 |
|
- change cpp flag SEAICE_MULTILEVEL to more meaningful name: |
| 540 |
|
SEAICE_MULTICATEGORY |
| 541 |
|
- fix short wave heat flux |
| 542 |
|
o pkg/seaice: change default (SEAICE_OPTIONS.h): use C-grid dynamics |
| 543 |
|
and allow to use EVP solver. Change forward lab_sea: test both EVP |
| 544 |
|
solver and LSR solver, and use C-grid dynamics (like lab_sea adjoint) |
| 545 |
|
o Initial check-in of lab_sea adjoint |
| 546 |
|
(very similar to natl_box_adjoint/code_seaice) |
| 547 |
|
* used C-grid and EVP solver |
| 548 |
|
* used KPP, GM/Redi |
| 549 |
|
* uses inAdExact=.TRUE. |
| 550 |
|
* gradient checks fail for both ADM and TLM |
| 551 |
|
due to sensitive snow melt code in seaice_grwoth (look for "JZ") |
| 552 |
|
f.d. gradients actually seem more problematic than ADM, TLM gradients; |
| 553 |
|
issue is related to forward mismatch between g77 an ifort |
| 554 |
|
o pkg/seaice: overhaul of thermodynamics |
| 555 |
|
- growth.F and groatb.F are replaced by new routine seaice_growth.F |
| 556 |
|
- budget.F is replaced by two new routines seaice_budget_ocean/ice.F |
| 557 |
|
- move a few global fields out of SEAICE.h into seaice_growth.F and |
| 558 |
|
make them 2D (FICE/QNETO/ ...) |
| 559 |
|
- remove FO (it is the same as QNETO) |
| 560 |
|
- introduce a few local fields to avoid modifying external fields such |
| 561 |
|
as atemp, etc. |
| 562 |
|
|
| 563 |
|
checkpoint58s_post |
| 564 |
|
o pkg/exf: moved exf_init_runoff.F to exf_init.F and exf_set_gen.F |
| 565 |
|
changed exf_set_gen.F so that |
| 566 |
|
genperiod=0 means input file is one time-constant field and |
| 567 |
|
genperiod=-12 means input file contains 12 monthly means |
| 568 |
|
o CG2D: use pre-computed solver main-diagonal (stored in common block); |
| 569 |
|
this affects truncation error ; generate new output file for exp. which |
| 570 |
|
fails: exp4(12d), fizhi-cs-aqualev20(12d), front_relax(10d), |
| 571 |
|
global_ocean.90x40x15(10d), global_ocean.cs32x15(10d).thsice(11d).viscA4(10d), |
| 572 |
|
ideal_2D_oce(10d), internal_wave(09d), isomip.htd(11d), matrix_example(07d), |
| 573 |
|
MLAdjust(4x11d,12d), natl_box(11d), rotating_tank(12d), |
| 574 |
|
tutorial_global_oce_in_p(10d), tutorial_plume_on_slope(11d), |
| 575 |
|
vermix(12d).ggl90(12d).my82(11d).opps(12d).pp81(11d) |
| 576 |
|
o start implementation of deep-atmosphere and anelastic formulation |
| 577 |
|
o verification: remove 2nd copy of input files and use script "prepare_run" |
| 578 |
|
to make a symbolic link to the 1rst copy (reduce downloaded size by ~81.M) |
| 579 |
|
o mom_common/vecinv/fluxform: fix a few initialisation isssues |
| 580 |
|
o profiles: fix for multithreaded case |
| 581 |
|
|
| 582 |
|
o diagnostics: rename few diags: |
| 583 |
|
s/'PRESSURE'/'RCENTER '/g |
| 584 |
|
s/'TICE '/'oceFreez'/g |
| 585 |
|
s/'TAUX '/'oceTAUX '/g |
| 586 |
|
s/'TAUY '/'oceTAUY '/g |
| 587 |
|
s/'SWFLUX '/'oceQsw '/g |
| 588 |
|
s/DIFx/DFxE/g |
| 589 |
|
s/DIFy/DFyE/g |
| 590 |
|
and add few ocean-forcing diagnostics: |
| 591 |
|
atmPload, sIceLoad, oceQnet, oceFWflx, oceSflux, surForcT & surForcS |
| 592 |
|
o modifications to pkg/seaice/growth.F and budget.F, which change results of |
| 593 |
|
lab_sea experiment: HSNOW was sometimes treated as effective and sometimes |
| 594 |
|
as actual snow thickness. It now refers everywhere to effective snow |
| 595 |
|
thickness, meaning that for non-zero AREA, actual thickness is HEFF/AREA. |
| 596 |
|
|
| 597 |
|
checkpoint58r_post |
| 598 |
|
o modifications to pkg/seaice/growth.F, which change results of |
| 599 |
|
lab_sea experiment: fixes pertain to melting snow over open water, to |
| 600 |
|
masking EVAP under sea ice, and to using the correct AREA variable for |
| 601 |
|
computations of EVAP, PRECIP, HSNOW, and GHEFF |
| 602 |
|
o add ability to read bathy, salt, and theta using MNC (off by def) |
| 603 |
|
o add flooding algorithm and advection of HSNOW for pkg/seaice; |
| 604 |
|
both are turned off by default and do no change any results |
| 605 |
|
o seaice advection with pkg/thsice: a step toward the use of non-linear |
| 606 |
|
advection scheme, but #ifdef or commented out for now (requires more EXCH). |
| 607 |
|
o use standard version of PTRACERS_INI_VARIA in tutorial_tracer_adjsens |
| 608 |
|
(identical results) and the standard version of EXTERNAL_FIELDS_LOAD |
| 609 |
|
in natl_box (affects results @ truncation level: update output.txt) |
| 610 |
|
o multi-threading and IO: |
| 611 |
|
- replace some call to MDSIO S/R by the corresponding READ/WRITE_FLD S/R. |
| 612 |
|
- remove most of BEGIN_MASTER/ END_MASTER around READ/WRITE_FLD S/R calls |
| 613 |
|
(needed to work with SingleCpuIO): tested in all verif. exp. |
| 614 |
|
o GAD: use simpler DST3 formulation as default (old version left within #ifdef) |
| 615 |
|
affects the results (but none of the verification test uses this scheme). |
| 616 |
|
o Adding some pkg/diagnostics capability to pkg/seaice |
| 617 |
|
(will certainly be subject to changes) |
| 618 |
|
o ctrl: adding new control variables: |
| 619 |
|
lwflux, lwdown, evap, snowprecip, apressure, runoff |
| 620 |
|
|
| 621 |
|
checkpoint58q_post |
| 622 |
|
o added CPP_EEOPTIONS.h flag DISABLE_MPI_READY_TO_RECEIVE. Speeds up |
| 623 |
|
1/6-deg Southern Ocean configuration by 8% on IBM Datastar and |
| 624 |
|
high_res_cube configuration by 4% on Columbia. |
| 625 |
|
o clean-up multi-threaded problems (reported by debugger tcheck on ACES); |
| 626 |
|
add (in global_with_exf/code) a version of EXF_INTERP_READ without |
| 627 |
|
dynamical allocation (seems to work in multi-threaded). |
| 628 |
|
o new function "MASTER_CPU_IO" (=T if master thread & master CPU, if using |
| 629 |
|
single CPU io) so that TAF does not have to see EESUPPORT.h |
| 630 |
|
o pkg/seaice: implement sea-ice loading (when using RealFreshWaterFlux) |
| 631 |
|
|
| 632 |
|
checkpoint58p_post |
| 633 |
|
o obcs: stop if obcs is used with useCDscheme = .true. |
| 634 |
|
o shelfice: |
| 635 |
|
- fix a sign error so that no slip at shelfice interface works |
| 636 |
|
- remove stop for combination non-hydrostatic code and shelfice. That does |
| 637 |
|
not mean, that the results are correct, but at least they are numerically |
| 638 |
|
stable |
| 639 |
|
o diagnoctics: modify UVELPHI and VVELPHI to include hfac (i.e. mass-weighted) |
| 640 |
|
o added adjoint exch routined for all exch*3d* routines |
| 641 |
|
and updated flow directives |
| 642 |
|
|
| 643 |
|
checkpoint58o_post |
| 644 |
|
o replace calls to EXCH_Z & EXCH_UV_AGRID: use the new _3D_ version ; |
| 645 |
|
remove old subroutines (_XY_ & _XYZ_); update the adjoint version. |
| 646 |
|
o change controling S/R for writing pickup file (new S/R do_write_pickup) |
| 647 |
|
and clean-up reading/writing of pickup files. |
| 648 |
|
o fix local version of read/write pickup (NH part) in rotating_tank/code |
| 649 |
|
o simplify EXCH interface: |
| 650 |
|
- change _XYZ_ interface to _3D_ subroutine (with 3rd dim in argument list) |
| 651 |
|
- not often used EXCH S/R (exch_z, exch_uv_agrid): keep only the _3D_ version |
| 652 |
|
o added the regrid package |
| 653 |
|
o shelfice: |
| 654 |
|
- add a simple boundary layer scheme to reduce noise |
| 655 |
|
- fix the indexing in shelfice_u/v_drag so that there will be actually drag |
| 656 |
|
|
| 657 |
|
checkpoint58n_post |
| 658 |
|
o fix globalArea multi-threaded calculation: need to apply GLOBAL_SUM to |
| 659 |
|
local variable (not in common block). |
| 660 |
|
o lot of small changes for multi-threaded. Most tests (using OMP & ifort) pass. |
| 661 |
|
- still problems with pkgs: mnc, exp2, dic, cal, exf (and probably more); |
| 662 |
|
- still BEGIN_MASTER/END_MASTER to remove around READ/WRITE_FLD S/R calls |
| 663 |
|
to work with SingleCpuIO. |
| 664 |
|
o add "_d 0" to real constant of pkg/cfc subroutines ; |
| 665 |
|
update exp. cfc_exemple & tutorial_cfc_offline output files. |
| 666 |
|
o multi-threading and IO: |
| 667 |
|
- all threads call READ_FLD S/R (needed if using SingleCpuIO): |
| 668 |
|
(no BEGIN_MASTER/ END_MASTER around the call, but inside MDSIO S/R. |
| 669 |
|
- barrier before and after reading. |
| 670 |
|
- stop if other than master is calling MDS_WRITELOCAL (if #undef IO_THREAD_SAFE) |
| 671 |
|
- avoid using MDS_WRITELOCAL for LAND pkg output. |
| 672 |
|
- new S/R AIM_WRITE_PHYS (replaces AIM_WRITE_LOCAL) to write AIM physics |
| 673 |
|
common-block variables ; Allows multi-threading with master-thread IO. |
| 674 |
|
o change default MAX_NO_THREADS from 32 to 4 ; |
| 675 |
|
and stop cleanly when MAX_NO_THREADS is too small. |
| 676 |
|
o add S/R BAR_CHECK to check multi-threaded barrier synchronization |
| 677 |
|
|
| 678 |
|
checkpoint58m_post |
| 679 |
|
o add a Non-Hydroatatic test (with 3-D Coriolis, NHMTerms, biharmonic Visc. |
| 680 |
|
and side-drag) on CS-grid : global_ocean.cs32x15.viscA4 |
| 681 |
|
o make "tutorial_global_oce_latlon" from standard "global_ocean.90x40x15" exp. |
| 682 |
|
keep global_ocean.90x40x15 (for AD testing) with former secondary test |
| 683 |
|
(".qshyd") as the main test (mv output.qshyd.txt to output.txt) |
| 684 |
|
o CVS modules: update MITgcm_verif_basic; remove MITgcm_verif_ocean & _verif_atmos; |
| 685 |
|
add MITgcm_tutorials (= code + all the tutorials) |
| 686 |
|
o ecco, option to compute cost for total ssh (mean+anom) |
| 687 |
|
o consistent with addition of ptracer and ssh in pkg/profiles |
| 688 |
|
o profiles: adding ptracer and ssh |
| 689 |
|
o testreport: change multi-test output-file name |
| 690 |
|
(from output.txt.{name} to output.{name}.txt) |
| 691 |
|
o profiles: now ok for mutli-tiles case |
| 692 |
|
o seaice: add 4 parameters for different advection schemes for area, |
| 693 |
|
(effective) seaice thickness, enthalphy, and snow height. Their default |
| 694 |
|
is the standard parameter SEAICEadvScheme |
| 695 |
|
o calc_gw: |
| 696 |
|
- add cosFacU in zonal viscous flux (harmonic.visc.). |
| 697 |
|
- put back side-drag (call new S/R MOM_W_SIDEDRAG) and output.txt. |
| 698 |
|
of tutorial_plume_on_slope. |
| 699 |
|
o obcs_calc.F : fix index Pb in OBSeta & OBNeta (Thanks to Gianmaria). |
| 700 |
|
o calc_gw: true flux-form, account for horizontal grid spacing. |
| 701 |
|
update rotating_tank results, but not plume_on_slope (affected at |
| 702 |
|
truncation level, 11 digits). |
| 703 |
|
|
| 704 |
|
checkpoint58l_post |
| 705 |
|
o calc_gw: |
| 706 |
|
- take bi,bj loops outside calc_gw to fix Pb with local array KappaRU,V |
| 707 |
|
- remove side-drag for now (need to fix it); update plume_on_slope results. |
| 708 |
|
- fix for partial-cell & non-uniform dz; update plume_on_slope results. |
| 709 |
|
o commit code to make SST/SSS weights spatially variable |
| 710 |
|
(based on either variable in-situ or variable initial T/S weights) |
| 711 |
|
o pkg/ecco: |
| 712 |
|
* commit code to relax deviations of xx_theta, xx_salt to 5*sigma, |
| 713 |
|
now based on horizontally varying weights wthetaLev, wsaltLev |
| 714 |
|
* cost_averagesflags now returns year indices in addition to day, month |
| 715 |
|
* sflux balance is performed on annual basis |
| 716 |
|
(sflxumm, sfluxmm2, bal_sfluxmm) |
| 717 |
|
* for SSH anomaly, separate more cleanly contrib from T/P, ERS, GFO, |
| 718 |
|
including separate counting and multipliers |
| 719 |
|
o pkg/rbcs |
| 720 |
|
* add all necessary infrastructure for pkg/rbcs levN adjoint checkpointing |
| 721 |
|
|
| 722 |
|
checkpoint58k_post |
| 723 |
|
o testreport: |
| 724 |
|
- always build in dir. "build" (if not there, mkdir build instead of building |
| 725 |
|
& running in input) |
| 726 |
|
- run in dir run (if it exists), in build otherwise. |
| 727 |
|
- call prepare_run (if input/prepare_run exists) |
| 728 |
|
- run multi-threaded test (with new option: "-mth") if file input/eedata.mth exists. |
| 729 |
|
o pkg/exf modifications to interpolation and rotation routines for more |
| 730 |
|
reasonable treatment of North Pole singularity: for tracers North Pole |
| 731 |
|
value is set to northernmost zonal-mean value, for zonal velocity it is |
| 732 |
|
set to zero, and for meridional velocity it is set to northernmost value. |
| 733 |
|
o pkg/exf/exf_check_range.F |
| 734 |
|
- add tile index to diagnostics and move stop statement to the very |
| 735 |
|
end of the routine. |
| 736 |
|
o pkg/diagnostics: (diagnostics_main_init.F) |
| 737 |
|
define title of isomorphic variables according to the current config. |
| 738 |
|
o pkg/thsice with pkg/seaice dynamics: |
| 739 |
|
- fix domain of computation (interior only, required for exf) and do exchanges |
| 740 |
|
- seaice-dynamics forcing: add atmospheric and seaice loading to SSH gradient |
| 741 |
|
o towards a standard way of dealing with multi-threading in MONITOR |
| 742 |
|
and ${PKG}_MONITOR (all except ptracers_monitor) subroutines. |
| 743 |
|
o Pass variable viscosities (vertical and horizontal, e.g., KPP or Leith) |
| 744 |
|
to W momentum equation in nonhydrostatic and quasihydrostatic runs. |
| 745 |
|
o make exf_monitor & seaice_monitor independant of the main (dynamics) monitor. |
| 746 |
|
o pkg/seaice: fix SEAICEuseEVPpickup parameter (put it in a commom block) |
| 747 |
|
o generic_advdiff: DST advection S/R : use local copy of velocity to compute CFL |
| 748 |
|
(problems ? with gradient check in bottom_ctrl_5x5 adjoint test) |
| 749 |
|
o tracer advection: |
| 750 |
|
- clean-up and simplify calc_common_factors.F |
| 751 |
|
- make a local copy of velocity and pass it (as u,v,r_Trans) to DST tracer |
| 752 |
|
advection subroutine (but still not used within DST advection S/R) |
| 753 |
|
o rename pkg aim_ocn_coupler to atm_ocn_coupler (later on, will be used without aim) |
| 754 |
|
|
| 755 |
|
checkpoint58j_post |
| 756 |
|
o new driver S/R: LOAD_FIELDS_DRIVER to load external forcing fields |
| 757 |
|
from file (collects calls previously in FORWARD_STEP) |
| 758 |
|
o move call to SEAICE_MODEL from FORWARD_STEP to DO_OCEANIC_PHYS |
| 759 |
|
o adjoint store dir. adjusted accordingly |
| 760 |
|
o genmake2 |
| 761 |
|
replace target "ad_taf" by $(EXE_AD) ; add $(EXE_AD) to the make CLEAN list. |
| 762 |
|
|
| 763 |
|
checkpoint58i_post |
| 764 |
|
o pkg/seaice: add parameter that allows to scale/turn off effect of seaice |
| 765 |
|
on wind stress (SEAICEstressFactor defaults to 1.) |
| 766 |
|
o Total number of Timers is finite (<=40): comment out 2 non-essential one |
| 767 |
|
in the_main_loop.F to avoid Pb (e.g., when running fizhi test) |
| 768 |
|
o vector_invariant: fix highOrderVorticity(=4.th.Order) advection |
| 769 |
|
on CS-grid: no longer loosing mass. |
| 770 |
|
o exf & curvilinear-grid: no longer modify longitude xC & xG. |
| 771 |
|
o pkg/ggl90: fix sloppy output and fix a bug |
| 772 |
|
o pkg/seaice: added SEAICEuseEVPpickup parameter |
| 773 |
|
- Set to false in order to start EVP solver with |
| 774 |
|
non-EVP pickup files when using SEAICEuseEVP |
| 775 |
|
- fix sign error in diffusion in seaice_calc_rhs |
| 776 |
|
|
| 777 |
|
checkpoint58h_post |
| 778 |
|
* Modifications for bottom topography control |
| 779 |
|
o replace hFacC by _hFacC at various places |
| 780 |
|
o replace ALLOW_HFACC_CONTROL by ALLOW_DEPTH_CONTROL |
| 781 |
|
o add non-self-adjoint cg2d_nsa |
| 782 |
|
o update autodiff support routines |
| 783 |
|
o re-initialise hfac after ctrl_depth_ini |
| 784 |
|
o works for 5x5 box, doesnt work for global_ocean.90x40x15 |
| 785 |
|
* Adding verification for 5x5 box (4-layer) bottom topography control |
| 786 |
|
|
| 787 |
|
checkpoint58g_post |
| 788 |
|
o pkg/diagnostics: implement "periodic averaging diagnostics" (e.g., |
| 789 |
|
used for mean seasonal cycle, mean diurnal cycle); add an example |
| 790 |
|
in verification/global_ocean.cs32x15/input.thsice/data.diagnostics |
| 791 |
|
o pkg/ggl90: |
| 792 |
|
- add parameter (minimum surface kinetic energy) |
| 793 |
|
- fix bug (avoiding division by zero) |
| 794 |
|
o couple pkg/thsice to pkg/seaice: |
| 795 |
|
- modify advection in seaice to accomodate new scalar fields to be advected |
| 796 |
|
- only muliDimAdection scheme work with seaice/thsice |
| 797 |
|
- mapping of thsice-variables to seaice-variables, back and forth |
| 798 |
|
- does not break the verification experiments, but does not give the |
| 799 |
|
desired results either |
| 800 |
|
o pkg/seaice |
| 801 |
|
- make (default) second order advection a bit less confusing? |
| 802 |
|
|
| 803 |
|
checkpoint58f_post |
| 804 |
|
o couple pkg/thsice and pkg/exf (as a preparation for coupling pkg/thsice |
| 805 |
|
to pkg/seaice): |
| 806 |
|
- new routines thsice_map_exf and thsice_get_exf provide the interface |
| 807 |
|
- add an additional formal parameter to thsice_solve4temp |
| 808 |
|
o pkg/exf: |
| 809 |
|
- add new fields wspeed, snowprecip (to be able to couple to thsice) |
| 810 |
|
- correct Stefan-Boltzmann constant |
| 811 |
|
- new parameter for longwave surface emittance |
| 812 |
|
- separate some stuff from exf_bulkformulae into new routines |
| 813 |
|
exf_radiation, exf_wind |
| 814 |
|
- add new parameters and constants: longwave emissivity for ocean, ice |
| 815 |
|
and snow, evaporation parameters over ice |
| 816 |
|
- decouple wind/stress computation from ALLOW_BULKFORMULA: always compute |
| 817 |
|
either wind from stress or stress from wind |
| 818 |
|
o pkg/thSIce: |
| 819 |
|
- split thsice_step_fwd.F in 2 S/R: thsice_step_temp.F & thsice_step_fwd.F |
| 820 |
|
- put i,j loops inside S/R: THSICE_ALBEDO, THSICE_SOLVE4TEMP, THSICE_EXTEND |
| 821 |
|
and THSICE_CALC_THICKN |
| 822 |
|
- for now, call to THSICE_GET_BULKF remains inside i,j loops. |
| 823 |
|
- add CPP option: ALLOW_DBUG_THSICE and header file THSICE_DEBUG.h |
| 824 |
|
to make debugging easier. |
| 825 |
|
- affects results (@ truncation level) of global_ocean.cs32x15.thsice: update output |
| 826 |
|
o pkg/bulk_force: |
| 827 |
|
- clean-up comments and parameters ; |
| 828 |
|
- add new Bulk-Formulae from Large and Yeager, 2004, NCAR/TN-460+STR ; |
| 829 |
|
o fix bug in aim+thsice albedo: snow & ice thickness arguments were switched; |
| 830 |
|
generate new output for test-experiment: aim.5l_cs.thSI |
| 831 |
|
o results_ad : rename "output.txt_adm" to "output_adm.txt" and change |
| 832 |
|
testreport accordingly |
| 833 |
|
|
| 834 |
|
checkpoint58e_post |
| 835 |
|
o SEAICE_CGRID adjoint done |
| 836 |
|
o R_STAR adjoint implemented. |
| 837 |
|
* Seems to just work (based on global_ocean.90x40x15/code_ad_nlfs/ ) |
| 838 |
|
* need to sort out init. of h0facc, etc. |
| 839 |
|
o Make pkg/profile fully independent of ecco,cost, etc. stuff |
| 840 |
|
to be able to use it in pure forward. |
| 841 |
|
|
| 842 |
|
checkpoint58d_post |
| 843 |
|
o upgrade simple test-experiment to tutorial example: |
| 844 |
|
step.1: duplicate the experiment and (step.2) will remove the old copy. |
| 845 |
|
tutorial_barotropic_gyre <- copy of exp0 (R1:barotropic_gyre_in_a_box) |
| 846 |
|
tutorial_baroclinic_gyre <- copy of exp1 (R1:baroclinic_gyre_on_a_sphere) |
| 847 |
|
tutorial_global_oce_latlon <- empty for now (R1:global_ocean_circulation) |
| 848 |
|
tutorial_global_oce_biogeo <- copy of dic_example |
| 849 |
|
tutorial_deep_convection <- almost like exp5 (R1:nonhydrostatic_deep_convection) |
| 850 |
|
tutorial_plume_on_slope <- copy of plume_on_slope |
| 851 |
|
tutorial_tracer_adjsens <- copy of carbon (R1:tracer_adjoint_sensitivity) |
| 852 |
|
tutorial_global_oce_optim <- empty for now (David ?) |
| 853 |
|
tutorial_global_oce_in_p <- copy of global_ocean_pressure |
| 854 |
|
some tutorials (R1) were already checked-in under tutorial_examples in release1_branch |
| 855 |
|
o correct a sign problem in cost_scat.F |
| 856 |
|
o obcs and ptracers: fix boundary conditions for advections schemes |
| 857 |
|
with larger stencil |
| 858 |
|
o thsice adjoint: start |
| 859 |
|
o mom_vecinv: add ISOTROPIC_COS_SCALING flags to mom_vi_hdissip for |
| 860 |
|
completeness |
| 861 |
|
o mom_fluxform: fixing the mutual use of ISOTROPIC_COS_SCALING |
| 862 |
|
and COSINEMETH_III, add comments in default CPP_OPTIONS.h |
| 863 |
|
o ptracers adjoint: |
| 864 |
|
* avoid extensive recomputatations |
| 865 |
|
* fix missing re-init. of gptr (missed by TAF) |
| 866 |
|
o obcs: add a flag (OBCSprintDiags, defaults is true) that allows |
| 867 |
|
me to turn off the excessive output to STDOUT that this package produces |
| 868 |
|
o move NH metric terms & 3.D Coriolis S/R to pkg/mom_common |
| 869 |
|
and add those terms in Vector-Invariant formulation. |
| 870 |
|
o in ctrl pkg, if ALLOW_CAL, use monthly mean controls |
| 871 |
|
if the control period (xx_hfluxperiod etc) is 0 |
| 872 |
|
o in profiles pkg, clean routines and fix details |
| 873 |
|
o in ecco pkg, reading ssh data: |
| 874 |
|
fix problem in case the model does not start at iter0=0 |
| 875 |
|
o fix mnc-pickup/restart for ptracers |
| 876 |
|
o new package prifiles: |
| 877 |
|
code to compute profile-based cost by Gael Forget |
| 878 |
|
(modifs in ecco, ctrl, autodiff) |
| 879 |
|
o Benign bug fix in initialization (spotted by M. Mazloff) of |
| 880 |
|
ctrl_set_globfld_xz.F ctrl_set_globfld_yz.F |
| 881 |
|
|
| 882 |
|
checkpoint58c_post |
| 883 |
|
o adjoint: finish NLFS adjoint and provide reference output in |
| 884 |
|
verification/global_ocean.90x40x15/results_ad_nlfs |
| 885 |
|
o seaice: add an EVP solver following Hunke and Dukowicz (1997) and the |
| 886 |
|
documentation of CICE. Turn on by defining SEAICE_ALLOW_EVP in |
| 887 |
|
SEAICE_OPTIONS.h and SEAICEuseEVP=.true. in data.seaice. Works only |
| 888 |
|
with SEAICE_CGRID defined. |
| 889 |
|
o move calendarDumps from "data" to "data.cal" and clean-up the code |
| 890 |
|
with a simple call to pkg/cal S/R: CAL_TIME2WRITE |
| 891 |
|
o add useEXF & useCAL flags (for now, set in hard-coded way) |
| 892 |
|
o add S/R to compute NH-metrics terms & Coriolis f' in vertical momentum |
| 893 |
|
(were missing in NH mode, and wrong in quasihydrostatic mode). |
| 894 |
|
waiting for Chris updated version of calc_gw to add those CALLs. |
| 895 |
|
o fix bug in quasihydrostatic S/R ; |
| 896 |
|
add a test for this option: global_ocean.90x40x15.qshyd |
| 897 |
|
o new S/R "SET_PARMS": set parameters that might depend on the use of some pkgs. |
| 898 |
|
(called from INITIALISE_FIXED, after INI_PARMS & PACKAGES_READPARAMS) |
| 899 |
|
o add on/off flag useOffLine for package OFFLINE |
| 900 |
|
o seaice: |
| 901 |
|
- modify advection so that it works also on the C-grid |
| 902 |
|
- extend loop ranges in seaice_lsr and seaice_dynsolver; fixes |
| 903 |
|
problem in multi-tile runs with C-grid |
| 904 |
|
- add flags for clipping ice velocities and/or masking solver forcing |
| 905 |
|
- fix drag (ocean on ice) formulation and a bug that caused noise in the |
| 906 |
|
C-grid solver |
| 907 |
|
- added a few comments to seaice_diffusion.F |
| 908 |
|
- separate C-grid and B-grid versions more cleanly (UVM and seaiceMaskU/V |
| 909 |
|
are now exclusive) |
| 910 |
|
- add a new ocean-ice stress coupling method (Hibler and Bryan, 1987) which |
| 911 |
|
required re-ordering the code a little: |
| 912 |
|
+ make DAIRN global variable (defined in SEAICE) |
| 913 |
|
+ move computation of the viscosities eta and zeta into a new separate |
| 914 |
|
routine (because I need to recompute them in seaice_ocean_stress.F) |
| 915 |
|
|
| 916 |
|
checkpoint58b_post |
| 917 |
|
o AIM+thSIce: fix sign of Short-Wave through the Ice ; |
| 918 |
|
update output.txt of exp. aim.5l_cs.thSI |
| 919 |
|
o various mnc cleanups and improvements: |
| 920 |
|
+ shrink lookup tables by factor of ~4 |
| 921 |
|
+ better error reporting when running out of lookup space |
| 922 |
|
+ able to handle longer path/file names (up to 500 chars) |
| 923 |
|
o adjoint: |
| 924 |
|
- Another overhaul of store dirs. for NLFS to eliminate "hidden" recomputations. |
| 925 |
|
- TBD: "hidden" mom_vecinv recomp. in dynamics |
| 926 |
|
o change forcing_In_AB to affects both T,S forcing and Momentum forcing |
| 927 |
|
(allow to differentiate between forcing components using new integer flags: |
| 928 |
|
momForcingOutAB=1/0 & tracForcingOutAB=1/0) |
| 929 |
|
and add new flag to put Dissipation tendency out of Adams-Bashforth. |
| 930 |
|
o ecco |
| 931 |
|
- enable trend removal from SSH anomaly obs. |
| 932 |
|
o adjoint |
| 933 |
|
- a fix for PmEpR when #undef EXACT_CONSERV |
| 934 |
|
- fix of "hidden" recomp. in thermodynamics (no TAF warnings) |
| 935 |
|
- try to fix "hidden" recomp. in forward_step for NLFS |
| 936 |
|
(NLFS seems broken sometimes after I checked it in) |
| 937 |
|
o seaice: |
| 938 |
|
- add c-grid version of the dynamic solver: |
| 939 |
|
+ three new routines that are the c-grid substitute lsr, dynsolver |
| 940 |
|
and ostres |
| 941 |
|
+ put a few fields that were local to dynsolver into global common |
| 942 |
|
blocks, so that I can move the computation of stresses etc into |
| 943 |
|
seaice_lsr (saves coding but may break the adjoint). |
| 944 |
|
- replace more hardwired parameters by runtime parameters |
| 945 |
|
- add ice masks that mask the rhs of the implicit solvers where there |
| 946 |
|
is no ice (commented out in seaice_dynsolver, because i am not sure |
| 947 |
|
if this works properly), eventually this should replace the clipping |
| 948 |
|
of ice velocities in seaice_dynsolver to +/-40cm/s. |
| 949 |
|
o remove the BUILD_INFO.h include from CPP_EEOPTIONS.h and explicitly |
| 950 |
|
include it only where its needed |
| 951 |
|
o move balancing of fluxes before the call of external_forcing_surf |
| 952 |
|
o seaice: |
| 953 |
|
- correct units of turning angles (now they are really in degrees) |
| 954 |
|
- move computation of GWATX/Y out of main routine into dynsolver |
| 955 |
|
- initialize GWATX/Y in seaice_init |
| 956 |
|
o Apply mask on Fresh-Water flux (needed for SSH forcing). |
| 957 |
|
update output.txt of exp. global_ocean_ebm & cpl_aim+ocn (affects cg2d residual) |
| 958 |
|
o seaice: add runtime flags for turning angles (default to zero) |
| 959 |
|
o Adding runtime parameter to exf/, ctrl/, to remove on-the-fly global mean |
| 960 |
|
and trend from exf forcing and ctrl control adjustments |
| 961 |
|
o fix variable aliasing in gad_calc_rhs that cannot be handled by TAF |
| 962 |
|
(since checkpoint57x_post) |
| 963 |
|
o change the default rotation period to 86164.s = the Earth rotation |
| 964 |
|
o 1rst implementation of Implicit IGW using the 3-D solver (use3Dsolver=T) |
| 965 |
|
and based on a reference stratification. Tested within hs94.cs-32x32x5. |
| 966 |
|
o seaice advection: add code for choosing between the default (2nd order |
| 967 |
|
central differences) and multiDim advection schemes provided by |
| 968 |
|
pkg/generic_advdiff |
| 969 |
|
o seaice: |
| 970 |
|
- removed all references to SEAICE_GRID.h fields from |
| 971 |
|
dynsolver, advect, diffus, lsr, without changing the results of lab_sea |
| 972 |
|
(cubed-sphere configuration will change a little) |
| 973 |
|
- grid computations in seaice_init are obsolete now. |
| 974 |
|
- cleaned up code a little so that is easier to read (hopefully). |
| 975 |
|
- added new (better?) discretizations of default advection and diffusion |
| 976 |
|
(turn on with SEAICEuseFluxForm) |
| 977 |
|
- replace 1 in 3d global fields by kSurface in growth.F |
| 978 |
|
|
| 979 |
|
checkpoint58a_post |
| 980 |
|
o seaice: |
| 981 |
|
- bug fix in advect.F |
| 982 |
|
o shelfice: |
| 983 |
|
- separate shelfice load anomaly from pload (breaks with time |
| 984 |
|
dependent forcing), => introduce constant field shelficeLoadAnomaly. |
| 985 |
|
Its default is 0., but it may be computed more cleverly from (unknown) |
| 986 |
|
t- and s-profiles (tRef, sRef) and actual EOS. For now this has to be |
| 987 |
|
done offline. A good approximation of the pressure load anomaly is |
| 988 |
|
necessary to avoid large initial adjustment processes underneath |
| 989 |
|
deep-reaching shelfice. |
| 990 |
|
- small fix in ISOMIP shelfice_thermodynamics |
| 991 |
|
- add more sophisticated thermodynamics of Hellmer (1989), this is |
| 992 |
|
now the default |
| 993 |
|
- give a few constants more intuitive names |
| 994 |
|
o add code to balance EmPmP and Qnet at the end of do_ocean_physics. Useful |
| 995 |
|
if bulk formulae are used in long integration (especially EmPmR). Turn |
| 996 |
|
on with balanceEmPmR = .true. or balanceQnet = .true. in data, PARM01 |
| 997 |
|
if balancePrintMean, the imbalance that is substracted is printed to |
| 998 |
|
STDOUT. |
| 999 |
|
o fix bug (typo) in obcs_apply_eta.F |
| 1000 |
|
o add a new package shelfice which enables us to model the circulation |
| 1001 |
|
underneath shelf-ice with draughts of hundreds of meters. |
| 1002 |
|
- works |
| 1003 |
|
- to do: + include improved thermodynamics |
| 1004 |
|
+ check whether kSurfC (from model/inc/SURFACE.h) can be used |
| 1005 |
|
instead of new field kTopC |
| 1006 |
|
+ can we use topoFile, Ro_surf and existing code in ini_depth.F |
| 1007 |
|
instead of new field R_shelfIce and new code in ini_depth.F |
| 1008 |
|
and ini_mask_etc.F? |
| 1009 |
|
+ adjust vertical mixing schemes? |
| 1010 |
|
o seaice pkg: |
| 1011 |
|
- add a cpp-flag to include a simple formula for a salinity dependent |
| 1012 |
|
freezing point of sea water at the surface |
| 1013 |
|
- change the contents of SEAICE_TEST_ICE_STRESS_1 so that zonal and |
| 1014 |
|
meridional stresses are now different (and hopefully correct) |
| 1015 |
|
o AIM pkg: change threshold on large-scale condensation to conserve Heat. |
| 1016 |
|
update results of aim.5l_LatLon test ; fix title & units of AIM diagnostics |
| 1017 |
|
and change 3 diagnostics names (OSR,OSRCLR,KM -> TSR,TSRCLR,DRAG) |
| 1018 |
|
o pkg/diagnostics: add options and parameters for regional-statistics |
| 1019 |
|
diagnostics ; define regions by reading a region-mask from a file |
| 1020 |
|
(might add other options later) |
| 1021 |
|
o pkg/bulk_force: |
| 1022 |
|
- add option and parameters to use AIM surface-flux formulae. |
| 1023 |
|
- Change loading part: S/R BULKF_FIELDS_LOAD only take care of bulkf_fields ; |
| 1024 |
|
others forcing fields (defined in PARM05, parameter file "data") are loaded |
| 1025 |
|
from S/R EXTERNAL_FIELDS_LOAD, as usually (with useBulkforce = T or F). |
| 1026 |
|
- initialise all bulkf_fields in bulkf_init.F ; do in-lining of exf_bulkcdn.F |
| 1027 |
|
- use the right EXCH call for uwind,vwind (to work on CS-grid). |
| 1028 |
|
- re-arrange header files (move parameters from BULKF.h to BULKF_PARAMS.h) |
| 1029 |
|
and parameters (note: calcWindStress replaces .NOT.readwindstress). |
| 1030 |
|
- cleaner interface with pkg/thSIce (new S/R THSICE_GET_PRECIP). |
| 1031 |
|
|
| 1032 |
|
checkpoint58 |
| 1033 |
|
o add "--embed-source" option to genmake2 which, when the supporting |
| 1034 |
|
tools can be compiled (as determined by genmake2) will turn on the |
| 1035 |
|
embed_files package which then embeds the entire MITgcm source code |
| 1036 |
|
(*.[fFhc] + Makefile) used for the build within the executable |
| 1037 |
|
- requested by CNH but off by default |
| 1038 |
|
- adds a paltry <9MB to the mitgcmuv executable in most cases |
| 1039 |
|
- only writes the output when useEMBEDSRC in eedata is true |
| 1040 |
|
o clean up 3-dim. relaxation codes: |
| 1041 |
|
* Fix I/O inconsistency in pkg/rbcs: replace precFloat32 by readBinaryPrec |
| 1042 |
|
* Remove 3-dim. relaxation code from pkg/exf (now use only pkg/rbcs) |
| 1043 |
|
* Thanks to Tom Haine for testing! |
| 1044 |
|
|
| 1045 |
|
checkpoint57z_post |
| 1046 |
|
o make CG3D solver compatible with Free-surface at k > 1 (p-coordinate): |
| 1047 |
|
affects output (@ truncation level) of exp. plume_on_slope ; updated. |
| 1048 |
|
o fix the pickup behavior for obcs in combination with ptracers |
| 1049 |
|
o fix a bug in ptracers_external_fields_load |
| 1050 |
|
o no AB-2 at the first iteration for Gw (consistent with Gu,Gv,Gt,Gs ...) |
| 1051 |
|
affects results of NH experiments (but all our NH tests have Gw[it=1]==0 !!) |
| 1052 |
|
o transfered surface NH pressure to eta field (if exactConserv). |
| 1053 |
|
o gmredi: fix bugs in slope tapering ldd97 (depthZ had the wrong sign) |
| 1054 |
|
and update lab_sea output.txt file. |
| 1055 |
|
o completing 3-dim. relaxation code: additional term |
| 1056 |
|
1/tau*( theta(i,j,k) - thetaStar(i,j,k) ) |
| 1057 |
|
in S/R EXTERNAL_FORCING_T (file external_forcing.F) |
| 1058 |
|
* At compile time, in "EXF_OPTIONS.h" set |
| 1059 |
|
#define ALLOW_CLIMTEMP_RELAXATION |
| 1060 |
|
#define ALLOW_CLIMSALT_RELAXATION |
| 1061 |
|
* At runtime in "data", under &PARM03 set (e.g., units in seconds) |
| 1062 |
|
tauThetaClimRelax3Dim = 15552000.0, |
| 1063 |
|
tauSaltClimRelax3Dim = 15552000.0, |
| 1064 |
|
* 3 cases: |
| 1065 |
|
1) Use a constant-in-time 3-dim. field |
| 1066 |
|
2) Provide 12 3-dim. fields corresponding to Jan., ... , Dec. |
| 1067 |
|
3) Real-time relax. to time-evolving prescribed field |
| 1068 |
|
o Adding Laplacian-type smoothness constraint on |
| 1069 |
|
initial and boundary (forcing) controls (ic, bc) |
| 1070 |
|
* enable at compile-time via |
| 1071 |
|
ALLOW_SMOOTH_IC_COST_CONTRIBUTION, ALLOW_SMOOTH_BC_COST_CONTRIBUTION |
| 1072 |
|
* enable at run-time via mult_smooth_ic = 1, mult_smooth_bc = 1 |
| 1073 |
|
* Absolute scale somewhat unclear so far |
| 1074 |
|
* no area weighting was included since no other cost term does so far |
| 1075 |
|
|
| 1076 |
|
checkpoint57y_post |
| 1077 |
|
First step for a NLFS adjoint |
| 1078 |
|
o initially suppress rStar (new flag DISABLE_RSTAR_CODE) |
| 1079 |
|
o new init. routines for calc_r_star, calc_surf_dr |
| 1080 |
|
o still need to deal with ini_masks_etc |
| 1081 |
|
o testreport seemed happy |
| 1082 |
|
checkpoint57y_pre |
| 1083 |
|
|
| 1084 |
|
o obcs: always reset wVel & eta (to zero or prescribe it) at the OBs. |
| 1085 |
|
o add new package rbcs (for relaxing ptracers at boundaries/depth/surface etc) |
| 1086 |
|
o add new offset feature to offline pkg (plus minor cleanup) |
| 1087 |
|
o cfc fixes for final year of integration |
| 1088 |
|
o clean up GCHEM_OPTIONS.h/DIC_OPTIONS.h (all options should |
| 1089 |
|
be in GCHEM_OPTIONS). |
| 1090 |
|
|
| 1091 |
|
checkpoint57x_post |
| 1092 |
|
o fix testreport Pb in multiple test experiment. |
| 1093 |
|
o cleanup our namelist syntax in verification: |
| 1094 |
|
- make it more F95 standards compliant (some work still needed) |
| 1095 |
|
- allows the vast majority of our tests to work with gfortran |
| 1096 |
|
o Non-Hydrostatic: |
| 1097 |
|
- put all NH variables (formerly in DYNVARS.h & GW.h) in NH_VARS.h |
| 1098 |
|
- fix exchange calls for CS-grid using the new EXCH_S3D_RL. |
| 1099 |
|
o Allow to apply AB on T,S rather than on AB(gT,gS): |
| 1100 |
|
- implemented within #ifdef ALLOW_ADAMSBASHFORTH_3 |
| 1101 |
|
- use the same arrays (gtNm,gsNm) to hold tracer field at previous |
| 1102 |
|
time-steps (if AB(T,S)) and tendencies (if AB(gT,gS)). |
| 1103 |
|
- need a "clever" read_pickup to restart from the other AB formulation |
| 1104 |
|
o move local commom bloc /GlobalLo/ (used for singleCpuIO) in EESUPPORT.h |
| 1105 |
|
o remove some unused variables (reduces number of compiler warnings) |
| 1106 |
|
o adjoint |
| 1107 |
|
* Disable useVariableViscosity for adjoint for time being |
| 1108 |
|
(there are a number of extensive recomputations) |
| 1109 |
|
* Initialize certain variables needed for adjoint |
| 1110 |
|
|
| 1111 |
|
checkpoint57w_post |
| 1112 |
|
o pkg/mdsio: use MAX_LEN_FNAM (instead of hard coded 80) for file-names |
| 1113 |
|
fix the singleCpuIO RS version of MDSWRITEFIELD |
| 1114 |
|
and add a WARNING if using globalFiles=T with multi-processors. |
| 1115 |
|
o write grid-file(s) in only one format (MDS or MNC): default=MNC (if |
| 1116 |
|
using MNC); can force MDS output by setting writegrid_mnc=F in data.mnc |
| 1117 |
|
o tracer advection scheme: |
| 1118 |
|
add DST-2 (=Lax-Wendroff) & 1rst order upwind schemes (the way to get |
| 1119 |
|
those 2 schemes before, changing GAD_FLUX_LIMITER.h + to recompile, |
| 1120 |
|
was not very convenient). |
| 1121 |
|
add implicit version for DST-3 & DST3_Flux_Limit vertical advection; |
| 1122 |
|
(further tests needed for the implicit DST & Flux-Limiter schemes). |
| 1123 |
|
o PTRACERS: added namelist parameter PTRACERS_ref in analogy to tRef |
| 1124 |
|
and sRef for convenience, handy, when you want to initialize |
| 1125 |
|
ptracers in a large domain with a constant non-zero value. Also, |
| 1126 |
|
untangle ptracers_init.F a little. |
| 1127 |
|
|
| 1128 |
|
checkpoint57v_post |
| 1129 |
|
o change dome exp. to use variable viscosity in side-drag terms. |
| 1130 |
|
o remove all the files from the cfc_offline test since they are now |
| 1131 |
|
incorporated into tutorial_cfc_offline which has been producing |
| 1132 |
|
identical results for a few days of testing |
| 1133 |
|
o add new parameter: sideDragFactor to enable half-slip-side BC |
| 1134 |
|
and change side-drag S/R to use viscosity from mom_calc_visc |
| 1135 |
|
(can switch back by setting sideDragFactor=0.); affects results at |
| 1136 |
|
truncation level; regenerate output for exp.: global_ocean.cs32x10(x3), |
| 1137 |
|
global_ocean_ebm, global_ocean_pressure, matrix_example & MLAdjust(x5). |
| 1138 |
|
o vorticity & strain are now computed without masking, to account for |
| 1139 |
|
no-slip-side BC in variable viscosity calculation ; mask is applied |
| 1140 |
|
anyway later on, before computing advection/coriolis terms. |
| 1141 |
|
o modify exp4 to test new obcs support for reading from external files |
| 1142 |
|
and for passive tracers |
| 1143 |
|
o fix behavior of ptracers_monitor when monitor output is written to a |
| 1144 |
|
netcdf-file; still not independent of monitor.F (writes in the same |
| 1145 |
|
file). |
| 1146 |
|
o change default value of tRef (put a uniform, meaningful value for ocean |
| 1147 |
|
& atmos) and initialize sRef (was missing, as Martin mentioned). |
| 1148 |
|
o Redefine viscC?Leith*. Change the coefficients of Leith viscosity |
| 1149 |
|
to be proportional to enstrophy dissipation length. Thus, |
| 1150 |
|
viscC?leith?_new=pi*(viscC?leith?_old)^(1/3) |
| 1151 |
|
This is now consistent with Smagorinsky and with the manual. |
| 1152 |
|
|
| 1153 |
|
checkpoint57u_post |
| 1154 |
|
o OBCS and PTRACERS: add open boundary support for passive tracers |
| 1155 |
|
- either use homogenous (pseudo) v.Neumann conditions or prescribe |
| 1156 |
|
OB-values from file; this is not different from the way theta and salinity |
| 1157 |
|
are treated |
| 1158 |
|
- however, Orlanski-radiation conditions are not supported, and the model |
| 1159 |
|
will stop if you use pTracers and Orlanski at the same time. |
| 1160 |
|
- beefed up the rountine obcs_external_fields_load: now only those open |
| 1161 |
|
boundary values are overwritten with values from files for which there |
| 1162 |
|
are really files, otherwise the OB-fields remain untouched. This makes |
| 1163 |
|
it possible to use different OBs at different ends of the domain (as |
| 1164 |
|
with EXF) |
| 1165 |
|
o reduce number of exch calls in shap_filt (s2). |
| 1166 |
|
o CS-grid: fix divergence contribution to Leith viscosity. Affects (@ |
| 1167 |
|
truncation level) 4/5 MLAdjust test results (11&12 digits match). |
| 1168 |
|
|
| 1169 |
|
checkpoint57t_post |
| 1170 |
|
o test biharmonic viscosity + no-slip with exp: global_ocean.cs32x15.viscA4 |
| 1171 |
|
o finish adding brackets (coriolis S/R, vecinv) in multi-terms sum to get |
| 1172 |
|
same truncation, independent of the face number: affects affects several |
| 1173 |
|
test. exp.: Update global_ocean.cs32x15 (+.thsice) & MLAdjust (all 5). |
| 1174 |
|
o fix bug in mom_v_sidedrag (biharmonic viscosity was counted 2 times); |
| 1175 |
|
note that biharmonic viscosity + no-slip was not tested in any experiment. |
| 1176 |
|
o fix bug in non-linear free-surf side-drag ; generate new output for |
| 1177 |
|
global_ocean.cs32x15(+.thsice) & global_ocean_pressure. |
| 1178 |
|
o make mnc honor the writeBinaryPrec flag for most kinds of output |
| 1179 |
|
o eesupp: split EEPARAMS into EESIZE/EEPARAMS and add a vector global sum |
| 1180 |
|
o minor change in averaging W (mom_vi_?_vertshear.F) that affects truncation |
| 1181 |
|
error; update output from global_ocean.cs32x15(+.thsice) & MLAdjust (all 5). |
| 1182 |
|
o add brackets in multi-terms sum to get same truncation, independent of |
| 1183 |
|
the face number (manage to get exactly same value of gU,gV at the cs-edge) |
| 1184 |
|
affects several test. exp. Update global_ocean.cs32x15 (+.thsice). |
| 1185 |
|
o Clean, new version of mom_calc_visc. Adds a new feature, viscAhRemax |
| 1186 |
|
and viscA4Remax, which allow one to limit the minimum viscosity by specifying |
| 1187 |
|
a maximum grid-scale Reynolds number. Also, changes all length calculations |
| 1188 |
|
in the case of grid anisotropy to geometric mean of dx**2 and dy**2. |
| 1189 |
|
Suggested values of viscosity parameters found in mom_calc_visc. |
| 1190 |
|
Many new viscosity diagnostics available. |
| 1191 |
|
|
| 1192 |
|
checkpoint57s_post |
| 1193 |
|
o Add clearing-house for viscosity calculations, mom_calc_visc and |
| 1194 |
|
correct numerous bugs in LeithD and Smagorinsky discretizations. |
| 1195 |
|
mom_calc_visc now allows for Smagorinsky, Leith and LeithD to be |
| 1196 |
|
used simultaneously, and to be used in mom_vecinv and mom_fluxform. |
| 1197 |
|
Mom_vecinv can be used with standard viscous calculation (mom_vi_hdissip.F) |
| 1198 |
|
and with Strain-Tension viscous term calculation (mom_hdissip.F). |
| 1199 |
|
The Strain-Tension form is now called with useStrainTensonVisc=.true. |
| 1200 |
|
ViscAhStrain and viscAhTension are now retired. |
| 1201 |
|
o diagnostics "VISCAHD" & "VISCA4D" replace "VISCAH" & "VISCA4". |
| 1202 |
|
o In response to JMC's bug report, genmake2 now ignores any soft-links |
| 1203 |
|
that it finds in the *current* directory when searching for files. |
| 1204 |
|
Soft-links found in any other source directories will still work as |
| 1205 |
|
they did before. |
| 1206 |
|
o add HAVE_SETRLSTK define and useSETRLSTK flag (eedata) which calls |
| 1207 |
|
a C routine to unlimit the stack size |
| 1208 |
|
o mnc-ify pkg/aim snapshot vars |
| 1209 |
|
o mnc-ify pkg/land as requested by Daniel |
| 1210 |
|
o various changes to mnc including: |
| 1211 |
|
- all files use the new "BASENAME[[.ITER].{t|f}NUM].nc" format |
| 1212 |
|
- output can now be grouped so that all files within a group |
| 1213 |
|
change the ITER portion of their names in lock-step together |
| 1214 |
|
- can now read ("global") PER-FACE (in addition to PER-TILE) files |
| 1215 |
|
and works with both EXCH1 and EXCH2 (but needs more testing) |
| 1216 |
|
- writing works for all verification test cases w/ g77 on Linux |
| 1217 |
|
|
| 1218 |
|
checkpoint57r_post |
| 1219 |
|
o make MNC variable initialization happen earlier |
| 1220 |
|
o add diagnostics for (almost) each term of the momentum Eq. |
| 1221 |
|
o remove SST,SSS,UVEL_k2,VVEL_k2 diagnostics. |
| 1222 |
|
o move pkg timeave out of pkg-groups "oceanic" & "atmospheric" (pkg/pkg_groups) |
| 1223 |
|
o remove MINIMAL_TAVE_OUTPUT option ; |
| 1224 |
|
add "dumpInitAndLast" to replace "nodumps" (and MINIMAL_TAVE_OUTPUT). |
| 1225 |
|
o move some basic S/R (used elsewhere in the code) from pkg/mdsio to eesupp/src |
| 1226 |
|
allows to compile without pkg/mdsio (& test successfully hs94.1x64x5) |
| 1227 |
|
o add MNC output for adjoint of EXF (adexf), SEAICE (adseaice) |
| 1228 |
|
o add time-dependent SST, SSS control |
| 1229 |
|
o cost terms in ecco/ modularized (new cost_generic.F) |
| 1230 |
|
o cost_averages routines are modularized (new cost_averagesgeneric.F) |
| 1231 |
|
o new infrastructure for seaice model vs. obs misfits in seaice/ |
| 1232 |
|
* driver from the_main_loop.F is seaice_cost_driver.F |
| 1233 |
|
* first term is AREA vs. SMR observation misfit (ALLOW_SEAICE_COST_SMR_AREA) |
| 1234 |
|
* gradient check in Exp. 6a of natl_box_adjoint/ |
| 1235 |
|
o natl_box_adjoint input_seaice for Lab. Sea now available online via wget |
| 1236 |
|
(see README file) |
| 1237 |
|
|
| 1238 |
|
checkpoint57q_post |
| 1239 |
|
o fix initialisation Pb in calc_gw (get NANs in exp5 with g77) |
| 1240 |
|
o fix annoying months-old bug in mnc/mdsio output for seaice pkg |
| 1241 |
|
- bug was reported by Jean-Michel and Ian Fenty |
| 1242 |
|
o fix initialization Pb in AIM-Ocean coupled model (aim_sice2aim.F) |
| 1243 |
|
update exp. cpl_aim+ocn output. |
| 1244 |
|
o Implement 4-level checkpointing: AUTODIFF_4_LEVEL_CHECKPOINT |
| 1245 |
|
Needed for high-res. runs with large global files |
| 1246 |
|
to be able to limit tapelev size |
| 1247 |
|
o Changed some tests for adjoint: |
| 1248 |
|
* carbon/ now tests AUTODIFF_2_LEVEL_CHECKPOINT |
| 1249 |
|
* natl_box_adjoint/code_bulk/ tests AUTODIFF_4_LEVEL_CHECKPOINT |
| 1250 |
|
* global_ocean.90x40x15/ back to default 3-level checkpointing |
| 1251 |
|
o Modifications to enable scripted COMMON to MODULE conversion |
| 1252 |
|
* verification/OpenAD/code/ has necessary scripts and description; |
| 1253 |
|
* converts, compiles and runs successfully; |
| 1254 |
|
|
| 1255 |
|
checkpoint57p_post |
| 1256 |
|
o reading of delXfile & delYfile moved from ini_parms.F to ini_grid.F |
| 1257 |
|
o move ${PKG}_MNC_INIT from ${PKG}_READ_PARAMS to ${PKG}_INIT_FIXED |
| 1258 |
|
(already the case for some pkgs, including recent MNC_init, e.g. thsice) |
| 1259 |
|
o call CALC_GW from DYNAMICS (instead of from FORWARD_STEP) |
| 1260 |
|
o Dissipation & phiHyd gradient are always added to gU,gV in timestep.F |
| 1261 |
|
(was already the case for dissipation with mom_vecinv, |
| 1262 |
|
and also the case for grad.PhiHyd when staggered-timeStep) |
| 1263 |
|
This will allow to put dissipation out-off the AB time-stepping. |
| 1264 |
|
Unfortunately, affects truncation error. Update output of exp. that "fails" |
| 1265 |
|
(cg2d matching number) and leave the others for later: front_relax(10), |
| 1266 |
|
global_ocean_pressure(10),ideal_2D_oce(10),internal_wave(9),lab_sea(12), |
| 1267 |
|
matrix_example(7!),natl_box(12),plume_on_slope(11),vermix(12x3,11x2). |
| 1268 |
|
|
| 1269 |
|
checkpoint57o_post |
| 1270 |
|
o fix MNC/MDSIO flags in PTRACERS so that (1) it works, and |
| 1271 |
|
(2) its ready to be documented during the 20050801 DocFest |
| 1272 |
|
o MNC-ify the gmredi package -- tested and works w/ and w/o mnc |
| 1273 |
|
for ideal_2D_oce and lab_sea on linux_ia32_g77 |
| 1274 |
|
o set to #undef CTRL_SET_OLD_MAXCVARS_30 |
| 1275 |
|
in global1x1_tot/code_seaice_adj to access indices 32, 33 |
| 1276 |
|
(worth another tag) |
| 1277 |
|
|
| 1278 |
|
checkpoint57n_post |
| 1279 |
|
o adding precip control xx_precip 32 |
| 1280 |
|
o adding swflux control xx_swflux 33 |
| 1281 |
|
o Replacing 10 forcing penalty cost routines by 1 generic. |
| 1282 |
|
o Implementing partitioning in time-mean and variable adjustment |
| 1283 |
|
for atmos. state. |
| 1284 |
|
o Time-mean constant error is now read in data.ecco (instead of hard-coded) |
| 1285 |
o in natl_box_adjoint: |
o in natl_box_adjoint: |
| 1286 |
* updated: results_bulk/ |
* updated exp 1 to 10 |
| 1287 |
* not yet updated: results/, results_seaice/ |
(but does not have time-mean vs. variable split results yet) |
| 1288 |
|
o updated global1x1/*_seaice_adj/ |
| 1289 |
|
to incorporate latest changes |
| 1290 |
|
o enable useSingleCpuIO for mdsio vector routines |
| 1291 |
|
(applies in particular to tapelev I/O) |
| 1292 |
|
o removed inefficient K-loop in all active_file*control*.F |
| 1293 |
|
|
| 1294 |
checkpoint57m_post |
checkpoint57m_post |
| 1295 |
o re-arrange exp. adjustment.cs-32x32x1 (adjust_nlfs.cs-32x32x1 merge into) |
o re-arrange exp. adjustment.cs-32x32x1 (adjust_nlfs.cs-32x32x1 merge into) |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch