| 4 |
Notes on tags used in MITgcmUV |
Notes on tags used in MITgcmUV |
| 5 |
============================== |
============================== |
| 6 |
|
|
| 7 |
|
o pkg ggl90: |
| 8 |
|
- add missing sqrt(2) factor in computation of mixing length |
| 9 |
|
scale in ggl90_calc.F |
| 10 |
|
(see Eq. (2.35) in Blanke and Delecluse, JPO, 1993) |
| 11 |
|
|
| 12 |
|
checkpoint61d |
| 13 |
|
o adjoint modifs |
| 14 |
|
- adapt to new field rhoInSitu |
| 15 |
|
- allow to revert from StoreDynVars2D, StoreDynVars3D |
| 16 |
|
to individual fields |
| 17 |
|
(switches AUTODIFF_USE_OLDSTORE_2D, AUTODIFF_USE_OLDSTORE_3D) |
| 18 |
|
o store 3-D (in-situ) density in commom block (DYNVARS.h) |
| 19 |
|
- save 1 rho computation. |
| 20 |
|
- no longer modify T & S inland when using down_slope pkg. |
| 21 |
|
o gad_som : allow to switch to SOM advection for T & S without corresponding |
| 22 |
|
pickup files (using new S/R: MDS_CHECK4FILE). |
| 23 |
|
o keep removing _BEGIN/_END_MASTER between MDSIO S/R call |
| 24 |
|
(for useSingleCpuIO to work in multi-threaded) |
| 25 |
|
o pkg/shelfice: |
| 26 |
|
- disentangle parameters: retire shelfIceFile in data/PARM05 and substitute |
| 27 |
|
with SHELFICEtopoFile in data.shelfice |
| 28 |
|
- move code for reading ice shelf topography and modifying hFacC into separate |
| 29 |
|
subroutines of the shelfice package |
| 30 |
|
- separate initialisation of "fixed" and "variable" variables |
| 31 |
|
- kTopC is not (yet) replaced by kSurfC, although this is possible |
| 32 |
|
o fix broken diagnostic SIatmFW and changed the units from m/s to kg/m^2/s |
| 33 |
|
o add initialisation of deepFac if using Pcoords (new S/R set_grid_factors) |
| 34 |
|
and rename: |
| 35 |
|
ini_phiref.F --> set_ref_state.F (+ set anelastic factors) |
| 36 |
|
ini_reference_state.F --> load_ref_files.F (- set anelastic factors) |
| 37 |
|
o change FIND_RHO_SCALAR : return rho (instead of rho - rhoConst) |
| 38 |
|
|
| 39 |
|
checkpoint61c |
| 40 |
|
o add option ALLOW_ADDFLUID and run-time selector "selectAddFluid" |
| 41 |
|
to add mass source/sink of fluid in the interior (3-D generalisation |
| 42 |
|
of oceanic real-fresh water flux). |
| 43 |
|
o pkg/monitor: fix recip_dr argument in mon_advcflw2 call (-> advcfl_W_hf_max) |
| 44 |
|
o vermix test experiment: switch from LINEAR EOS to MDJWF (not tested before) |
| 45 |
|
o new pkg: down_slope |
| 46 |
|
density-driven downsloping flow parameterisation (Tellus, 1999, 412-430). |
| 47 |
|
- presently, modify T & S inland (dwnslp_calc_rho.F). |
| 48 |
|
can be avoided if rho was stored in common bloc and used in calc_phi_hyd. |
| 49 |
|
- implementation for ocean in P-coords not tested. |
| 50 |
|
- add secondary test to global_ocean.90x40x15 (input.dwnslp) to check this pkg. |
| 51 |
|
o move kSurfC,kSurfW & kSurfS from SURFACE.h to GRID.h (next to kLowC) |
| 52 |
|
(to facilitate conversion of oceanic pkg to p-coordinate). |
| 53 |
|
o change FIND_RHO to FIND_RHO_2D : |
| 54 |
|
pass arguments tFld & sFld as local (tile) 2D-arrays ; +fix EOS_CHECK. |
| 55 |
|
o new pkg: cheapaml |
| 56 |
|
|
| 57 |
|
checkpoint61b |
| 58 |
|
o exch2: |
| 59 |
|
change index bounds in rx2_cube exchanges (new S/R: EXCH2_GET_UV_BOUNDS) |
| 60 |
|
- no longer depend on the order sequence (N,S,E,W). |
| 61 |
|
- 3rd exchange no longer needed (tested with 24 tiles). |
| 62 |
|
- same modif to hand-written adjoint S/R (global_ocean.cs32x15: zero diff) |
| 63 |
|
- exch_UV_A-grid readily available (but not yet tested). |
| 64 |
|
comment out 3rd exch call and remove copy of V to U at SE & NE face-corners |
| 65 |
|
(both are no longer needed) in exch_uv: no effect in forward run; but |
| 66 |
|
get truncation error differences with adjoint exch. |
| 67 |
|
o exch2: |
| 68 |
|
- change index-bounds storage (moved from target to local tile, |
| 69 |
|
more intuitive this way) ; rename/remove some variables. |
| 70 |
|
- change utils/exch2/matlab-topology-generator & code_mods accordingly. |
| 71 |
|
|
| 72 |
|
checkpoint61a |
| 73 |
|
o exch2/matlab-topology-generator: |
| 74 |
|
fix bug in index bounds for N-S internal exchange (hard to tell if this |
| 75 |
|
had any effect on the solution). |
| 76 |
|
o pkg/mnc: small fix in mnc_handle_err: make sure that length of msgbuf |
| 77 |
|
is exceeded |
| 78 |
|
o testreport: modify syntax of awk, so that it works also with |
| 79 |
|
awk, and not only with nawk and gawk |
| 80 |
|
|
| 81 |
|
checkpoint61 |
| 82 |
|
o autodiff |
| 83 |
|
Change default for TAF usage by removing argument '-nonew_arg' |
| 84 |
|
This changes TAF subroutine argument list (ordering of active var.) |
| 85 |
|
Omission of this flag leads to incompatibility w.r.t. TAMC |
| 86 |
|
To restore TAMC-compatibility, need following modifs: |
| 87 |
|
* use adoptfile tools/adjoint_options/adjoint_tamc_compatibility |
| 88 |
|
* use CPP option #define AUTODIFF_TAMC_COMPATIBILITY |
| 89 |
|
Tested TAF version is 1.9.22 |
| 90 |
|
N.B.: exch2 hand-written adjoint code currently not TAMC compatible |
| 91 |
|
|
| 92 |
|
checkpoint60 |
| 93 |
|
--->>> This is the last checkpoint for which generating the adjoint |
| 94 |
|
--->>> is done via the TAMC-compatibility TAF-flag "-nonewarg" |
| 95 |
|
--->>> by default. |
| 96 |
|
--->>> Future checkpoints will ommit this flag by default. |
| 97 |
|
o pkg/generic_advdiff, os7mp: simplify and avoid division by zero. |
| 98 |
|
o pkg/grdchk: Add gradient check to etan0 perturbations. |
| 99 |
|
o pkg/exf: read ice area from file (#ifdef ALLOW_ICE_AREAMASK). |
| 100 |
|
o pkg/autodiff: more flexibility in zeroadj. |
| 101 |
|
model/src: modifying do_oceanic_phys.F accordingly. |
| 102 |
|
o pkg/ctrl: Bounds for (kapgm,kapredi,eddypsi) parameter estimation. |
| 103 |
|
o model/src and pkg/gmredi: GMREDI_WITH_STABLE_ADJOINT CPP option |
| 104 |
|
special setup of gmredi for which the adjoint is stable |
| 105 |
|
enough for parameter optimization. |
| 106 |
|
o bridging the gap between eddy stress and GM. |
| 107 |
|
-> eddyTau is replaced with eddyPsi (eddyTau = f x rho0 x eddyPsi) |
| 108 |
|
along with a change in CPP option (now ALLOW_EDDYPSI). |
| 109 |
|
-> when using GM w/ GM_AdvForm: |
| 110 |
|
The total eddy streamfunction (Psi = eddyPsi + K x Slope) |
| 111 |
|
is applied either in the tracer Eq. or in momentum Eq. |
| 112 |
|
depending on data.gmredi (intro. GM_InMomAsStress). |
| 113 |
|
-> ALLOW_EDDYPSI_CONTROL for estimation purpose. |
| 114 |
|
The key modifications are in model/src/taueddy_external_forcing.F |
| 115 |
|
pkg/gmredi/gmredi_calc_*F pkg/gmredi/gmredi_*transport.F |
| 116 |
|
|
| 117 |
|
checkpoint59r |
| 118 |
|
o new S/R (pkg/mdsio/mdsio_facef_read.F) reading of sNx+1 x sNy+1 array |
| 119 |
|
from per-face file (take S/R READSYMTILE_RS out of ini_curvilinear_grid.F); |
| 120 |
|
fix option to read coriolis(@ cell-corner) from files with CS-grid. |
| 121 |
|
o pkg/mnc: add some attributes to standard 1D-coordinate variables |
| 122 |
|
o pkg/diagnostics: enforce missing_value attribute for scalar variables at |
| 123 |
|
mass points, when using mnc for output |
| 124 |
|
- add runtime parameter (missing_value, missing_value_int) to override |
| 125 |
|
default (which is the value of getcon('UNDEF')) |
| 126 |
|
o pkg/mnc: prepare mnc for the actual use of missing values with the |
| 127 |
|
diagnostics package: small fix in mnc_cw_readwrite.template and more |
| 128 |
|
initialisation of never used fields |
| 129 |
|
- replace mnc_common.h and mnc_id_header.h with corresponding upper case |
| 130 |
|
versions |
| 131 |
|
o pkg/thsice/thsice_ini_vars.F added default initial values so that |
| 132 |
|
thermodynamics sea ice solver does not blow up when some initial fields |
| 133 |
|
are missing. |
| 134 |
|
o move from external_forcing_surf.F to ini_forcing.F |
| 135 |
|
the p-coord. hack consisting in using pLoad to set phi0surf ; |
| 136 |
|
update output of tutorial_global_oce_in_p (affected @ truncation level). |
| 137 |
|
o Freshen up a bit hs94.1x64x5, notably: |
| 138 |
|
remove rotationPeriod and tRef=5*0. (adjoint only), and add |
| 139 |
|
exactConserv=.TRUE. |
| 140 |
|
o pkg/generic_advdiff: |
| 141 |
|
change option GAD_ALLOW_SOM_ADVECT to GAD_ALLOW_TS_SOM_ADV which only |
| 142 |
|
applies to files where Temperature & Salinity 2nd Order moments are used. |
| 143 |
|
o pkg/ptracers: add second-order moment advection schemes (80 and 81); |
| 144 |
|
this uses a dynamically allocated internal state data structure |
| 145 |
|
(#define PTRACERS_ALLOW_DYN_STATE in PTRACERS_OPTIONS.h) |
| 146 |
|
and requires a fortran 90 compiler |
| 147 |
|
|
| 148 |
|
checkpoint59q |
| 149 |
|
o pkg/mom_vecinv: Add energy & enstrophy conserving scheme (selectVortScheme=3) |
| 150 |
|
(from Sadourny, described by Burridge & Haseler, ECMWF Rep.4, 1977) |
| 151 |
|
o Refresh tutorial_global_oce_biogeo, notably: |
| 152 |
|
- change bathymetry (put back seamounts in ACC, use hFacs) |
| 153 |
|
- change EOS (POLY3 --> JMD95Z) |
| 154 |
|
- use Bryan-Lewis vertical diffusivity |
| 155 |
|
- use multidimensional advection |
| 156 |
|
- remove old virtual virtual in dic pkg, now done through ptracer pkg |
| 157 |
|
- change a couple of parameters in dic pkg |
| 158 |
|
o pkg/ctrl: change formula in adctrl_bound.F and add a parameter to ctrl_map_ini_gen.F |
| 159 |
|
o pkg/obcs: change default to OBCSfixTopo = .true., |
| 160 |
|
- set OBCSfixTopo=.false. in exp4/input/data.obcs to reproduce old result |
| 161 |
|
- replace "debugMode" with "debugLevel .GE. debLevB" |
| 162 |
|
o implementation of TAF directives for gchem,cfc,dic |
| 163 |
|
o remove "exp5" (replaced by tutorial_deep_convection). |
| 164 |
|
o pkg/obcs: add code to fix topography gradients normal to open boundaries; |
| 165 |
|
this requires computing the index fields OB_Jn/Js/Ie/Iw in obcs_readparms; |
| 166 |
|
the code can be turned on by setting OBCSfixTopo = .true. in data.obcs |
| 167 |
|
--> changes results in exp4, seaice_obcs |
| 168 |
|
o tutorial_deep_convection : |
| 169 |
|
update the set-up and increase resolution and domain size ; start |
| 170 |
|
from pseudo initial conditions = output at t=120mn in order to see |
| 171 |
|
something happening when running testreport. |
| 172 |
|
o pkg/seaice: add os7mp as an advection scheme |
| 173 |
|
add check for advection schemes |
| 174 |
|
add a flag for restoring T and S underneath sea ice |
| 175 |
|
o pkg/my82: add netcdf-support and diagnostics |
| 176 |
|
o thsice pkg: |
| 177 |
|
- Now hsMax limits snow height by turning it into ice following |
| 178 |
|
flooding scheme (and now conserving energy) |
| 179 |
|
- Slight rewriting of the formula in thsice_calc_thick.F |
| 180 |
|
- Parameter rhowi eliminated to be replaced by floodFac = (rhosw-rhoi)/rhos |
| 181 |
|
--> changes results of global_ocean.cs32x15.icedyn and global_ocean.cs32x15.thsice |
| 182 |
|
|
| 183 |
|
checkpoint59p |
| 184 |
|
o gchem / dic / cfc : |
| 185 |
|
- add useDIC, useCFC , read from "data.gchem" (& hold in GCHEM.h); |
| 186 |
|
- add new parameter files: "data.dic" & "data.cfc" ; |
| 187 |
|
- various re-arrangement in initialisation & header file ; |
| 188 |
|
- fix tutorial_global_oce_biogeo for multi-threaded test. |
| 189 |
|
o pkg/dic: test for "pickup_dic" file when restarting ; |
| 190 |
|
if no pickup-file, can restart with a re-initialised pH (same as it did |
| 191 |
|
before) providing pickupStrictlyMatch is set to False. |
| 192 |
|
o change argument list of S/R PTRACERS_WRITE_PICKUP & MYPACKAGE_WRITE_PICKUP |
| 193 |
|
+ fix call to S/R GGL90_WRITE_PICKUP & DIC_WRITE_PICKUP |
| 194 |
|
o add a "warning" (to Error msg file) when an Active Tracer is not using AB-2 |
| 195 |
|
and staggerTimeStep is off (needed for stability of Internal-wave dynamics). |
| 196 |
|
o move out of PARAMS.h & data the last pieces of old-ptracer code: tauTr1ClimRelax, |
| 197 |
|
& lambdaTr1ClimRelax ; put those 2 params in PTRACERS_PARAMS.h & data.ptracers |
| 198 |
|
(note: not clear to me what lambdaTr1ClimRelax is still used for ...) |
| 199 |
|
o pkg/mom_vecinv: - new parameter "selectVortScheme" to select which |
| 200 |
|
scheme to use for vorticty-term ; |
| 201 |
|
- compute upwindVorticity=T case within mom_vi_u/v_coriolis_c4.F |
| 202 |
|
(with default selectVortScheme, return to original discretisation) |
| 203 |
|
- remove weird combination (e.g.: upwindVorticity & highOrderVorticity) |
| 204 |
|
o pkg/seaice: add a line to the summary to indicate grid type (B/C) |
| 205 |
|
o in mom_calc_visc, fix average value of viscAh_W & viscA4_W next to the |
| 206 |
|
bottom ; only used with variable horizontal viscosity and non-hydrostatic. |
| 207 |
|
also fix diagnostics VISCAHW & VISCA4W. |
| 208 |
|
|
| 209 |
|
checkpoint59o |
| 210 |
|
o dome/code/obcs_calc.F: avoid division by zero (detected using gfortran). |
| 211 |
|
o change the loop ordering in most gad_*_adv_x.F to improve vectorization: |
| 212 |
|
move a few statemens out the main loop into separate loops |
| 213 |
|
o pkg/shelfice: |
| 214 |
|
- sort out freshwater flux; convert freshwater fluxes to mass fluxes |
| 215 |
|
(kg/m^2/s), does not break tests, because in verification/isomip, |
| 216 |
|
rhoConstFresh=rhoConst (by accident) |
| 217 |
|
- rearrange computation of tLoc, sLoc, pLoc to make code more efficient |
| 218 |
|
- move S/R find_rho_scalar, pkg/ecco/sw_ptmp.F, pkg/ecco/sw_adtg.F into |
| 219 |
|
new file model/src/seawater.F, so that they are available for all pkgs. |
| 220 |
|
- convert potential temperature into in-situ temperature. This changes the |
| 221 |
|
isomip tests => update tests |
| 222 |
|
o add a flag writePickupAtEnd (default=true) to be able to suppress |
| 223 |
|
writing a pickup at the last timestep |
| 224 |
|
o tools/mpack-1.6 : |
| 225 |
|
- disable automake (not working) and autoconf (not needed). |
| 226 |
|
- update to version 1.6.4 which fix MD5 code on some 64 bits platforms |
| 227 |
|
also cleaner with much less compilation warnings. |
| 228 |
|
o pkg/profiles: |
| 229 |
|
rename profiles_interp_mean_genericgrid as profiles_interp_mean_gg |
| 230 |
|
(for "less than 32 characters name" compiler requirement) |
| 231 |
|
o pkg/obcs and pkg/exf: added capability to specify seaice open boundary |
| 232 |
|
conditions that have a different sampling frequency than S/T/U/V obcs |
| 233 |
|
o pkg/diagnostics (stats-diags): |
| 234 |
|
- fix global Min/Max in case 1 processor get only empty tiles |
| 235 |
|
o genmake2: replace (4 times) |
| 236 |
|
make genmake_tc_1.o >> genmake_warnings 2>&1 |
| 237 |
|
with |
| 238 |
|
COMM="$CC $CFLAGS -c genmake_tc_1.c" |
| 239 |
|
echo $COMM >> genmake_warnings |
| 240 |
|
$COMM >> genmake_warnings 2>&1 |
| 241 |
|
to make genmake2 always see the value of CC as specified in the optfile. |
| 242 |
|
o generic_advdiff: - prather advection scheme (SOM) coded for CS-grid. |
| 243 |
|
- add diagnostics for 1srt & 2nd Order moments and sub-grid variance. |
| 244 |
|
- modify verification advect_cs test to test SOM-advection on CS-grid. |
| 245 |
|
o pkg/ctrl: |
| 246 |
|
- Rewrite of ctrl_map_ini_ecco.F, |
| 247 |
|
introducing a generic routine (ctrl_map_ini_gen.F). |
| 248 |
|
- Modification of ctrl_bound/adctrl_bound handling control vector bounds. |
| 249 |
|
|
| 250 |
|
checkpoint59n |
| 251 |
|
o pkg/diagnostics: for large number of diagnostics, store diagnostic mate |
| 252 |
|
number in dedicate array "hdiag": |
| 253 |
|
- new version of S/R DIAGNOSTICS_ADD2LIST : DIAGNOSTICS_ADDTOLIST |
| 254 |
|
with 1 more argument (mate number); modify old version DIAGNOSTICS_ADD2LIST. |
| 255 |
|
- many small changes (integer format) for large number of diagnostics |
| 256 |
|
- start to use DIAGNOSTICS_ADDTOLIST (necessary for diagnostics with |
| 257 |
|
a counter mate) in pkg diagnostics, ptracers, thsice & aim_v23. |
| 258 |
|
o add parameter rotateGrid and Euler angles EulerPhi/Theta/Psi. For |
| 259 |
|
usingSphericalGrid, this allows to define the rotated grid coordinates |
| 260 |
|
via phiMin/thetaMin/dxSpacing/dySpacing, etc., but then re-compute the |
| 261 |
|
geographical coordinates according to the inverse of the rotation defined |
| 262 |
|
by the Euler angles, so that Coriolis parameter and online-interpolation by |
| 263 |
|
exf works with the geographical coordinates on XC/YC/XG/YG. |
| 264 |
|
Naturally, this feature does not work with all packages, so some |
| 265 |
|
combinations are prohibited in config_summary (flt, flt_zonal, ecco, |
| 266 |
|
profiles), because there the coordinates are assumed to be regular |
| 267 |
|
spherical grid coordinates. |
| 268 |
|
o pkg/gmredi,ctrl,ecco,autodiff,grdchk and model/src,inc: |
| 269 |
|
- introduce isopycnal diffusion coefficient control. |
| 270 |
|
o tools/adjoint_options: |
| 271 |
|
- additional control vector components. |
| 272 |
|
o pkg/mnc: have mnc create marginally meaning full coordinate variables |
| 273 |
|
(that is the grid indices) if usingCurvilinearGrid and NOT EXCH2 |
| 274 |
|
o pkg/mypackage: |
| 275 |
|
- add example of read/write pickup for state-var ; |
| 276 |
|
- add entry points to the main code for state-vars diags & write-pickup. |
| 277 |
|
o pkg/exf: rewrite of exf_getffieldrec.F to properly deal with year |
| 278 |
|
transitions for useExfYearlyFields |
| 279 |
|
- add new subroutine that determines the file to read from for |
| 280 |
|
use*YearlyFields = .TRUE. and .FALSE. |
| 281 |
|
- add a verification experiment to global_with_exf that tests |
| 282 |
|
useExfYearlyFields with USE_EXF_INTERPOLATION defined |
| 283 |
|
o pkg/obcs/exf: add useOBCSYearlyFields (=.FALSE.) to obcs with exf in |
| 284 |
|
analogy to useExfYearlyFields; rearrange obcs_prescribe_read: two new |
| 285 |
|
subroutines (which could be generated from a template, because they are |
| 286 |
|
almost identical), for now they are included in obcs_prescribe_read.F for |
| 287 |
|
simplicity |
| 288 |
|
o pkg/exf: |
| 289 |
|
- add a little more diagnostic to exf_interp_read (in analogy to |
| 290 |
|
mds_read_field, can be turned off with debugLevel < debugLevA=1) |
| 291 |
|
- improve vectorizability of exf_interp for TARGET_NEC_SX, makes code |
| 292 |
|
ugly but fast by unrolling short inner loops, inserting a unroll=8 |
| 293 |
|
directive in routine lagran, and splitting a loop and making do while the |
| 294 |
|
outermost loop (the latter requires the intoduction of index arrays) |
| 295 |
|
o pkg/obcs: replace obcs_apply_area/heff/hsalt/hsnow with obcs_apply_seaice |
| 296 |
|
o pkg/seaice: moved DIFFERENT_MULTIPLE from seaice_model to seaice_dynsolver |
| 297 |
|
http://forge.csail.mit.edu/pipermail/mitgcm-devel/2008-January/003173.html |
| 298 |
|
o verification/seaice_obcs: updated for restart test and latest options |
| 299 |
|
o pkg/seaice: add a new flag SEAICEuseTEM to use a slightly different |
| 300 |
|
ice rheology (so-called truncated ellipse, that gets rid of tensile stress); |
| 301 |
|
for now this is only available for the C-grid code and also within |
| 302 |
|
#ifdef SEAICE_ALLOW_TEM, because this option may slow down the EVP code |
| 303 |
|
|
| 304 |
|
checkpoint59m |
| 305 |
|
o pkg/seaice: use different time constant for melting (SEAICE_gamma_t) |
| 306 |
|
and freezing (SEAICE_gamma_t_frz) ice due to mixed layer temperature |
| 307 |
|
o gad_som : fix flux output (& diagnostics) to have same units as other |
| 308 |
|
advection scheme fluxes (was previously multiplied by deltaT). |
| 309 |
|
o added verification/seaice_obcs both to test seaice open boundaries |
| 310 |
|
and to provide an example matlab scrpt for generating them |
| 311 |
|
o added verification/lab_sea/input.salt_plume for testing pkg/salt_plume |
| 312 |
|
o pkg/salt_plume: clean up salt_plume_frac.F to |
| 313 |
|
remove redundancy in PlumeMethod 1 and 4 |
| 314 |
|
o pkg/kpp: added saltplume diagnostics |
| 315 |
|
o pkg/obcs and pkg/seaice: |
| 316 |
|
- do not set uice and vice to zero when OB*icefile are unspecified |
| 317 |
|
- OBCS_SEAICE_AVOID_CONVERGENCE is undefined by default |
| 318 |
|
- moved seaice tracer obcs after call to seaice_growth |
| 319 |
o pkg/salt_plume: added various options for salt plume depth |
o pkg/salt_plume: added various options for salt plume depth |
| 320 |
criterion and for vertical distribution of the salt |
criterion and for vertical distribution of the salt |
| 321 |
|
|
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch