| 3 |
Notes on tags used in MITgcmUV |
Notes on tags used in MITgcmUV |
| 4 |
============================== |
============================== |
| 5 |
|
|
| 6 |
|
checkpoint47a_post |
| 7 |
|
o new pkg: aim_v23 |
| 8 |
|
= F. Molteni atmos.physics (SPEEDY, ver23) adapted to MITgcm. |
| 9 |
|
for now, keep the same surface forcing as before. |
| 10 |
|
- Part-Cell implemented into AIM; check that Heat & Water are conserved |
| 11 |
|
- aim.5l_cs: use new aim pkg (run 10yr & get better results than before) |
| 12 |
|
- aim.5l_LatLon & aim.5l_Equatorial_Channel are still using old aim pkg |
| 13 |
|
o add diagnostic of surface correction term in monitor output |
| 14 |
|
|
| 15 |
|
o bulk_force and therm_seaice |
| 16 |
|
- Two packages: bulk_force (Bulk forcing) |
| 17 |
|
and therm_seaice (thermodynamic_seaice) - adopted from LANL CICE.v2.0.2 |
| 18 |
|
- Earlier integration from Stephaine Dutkiewicz |
| 19 |
|
and Patrick Heimbach. |
| 20 |
|
- Two ifdef statements for compile time, |
| 21 |
|
ALLOW_THERM_SEAICE and ALLOW_BULK_FORCE |
| 22 |
|
|
| 23 |
|
checkpoint47 |
| 24 |
|
differentiable version of checkpoint46n_post |
| 25 |
|
o bug fix in quasihydrostaticterms |
| 26 |
|
o * "clean" adjoint code (in terms of extensive recomputations) |
| 27 |
|
can now be obtained for all GMREDI options (i.e. for |
| 28 |
|
- GM_VISBECK_VARIABLE_K |
| 29 |
|
- GM_NON_UNITY_DIAGONAL |
| 30 |
|
- GM_EXTRA_DIAGONAL |
| 31 |
|
- GM_BOLUS_ADVEC ) |
| 32 |
|
* However, wrong gradient check problem remains unsolved. |
| 33 |
|
* New CPP options have been introduced for different |
| 34 |
|
tapering schemes |
| 35 |
|
o external_fields_load now part of differentiation list |
| 36 |
|
o pressure needs multiple storing; |
| 37 |
|
would be nice to have store_pressure at beginning or |
| 38 |
|
end of forward_step, e.g. by having phiHyd global (5-dim.) |
| 39 |
|
(NB: pressure is needed for certain cases in find_rho, |
| 40 |
|
which is also invoked through convective_adjustment). |
| 41 |
|
o recomputations in find_rho for cases |
| 42 |
|
'JMD95'/'UNESCO' or 'MDJWF' are OK. |
| 43 |
|
o #define ATMOSPHERIC_LOADING should be differentiable |
| 44 |
|
o ini_forcing shifted to begining of initialise_varia |
| 45 |
|
o Incorporating QNVS line search routines into MITgcm |
| 46 |
|
(this is separate code, and therefore not under pkg) |
| 47 |
|
lsopt/, optim/ |
| 48 |
|
o Updated verification/carbon/ |
| 49 |
|
- #define GM_VISBECK_VARIABLE_K |
| 50 |
|
- GM_taper_scheme = 'ldd97' |
| 51 |
|
|
| 52 |
|
checkpoint46n_post |
| 53 |
|
Merging from release1_p8: |
| 54 |
|
o verification/natl_box: |
| 55 |
|
updating new external_fields_load routine |
| 56 |
|
o New package: pkg/seaice |
| 57 |
|
Sea ice model by D. Menemenlis (JPL) and Jinlun Zhang (Seattle). |
| 58 |
|
The sea-ice code is based on Hibler (1979-1980). |
| 59 |
|
Two sea-ice dynamic solvers, ADI and LSR, are included. |
| 60 |
|
In addition to computing prognostic sea-ice variables and diagnosing |
| 61 |
|
the forcing/external data fields that drive the ocean model, |
| 62 |
|
SEAICE_MODEL also sets theta to the freezing point under sea-ice. |
| 63 |
|
The implied surface heat flux is then stored in variable |
| 64 |
|
surfaceTendencyTice, which is needed by KPP package (kpp_calc.F and |
| 65 |
|
kpp_transport_t.F) to diagnose surface buoyancy fluxes and for the |
| 66 |
|
non-local transport term. Because this call precedes model |
| 67 |
|
thermodynamics, temperature under sea-ice may not be "exactly" at |
| 68 |
|
the freezing point by the time theta is dumped or time-averaged. |
| 69 |
|
N.B.: fairly large differences in accuracy occur across |
| 70 |
|
different platforms/compilers; comparison between |
| 71 |
|
g77 (Linux) and F77 (SGI Origin 2000/MIPSpro) |
| 72 |
|
generated output gives: |
| 73 |
|
T S U V |
| 74 |
|
C D M c m s m s m s m s |
| 75 |
|
n p a R g m m e . m m e . m m e . m m e . |
| 76 |
|
f n k u 2 i a a d i a a d i a a d i a a d |
| 77 |
|
g d e n d n x n . n x n . n x n . n x n . |
| 78 |
|
|
| 79 |
|
Y Y Y Y 5 5 7 7 7 8 10 9 6 6 6 6 7 5 7 5 7 FAIL lab_sea |
| 80 |
|
o GAD: |
| 81 |
|
- generated new common blocks to account for call of |
| 82 |
|
same gad routines with differing traceridentities |
| 83 |
|
(needed to modify tracerIdentity indices in GAD.h) |
| 84 |
|
- generated separate common blocks for case useCubedSphereExchange |
| 85 |
|
(Department of Futurology) |
| 86 |
|
- parameter lists to gmredi_?transport: added tracerIdentity |
| 87 |
|
- added new key indices to tamc.h |
| 88 |
|
o external_fields_load: |
| 89 |
|
- added this routine to TAF list |
| 90 |
|
- needed to make some common blocks global and additional storing |
| 91 |
|
along the same lines as exf package (checkpoint_lev?_directives.h) |
| 92 |
|
o exf: |
| 93 |
|
updated external forcing package |
| 94 |
|
- bug fixes carried over from ecco-branch |
| 95 |
|
(missing OBCS_OPTIONS.h in two routines) |
| 96 |
|
- enable easy to use "no forcing". |
| 97 |
|
- added exf I/O for atmospheric loading |
| 98 |
|
- added exf I/O for runoff data |
| 99 |
|
- transfered scaling between exf <-> MITgcm to exf namelist |
| 100 |
|
o Adding new verification experiment global_with_exf. |
| 101 |
|
This verification experiment is almost identical to the |
| 102 |
|
global_ocean.90x40x15 experiment, except that it uses |
| 103 |
|
the exf (and cal) package instead of the |
| 104 |
|
external_fields_load routine (cf README file). |
| 105 |
|
|
| 106 |
|
checkpoint46m_post |
| 107 |
|
o modified testscript to return -- when there are no lines of "%MON" output |
| 108 |
|
o added new flag "quasiHydrostatic" for QH mode |
| 109 |
|
and new routine quasihydrostaticterms() |
| 110 |
|
o added 2*Omega*Cos(phi)*W to u equations (non-hydrostatic Coriolis term) |
| 111 |
|
New routine: mom_u_coriolis_nh() |
| 112 |
|
o fixed sign of non-hydrostatic metric terms in u and v equations. |
| 113 |
|
Depend on correct sign of gravitySign. |
| 114 |
|
o added work.pc* to .cvsignore in aim directories using ifc |
| 115 |
|
o introduced flag for controllin non-hydrostatic metric terms |
| 116 |
|
o removed gravitySign from PARM04 |
| 117 |
|
o switched to g77/ifc from pgf77 in aim experiments |
| 118 |
|
|
| 119 |
|
checkpoint46l_post |
| 120 |
|
o made convective adjustment work with pressure coordinates: |
| 121 |
|
- changed the direction of k-loop in convective_adjustment.F for the |
| 122 |
|
case of pressure coordinates (OCEANICP,ATMOSPHERIC buoyancyRelation) |
| 123 |
|
- adjusted the reference pressure k-index in convective_adjustment.F |
| 124 |
|
- adjusted the convection condition in convect.F (in analogy to |
| 125 |
|
calc_ivdc.F) |
| 126 |
|
- convective_adjustment no longer computes anything on the halos |
| 127 |
|
- removed the warnings about negative salinity from find_rho.F and |
| 128 |
|
find_alpha.F; instead the new routine look_for_neg_salinity, called |
| 129 |
|
at the beginning of find_rho, find_alpha, and find_beta, does a |
| 130 |
|
check of the entire slice, if CPP-option |
| 131 |
|
CHECK_SALINITY_FOR_NEGATIVE_VALUES is defined |
| 132 |
|
checkpoint46l_pre |
| 133 |
|
|
| 134 |
|
checkpoint46k_post |
| 135 |
|
o fixed the verification/global_ocean.90x40x15 experiment: |
| 136 |
|
- new bathymetry (the world according to A., JMC, and M.) |
| 137 |
|
- new initial fields and forcing fields (*.bin files) |
| 138 |
|
- new POLY3.COEFFS (for the next release one should switch to a full |
| 139 |
|
equation of state: JMD95P or MDJWF) |
| 140 |
|
- fixed several errors and redundancies in the data file |
| 141 |
|
- experiment uses looped cells |
| 142 |
|
- added matlab directory with diagnostic scripts for plotting of output |
| 143 |
|
|
| 144 |
|
o S/R aim_initialise.F replace S/R aim_init from file aim_do_inphys.F: |
| 145 |
|
- read AIM physics parameters from a file (data.aimphys) |
| 146 |
|
- set defaults values = F.Molteni paper (Clim.Dyn., 2002) |
| 147 |
|
|
| 148 |
|
checkpoint46j_post |
| 149 |
|
o split calc_exact_eta in 2 S/R : integr_continuity & update_etaH |
| 150 |
|
o move wVel computation at the end of the time step, in S/R integr_continuity |
| 151 |
|
o create specific S/R to exchange T,S before DYNAMICS (for stagger time step) |
| 152 |
|
o update timeave pkg for wVel diagnostic. |
| 153 |
|
checkpoint46j_pre |
| 154 |
|
|
| 155 |
|
checkpoint46i_post |
| 156 |
|
o Clean up AIM package (and keep the results unchanged): |
| 157 |
|
include CPP_OPTION and use IMPLICT NONE in all routines ; |
| 158 |
|
declare all the variables _RL ; use _d 0 for all numerical constants. |
| 159 |
|
use ifdef ALLOW_AIM everywhere. And now AIM can be used with g77 ! |
| 160 |
|
|
| 161 |
|
checkpoint46h_post |
| 162 |
|
o cleaned up the use of rhoNil and rhoConst. |
| 163 |
|
- rhoNil should only appear in the LINEAR equation of state, everywhere |
| 164 |
|
else rhoNil is replaced by rhoConst, e.g. find_rho computes rho-rhoConst |
| 165 |
|
and the dynamical equations are all divided by rhoConst |
| 166 |
|
o introduced new parameter rhoConstFresh, a reference density of fresh |
| 167 |
|
water, to remove the fresh water flux's dependence on rhoNil. The default |
| 168 |
|
value is 999.8 kg/m^3 |
| 169 |
|
o cleanup up external_forcing.F and external_forcing_surf.F |
| 170 |
|
- can now be used by both OCEANIC and OCEANICP |
| 171 |
|
checkpoint46h_pre |
| 172 |
|
|
| 173 |
|
Added code to convert surface volume flux (fresh water) into |
| 174 |
|
a mass flux when using P coordinates in the ocean (OCEANICP). |
| 175 |
|
Note: It assumes you have set rho0=rhoConst=density of fresh water. |
| 176 |
|
|
| 177 |
|
checkpoint46g_post |
| 178 |
|
o Include a new diagnostic variable phiHydLow for the ocean model |
| 179 |
|
- in z-coordinates, it is the bottom pressure anomaly |
| 180 |
|
- in p-coordinates, it is the sea surface elevation |
| 181 |
|
- in both cases, these variable have global drift, reflecting the mass |
| 182 |
|
drift in z-coordinates and the volume drift in p-coordinates |
| 183 |
|
- included time averaging for phiHydLow, be aware of the drift! |
| 184 |
|
o depth-dependent computation of Bo_surf for pressure coordinates |
| 185 |
|
in the ocean (buoyancyRelation='OCEANICP') |
| 186 |
|
- requires a new routine (FIND_RHO_SCALAR) to compute density with only |
| 187 |
|
Theta, Salinity, and Pressure in the parameter list. This routine is |
| 188 |
|
presently contained in find_rho.F. This routine does not give the |
| 189 |
|
correct density for 'POLY3', which would be a z-dependent reference |
| 190 |
|
density. |
| 191 |
|
o cleaned up find_rho |
| 192 |
|
- removed obsolete 'eqn' from the parameter list. |
| 193 |
|
o added two new verification experiments: gop and goz |
| 194 |
|
(4x4 degree global ocean, 15 layers in pressure and height coordinates) |
| 195 |
|
checkpoint46g_pre |
| 196 |
|
|
| 197 |
|
checkpoint46f_post |
| 198 |
|
o Enable tangent linear (forward mode) gradient checks: |
| 199 |
|
- extended active file handling to g_... files |
| 200 |
|
- added TANGENT_SIMULATION to theSimulationMode |
| 201 |
|
- extended grdchk package accordingly |
| 202 |
|
o added tangent linear setup in verification/carbon/code_ftl |
| 203 |
|
o added adjoint setup in verification/front_relax/code_ad |
| 204 |
|
|
| 205 |
|
checkpoint46e_post |
| 206 |
|
o Added new equation of state -> MDJWF |
| 207 |
|
- EOS of McDougall et al., 2002, JAOT, submitted |
| 208 |
|
- caveat: the equation of state is only valid for a smaller (more |
| 209 |
|
realistic?) range of values than JMD95P/Z and UNESCO |
| 210 |
|
- added masks to the calculation of pressure in store_pressure |
| 211 |
|
- added more check values for density in check_eos (ini_eos.F), some of |
| 212 |
|
the old check values are out of the range of the MDJWF-eos, so don't |
| 213 |
|
expect perfect matches for those |
| 214 |
|
checkpoint46e_pre |
| 215 |
|
|
| 216 |
|
checkpoint46d_post |
| 217 |
|
o fixed store_pressure to work with both buoyancy relation = 'OCEANIC' and |
| 218 |
|
'OCEANICP', also initialised field pressure correctly in ini_eos in the |
| 219 |
|
case of pressure coordinates. eosType='JMD95Z' in |
| 220 |
|
combination with buoyancyRelation='OCEANICP' now causes an error. |
| 221 |
|
o Changed p = pressure(i,j,k,bi,bj) to p = pressure(i,j,kRef,bi,bj) |
| 222 |
|
in find_alpha/beta. |
| 223 |
|
checkpoint46d_pre |
| 224 |
|
|
| 225 |
|
o Changed p = pressure(i,j,k,bi,bj) to p = pressure(i,j,kRef,bi,bj) |
| 226 |
|
so that JMD95Z and JMD95P give approptiate static stability in find_rho. |
| 227 |
|
|
| 228 |
|
checkpoint46c_post |
| 229 |
|
o Changes necessary for ocean in p-coordinates |
| 230 |
|
- Added new buoyancy relation = 'OCEANICP' |
| 231 |
|
- Added new parameters = gravitySign (this used to be contained inside |
| 232 |
|
the factor dRdZ which I added when we first switched to R coordinates). |
| 233 |
|
X GM/Redi is not compatible (yet) |
| 234 |
|
X bottom drag and no-slip need to be debugged. |
| 235 |
|
checkpoint46c_pre |
| 236 |
|
|
| 237 |
|
checkpoint46b_post |
| 238 |
|
o Added new equation of state -> JMD95Z and JMD95P |
| 239 |
|
- EOS of Jackett and McDougall, 1995, JAOT |
| 240 |
|
- moved all EOS parameters into EOS.h |
| 241 |
|
- new routines ini_eos.F, store_pressure.F |
| 242 |
|
o Added UNESCO EOS, but not recommended because it requires |
| 243 |
|
in-situ temperature (see JMD95) |
| 244 |
|
o Modified formatting for knudsen2.f in utils/knudsen2 and added |
| 245 |
|
unesco.f to be used with POLY3 |
| 246 |
|
checkpoint46b_pre |
| 247 |
|
|
| 248 |
|
checkpoint46a_post |
| 249 |
|
o Added (atmospheric) pressure loading |
| 250 |
|
- new field in FFIELDS.h, etc... |
| 251 |
|
- new cpp flag ATMOSPHERIC_LOADING |
| 252 |
|
o Changed hFacC to _hFacC in calc_phi_hyd.F |
| 253 |
|
o Added SHORTWAVE_HEATING to some files for consistency |
| 254 |
|
checkpoint46a_pre |
| 255 |
|
|
| 256 |
|
checkpoint46 |
| 257 |
|
further merges from release1_p5 |
| 258 |
|
o new ctrl package |
| 259 |
|
- adopted from ECCO environment to enable optimization |
| 260 |
|
- added Eliassen Palm fluxes to controls |
| 261 |
|
o added Eliassen Palm flux controls to gradient check package |
| 262 |
|
o cost package |
| 263 |
|
- Compatible with new ctrl package |
| 264 |
|
- added Eliassen Palm cost hooks |
| 265 |
|
- modif's of existing cost functions |
| 266 |
|
o Adjoint-related bug fixes in kpp: |
| 267 |
|
- kpp_calc: sore of kpphbl avoids recomputation/call to S/R kppmix |
| 268 |
|
- kpp_routines: store of Rib avoids partial recomputation bug of TAF. |
| 269 |
|
o autodiff package |
| 270 |
|
- flow directives: |
| 271 |
|
+ new for S/R do_the_model_io |
| 272 |
|
+ enhanced for S/R checkpoint |
| 273 |
|
+ new gmredi.flow |
| 274 |
|
- Introduced CPP option ALLOW_AUTODIFF_MONITOR to |
| 275 |
|
disable adcommon.h/g_common.h by default. |
| 276 |
|
- fixed problem for adjoint of global_max |
| 277 |
|
o modified verification/carbon/ |
| 278 |
|
o New setup for adjoint of global_ocean |
| 279 |
|
o added hooks for Eliassen Palm fluxes (dynamics.F, ini_fields.F) |
| 280 |
|
o cleaned TAF keys iikey, idkey (dynamics.F, thermodynamics.F) |
| 281 |
|
o incorporated hooks for sponge layer code (external_forcing.F) |
| 282 |
|
|
| 283 |
|
checkpoint45d_post |
| 284 |
|
o import 2 fixes from release1_p5 (CG2D.h & packages_readparms.F) |
| 285 |
|
o use recip_dx*,recip_dy* instead of /dx*,/dy* in orlanski_E,W,N,S |
| 286 |
|
(affects plume_on_slope "cg2d" output) |
| 287 |
|
o add new parameter deltaTfreesurf for free-surface time stepping |
| 288 |
|
o exchange gT,gS when using staggerTimeStep & GM & Oly<4 |
| 289 |
|
o NONLIN_FRSURF: rescale gNm1 to get a better conservation with A-B |
| 290 |
|
o change phiMin in exp1 (to agree with documentation) |
| 291 |
|
o add new flags: |
| 292 |
|
- T,S forcing inside/outside Adams-Bashforth |
| 293 |
|
- turn off temp,salt advection and/or forcing |
| 294 |
|
- for each tracer, define internal flag for multiDimAdvection & A-B |
| 295 |
|
o monitor: change definition of KE to check conservation of Energy |
| 296 |
|
|
| 297 |
|
checkpoint45c_post |
| 298 |
|
o Removed f90 comments ("!") |
| 299 |
|
o Modified initialisations to enable exf package for MITgcm |
| 300 |
|
(without invoking ECCO_PACKAGE). |
| 301 |
|
o modifications to gradient check package (Martin Losch) |
| 302 |
|
- enable centered differences |
| 303 |
|
- modified format of standard output |
| 304 |
|
|
| 305 |
|
checkpoint45b_post |
| 306 |
|
o cleaned exchange calls in cg2d |
| 307 |
|
o Included CPP option ALLOW_AUTODIFF_MONITOR in forward_step |
| 308 |
|
o included CPP option SINGLE_LAYER_MODE in thermodynamics |
| 309 |
|
to configure barotropic setup (Martin Losch) |
| 310 |
|
o moved some initialisations within bi,bj loop in dynamics |
| 311 |
|
(TAF flow dependency) |
| 312 |
|
o in initialise_varia, moved call packages_init_variables |
| 313 |
|
before convective_adjustment_init |
| 314 |
|
(corresponding adjustment of TAF tape initialisation). |
| 315 |
|
o in calc_diffusivity/calc_viscosity extended domain to full overlap. |
| 316 |
|
|
| 317 |
|
checkpoint45a_post |
| 318 |
|
o compute Rho over the whole domain (extend iMin,jMin indices) |
| 319 |
|
o specific exchange for X-slice domain (case Ny=1) |
| 320 |
|
o argument futureIter of S/R obcs_calc missing in exp4 & internal_wave /code |
| 321 |
|
o solve_for_pressure : set cg2d_x to zero where OBCS are applied |
| 322 |
|
|
| 323 |
|
checkpoint44h_post = checkpoint45 |
| 324 |
|
o Fix to restore differentiability: |
| 325 |
|
place at which packages_init_variables is called in |
| 326 |
|
initialise_varia is crucial for reverse control flow. |
| 327 |
|
o modifications in GMRedi to enable stable adjoint |
| 328 |
|
(corresponding modif's in thermodynamics, dynamics) |
| 329 |
|
o added missing hook for sponge layer code in external_forcing |
| 330 |
|
o modified test cost functions |
| 331 |
|
o storing in gad_advection (plus removal of write(0,*)! |
| 332 |
|
o missing headers TR1.h added in convective_adjustment routines |
| 333 |
|
o errorMessageUnit set non-equal zero in eeboot |
| 334 |
|
(conflict on some platforms, e.g. IBM SP3) |
| 335 |
|
o modified carbon verif. |
| 336 |
|
|
| 337 |
|
checkpoint44h_pre |
| 338 |
|
o vertical grid option: allow to put the Interface at the middle between |
| 339 |
|
2 cell-centers ; replace delZ in pkg/kpp by drF. |
| 340 |
|
o GM Advective form: Tracers are advected using the residual transport (= |
| 341 |
|
Euler+GM-bolus); set param GM_AdvSeparate=T to return to previous form. |
| 342 |
|
|
| 343 |
|
checkpoint44g_post |
| 344 |
|
o fix surface correction term in multiDimAdvection (affects plume_on_slope |
| 345 |
|
results) ; ifdef missing in thermodynamics.F |
| 346 |
|
|
| 347 |
|
checkpoint44f_pre,checkpoint44f_post |
| 348 |
|
o added PTRACERS package |
| 349 |
|
This allows an arbitrary number of passive tracers to be integrated |
| 350 |
|
forward simultaneously with the dynamicaly model. |
| 351 |
|
+ Implemented so far: |
| 352 |
|
- basic forward algorithm (time-stepping, advection, diffusion, convection) |
| 353 |
|
- I/O and checkpointing |
| 354 |
|
- GM/Redi *but* using the GM/Redi coefficient of Salt |
| 355 |
|
+ Not implemented so far: |
| 356 |
|
- KPP |
| 357 |
|
- OBCS |
| 358 |
|
+ No specific example supplied (yet) but global_ocean.90x40x15 has the |
| 359 |
|
necessary data.ptracer file. Simply use -enable=ptracers and uncomment |
| 360 |
|
line in data.pkg. |
| 361 |
|
+ This package is disabled by default since it increases storage. |
| 362 |
|
|
| 363 |
|
|
| 364 |
|
o testscript: added -cleanup option |
| 365 |
|
o Shap_filt: a) new shap_filt S/R to use no-slip BC with S2 filter |
| 366 |
|
b) enable to filter 2D fields. |
| 367 |
|
|
| 368 |
|
checkpoint44e_pre,post |
| 369 |
|
o re-wrote convective adjustment to use pre-calculated weights |
| 370 |
|
Affects: model/src/convective_adjustment.F, convective_adjustment_ini.F |
| 371 |
|
Adds: model/src/convective_weights.F, convectively_mixtracer.F |
| 372 |
|
Original calls to convect() still in place. |
| 373 |
|
|
| 374 |
|
chkpt44d_pre,post |
| 375 |
|
o added missing EXCLUDE_MONITOR flags |
| 376 |
|
o changed "e" to "_d" in gmredi_slope_limit, gmredi_slope_psi |
| 377 |
|
(incompatible typ in MIN/MAX expressions caused problems |
| 378 |
|
on IBM SP3) |
| 379 |
|
o in genmake added variable MAKEDEPEND |
| 380 |
|
plus resetting for case SunOS |
| 381 |
|
o added timer_stats.c routine for IBM SP3 |
| 382 |
|
o removed variables in dynamics |
| 383 |
|
!!! I forgot to create tag chkpt44d_pre !!! |
| 384 |
|
!!! But chkpt44d_pre = chkpt44c_post !!! |
| 385 |
|
|
| 386 |
|
o real fresh water flux implemented with non-linear free-surface. |
| 387 |
|
|
| 388 |
|
chkpt44c_pre,post |
| 389 |
|
o few fix (mask in shap_s2, EmPmR in external_field_load, |
| 390 |
|
USE_NATURAL_BCS in solve_for_P); |
| 391 |
|
o add arguments myIter & myTime to S/R obcs_calc & solve_for_P |
| 392 |
|
|
| 393 |
|
checkpoint44b_pre/_post |
| 394 |
|
o merge of relevant stuff from the ecco-branch: |
| 395 |
|
- genmake: removed $S64 overwrite for case SunOS |
| 396 |
|
- pkg/exf: update and corrections for field swapping and obcs |
| 397 |
|
- pkg/ecco: parameter lists for the_model_main, the_main_loop |
| 398 |
|
harmonized between ECCO and MITgcm |
| 399 |
|
- pkg/autodiff: added flow directives for obcs, mdsio_gl_slice |
| 400 |
|
updated checkpointing_lev... lists for obcs |
| 401 |
|
- model/src: minor changes in forward_step, plot_field |
| 402 |
|
added directive for divided adjoint in the_main_loop |
| 403 |
|
- pkg/mdsio: added mdsio_gl_slice |
| 404 |
|
|
| 405 |
|
o check parameters & config (chkpt44a_pre,post) |
| 406 |
|
o OBC and NonLin_FrSurf. |
| 407 |
|
|
| 408 |
|
checkpoint44 |
| 409 |
|
o fix bug in mom_vi_del2uv |
| 410 |
|
o select when filters are applied ; add options to zonal_filter (data.zonfilt) |
| 411 |
|
o gmredi: fix Pb in the adiabatic form ; add options (.e.g. Bolus advection) |
| 412 |
|
o update AIM experiments (NCEP input files) |
| 413 |
|
o improve and extend diagnostics (Monitor, TimeAve with NonLin-FrSurf) |
| 414 |
|
o added some stuff for AD |
| 415 |
|
|
| 416 |
|
checkpoint43 |
| 417 |
|
o added two new advection tests |
| 418 |
|
o added global 4x4 degree ocean test |
| 419 |
|
o added test of H&S94 with free surface on cube |
| 420 |
|
o some final mods for gradient check, adjoint,... |
| 421 |
|
|
| 422 |
|
checkpoint42 |
| 423 |
|
Fixed AD-related problems: |
| 424 |
|
o Store directives up-to-date with re-arranged Adams-Bashforth |
| 425 |
|
(mainly thermodynamics.F) |
| 426 |
|
o New store directives for multi-dim. advection schemes |
| 427 |
|
* new CPP flag ALLOW_MULTI_DIM_ADVECTION |
| 428 |
|
* new common block and key passkey |
| 429 |
|
(mainly gad_advection.F) |
| 430 |
|
o Modified store directives for split of dynamics/thermodynamics |
| 431 |
|
for the case ALLOW_KPP |
| 432 |
|
o Cleaned argument list for timestep_tracer.F |
| 433 |
|
|
| 434 |
|
checkpoint41 |
| 435 |
|
o re-formatted/added comments in prologues of key subroutines |
| 436 |
|
to work with protex |
| 437 |
|
|
| 438 |
|
checkpoint40 |
| 439 |
|
o moved calc_gs, calc_gt and calc_tr1 back to model/src |
| 440 |
|
o added FLT (floats) package from Arne along with demo. experiment |
| 441 |
|
o re-arranged Adams-Bashforth scheme for tracers to allow easier |
| 442 |
|
implementation of forward-in-time forcing terms |
| 443 |
|
o more mods for non-linear free-surface including new variable |
| 444 |
|
o modified multi-dim method to work on cube |
| 445 |
|
o bug fix in KPP (from DM) |
| 446 |
|
|
| 447 |
|
checkpoint40pre9 |
| 448 |
|
o added DST advection schemes |
| 449 |
|
o fix MPI bug on SGI's |
| 450 |
|
o modifications for non-linear free-surface |
| 451 |
|
o fixed conditionals for fixed flow/passive tracer only mode |
| 452 |
|
o added tension/strain form of stress tensor |
| 453 |
|
o changes to commenting of arguments for TAF/TAMC |
| 454 |
|
o added/updated many matlab scripts |
| 455 |
|
o added multi-dimensional advection method for tracers |
| 456 |
|
|
| 457 |
|
checkpoint40pre8 |
| 458 |
|
o new package rw/ |
| 459 |
|
Added method for dumping intermediate local arrays: |
| 460 |
|
mdsio_writetile - same as mdsio_writefield except works from inside |
| 461 |
|
bi,bj loop |
| 462 |
|
mdsio_writelocal - same as mdsio_writetile except works for local |
| 463 |
|
arrays |
| 464 |
|
write_local_r? - higher-level wrapper for mdsio_writelocal |
| 465 |
|
Controlled by diagFreq. Defaults to zero (ie. no dumps) |
| 466 |
|
Example given at end of mom_vecinv.F that dumps some local arrays. |
| 467 |
|
o replaced calc_mom_rhs.F by mom_fluxform.F/mom_vecinc.F to |
| 468 |
|
control flux-form versus vector invariant code. |
| 469 |
|
Switch is runtime flag vectorInvariantMomentum (defaults to false) |
| 470 |
|
or genmake -DISABLE ... |
| 471 |
|
o TAMC-related update to cope with mom_fluxform.F/mom_vecinc.F |
| 472 |
|
(additional storing is now needed for case vecinv; |
| 473 |
|
currently nothing implemented to switch this storing off |
| 474 |
|
in case fluxform is used since no CPP flag available). |
| 475 |
|
|
| 476 |
|
checkpoint40pre7 |
| 477 |
|
o bug fix in dynamics.F |
| 478 |
|
calc_viscosity called before k=1,Nr loop. |
| 479 |
|
o added some #ifdef's ALLOW_PASSIVE_TRACER |
| 480 |
|
o cleaned initialisations in ctrl_map_ini |
| 481 |
|
related to TAF |
| 482 |
|
|
| 483 |
|
checkpoint40pre6 |
| 484 |
|
o split dynamics into thermodynamics & dynamics |
| 485 |
|
o corresponding split of calc_diffusivity into |
| 486 |
|
calc_diffusivity, calc_viscosity |
| 487 |
|
(kpp_calc_diff, kpp_calc_visc). |
| 488 |
|
o Added diffkr, kapgm to control variables |
| 489 |
|
o bug fix in gmredi_slope_limit for ldd97 |
| 490 |
|
|
| 491 |
|
checkpoint40pre5 |
| 492 |
|
o proper initialization of Adams-Bashforth time stepping |
| 493 |
|
+ uses forward step for very first step of model (iter=0) |
| 494 |
|
o re-generated *all* output since almost all output is modified by this |
| 495 |
|
change (sorry but we've been putting this one off for about 2 years) |
| 496 |
|
+ natl_box, aim.5l_Equatorial_Channel and aim.5l_zon-ave were |
| 497 |
|
*not* regenerated since they are already out of date and I don't |
| 498 |
|
want to create the impression that they are suddenly working. |
| 499 |
|
o removed KAP stuff for DEC's |
| 500 |
|
o modified/added many .cvsignore files in */code and */input |
| 501 |
|
o added new expt "solid-body.cs-32x32x1" |
| 502 |
|
+ this uses an alternative form of ini_curvilinear_grid.F which |
| 503 |
|
is not necessarily any better than the current one... |
| 504 |
|
|
| 505 |
|
checkpoint40pre4 |
| 506 |
|
o added re-initialisations of utrans,vtrans,rtrans in |
| 507 |
|
calc_common_factors which are crucial for TAF. |
| 508 |
|
o extended iMin,jMin range for calc_common_factors, |
| 509 |
|
calc_diffusivity |
| 510 |
|
o added option ALLOW_PASSIVE_TRACER |
| 511 |
|
o a few minor updates and fixes |
| 512 |
|
|
| 513 |
|
checkpoint40pre3 |
| 514 |
|
o created calc_gtr1.F for gad package |
| 515 |
|
o split the_main_loop and re-introduced forward_step |
| 516 |
|
o some recomputations of nIter0 for TAMC |
| 517 |
|
|
| 518 |
|
checkpoint40pre2 |
| 519 |
|
o Updated to latest branch of AJA, JMC |
| 520 |
|
o Added gradient check package |
| 521 |
|
o Added routines for passive tracer handling |
| 522 |
|
o Added carbon sequestration sensitivity experiment |
| 523 |
|
|
| 524 |
|
checkpoint39 |
| 525 |
|
o Modifications and fixes to support TAMC |
| 526 |
|
(mainly missing or wrong directives) |
| 527 |
|
o Corrected common blocks when fooling TAMC to produce adjoint I/O |
| 528 |
|
in addummy_in_stepping |
| 529 |
|
o Updated verification/vero/ (bug fixes in code/, correct pickups in input/) |
| 530 |
|
o Enabled "sliced" (xz-,yz-) exchanges, needed for obcs. |
| 531 |
|
o Included following packages: |
| 532 |
|
cal: calendar |
| 533 |
|
exf: external forcing |
| 534 |
|
ecco: essential routines to control use of cal, exf |
| 535 |
|
(NB: this is not the full ECCO environment) |
| 536 |
|
o disabled some packages by default in genmake |
| 537 |
|
|
| 538 |
|
checkpoint38 |
| 539 |
|
o see notes_c37_adj.txt |
| 540 |
|
o corrected wrong layer index in external_forcing_t |
| 541 |
|
o replaced the_main_loop/forward_step by the_main_loop |
| 542 |
|
o removed forceoutput from write_state |
| 543 |
|
(replaced criteria for initial/final state) |
| 544 |
|
o added runtime flag for pre-C35 pickups: usePickupBeforeC35 |
| 545 |
|
|
| 546 |
|
checkpoint37 |
| 547 |
|
o mdsio.F routine split and packaged in pkg/mdsio |
| 548 |
|
(mdsio.F and mdsio_gl.F still exist in eesupp/src but are not |
| 549 |
|
used unless genmake -disable=mdsio) |
| 550 |
|
o allow a more precise surface-geopotential gradient for the atmosphere |
| 551 |
|
taking into account the change in space of Alpha (=1/rho) at the surface. |
| 552 |
|
o variable "etaN" (replace cg2d_x) is the surface R-anomaly [r unit] |
| 553 |
|
(ocean: sea surface height [m] / atmos: surface pressure anomaly [Pa]) |
| 554 |
|
o Change units: Phi_Hydrostatic (=phiHyd), Phi_Surface(=cg2d_x) and |
| 555 |
|
Phi_NonHydrostatic (=cg3d_x), all have now the dimension of a potential |
| 556 |
|
[m2/s2] (pressure/rhoConst in the ocean ; Geo-Potential in the atmosphere). |
| 557 |
|
o Time-Average diagnostics defined as a pseudo package "timeave". |
| 558 |
|
o pickup files : old pickup (before c35) did not work with new code (c35 |
| 559 |
|
and after) unless activating 2 commented lines in initialise-varia. |
| 560 |
|
o Non-Hydrostatic pickup file Pb fixed. |
| 561 |
|
o bug with Rigid-lid version (since c35) fixed. |
| 562 |
|
|
| 563 |
|
checkpoint36 |
| 564 |
|
o implement Crank-Nickelson barotropic time-stepping |
| 565 |
|
o recover Time-Average diagnostics |
| 566 |
|
o fix Pb in checkpoint (PR#19) |
| 567 |
|
o AIM become a standard package ; clean unused CPP_kees |
| 568 |
|
|
| 569 |
|
checkpoint35 |
| 570 |
|
o subtantial rewrite of dynamics.f |
| 571 |
|
o allows staggered time-stepping |
| 572 |
|
o packaged obcs, aim (Atmospheric Physics), zonal_filt, shap_filt |
| 573 |
|
o added bottom drag (linear + quadratic) |
| 574 |
|
|
| 575 |
|
checkpoint34 |
| 576 |
|
o Modified exchange routines for correct reverse simulation. |
| 577 |
|
o Added verification output to comply with bug fix in impldiff.F |
| 578 |
|
as of c33 (exp2, natl_box). |
| 579 |
|
o Corrected store directives in dynamics.F |
| 580 |
|
o Corrected array boundaries in impldiff.F |
| 581 |
|
o Corrected array dimensions in gmredi. |
| 582 |
|
Added temporary scalars to avoid storage by TAMC (gmredi, kpp). |
| 583 |
|
o Added routine GLOBAL_SUM_INT to global_sum.F |
| 584 |
|
o Added mdsio_gl.F for ECCO purposes. |
| 585 |
|
|
| 586 |
|
checkpoint33 |
| 587 |
|
o Fixed bug in lower BC in impldiff.F |
| 588 |
|
o Fixed confusion about units of forcing arrays in FFIELDS.h |
| 589 |
|
namely Fu,Fv,Qnet,Qsw,EmPmR: |
| 590 |
|
- Removed verification/natl_box/code/external_fields_scale.F |
| 591 |
|
(did not differ from that in model/src) |
| 592 |
|
- Changed units of fu,fv,Qnet,Qsw,EmPmR back to proper units |
| 593 |
|
(see FFIELDS.h for description) |
| 594 |
|
- Scale fu,fv,Qnet,Qsw,EmPmR when used in external_forcing_surf.F, |
| 595 |
|
kpp_calc.F and kpp_transport_t.F |
| 596 |
|
- Removed model/src/external_fields_scale.F and calls to it |
| 597 |
|
- verification/natl_box uses flux data with "atmospheric" sign so |
| 598 |
|
a special version of external_fields_load.F is used to |
| 599 |
|
change the data as it's read in. This way, the arrays |
| 600 |
|
have the right units and signs at all times tha a user could |
| 601 |
|
possibly use them. |
| 602 |
|
o Corrected genmake to delete a temporary file during configuration |
| 603 |
|
|
| 604 |
|
checkpoint32 |
| 605 |
|
o Scaling of forcing fields moved from external_forcing.F to |
| 606 |
|
external_fields_scale.F, called directly after loading fields. |
| 607 |
|
o Surface relaxation terms added to surface tendency fields in |
| 608 |
|
extra subroutine. |
| 609 |
|
o impldiff.F changed to avoid storing by TAMC of huge intermediate |
| 610 |
|
fields. |
| 611 |
|
o Changes in GMRedi to comply with packaging structure. |
| 612 |
|
o Modifications and bug fixes in KPP package. |
| 613 |
|
o Verification experiment for KPP added (verification/nat_box/) |
| 614 |
|
|
| 615 |
|
checkpoint31 |
| 616 |
|
o Packages interface brought in line with defined standard |
| 617 |
|
-> new routines packages_...F |
| 618 |
|
-> changes in initialise_fixed.F, initialise_varia.F |
| 619 |
|
-> enables initialisation interface for ECCO package |
| 620 |
|
o Rescaling of external forcing fields immediately after read |
| 621 |
|
(removed from external_forcing.F) |
| 622 |
|
-> new: surface_fields_scale.F |
| 623 |
|
-> affects ini_foorcing.F, external_fields_load.F |
| 624 |
|
o Computation of surface tendencies before tendency updates. |
| 625 |
|
-> new: external_forcing_surf.F |
| 626 |
|
o Change of variable names useGMRedi, useKPP, useECCO |
| 627 |
|
o Further changes in dynamics.F, impldiff.F for TAMC |
| 628 |
|
o Tested for experiments 0, 2, 4. |
| 629 |
|
- not yet tested for GMRedi. |
| 630 |
|
- not yet tested for KPP. |
| 631 |
|
|
| 632 |
|
checkpoint30 |
| 633 |
|
o Updates for OBCs |
| 634 |
|
o New experiment for test OBCs (internal_wave) |
| 635 |
|
o New output.txt in verification/exp4/results/ |
| 636 |
|
o Updates for KPP: calculation of viscosity corrected, new variables |
| 637 |
|
kpp_dumpFreq and kpp_taveFreq |
| 638 |
|
o CPP'd calls to system routines for TARGET_CRAY_VECTOR (P.H.) |
| 639 |
|
and entry for T90 in genmake |
| 640 |
|
|
| 641 |
|
checkpoint29 |
| 642 |
|
o packaged KPP and GM/Redi |
| 643 |
|
|
| 644 |
|
checkpoint28 |
| 645 |
|
o Corrected initialization of hFacMin for difference vertical coordinates |
| 646 |
|
o Modified calculation of partial cell thickness to more robust algorithm |
| 647 |
|
o config_summary.F: replaced write_1D_... by write_0D_... |
| 648 |
|
read_write.F: added subroutines write_0D_... |
| 649 |
|
o routines calc_common_factors, calc_gs, calc_gt, calc_phi_hyd, find_rho: |
| 650 |
|
included some initialisations required for TAMC. |
| 651 |
|
o routine calc_isoslopes: modified sqrt computation to make it |
| 652 |
|
differentiable for zero argument. |
| 653 |
|
o routines dynamics, impldiff: |
| 654 |
|
included store directives and tape key computations required for TAMC. |
| 655 |
|
o ALL TAMC related changes are between ifdef ALLOW_AUTODIFF_TAMC |
| 656 |
|
|
| 657 |
|
checkpoint27 |
| 658 |
|
o fixed calc_isoslopes() to so that cancellation of terms in tensor |
| 659 |
|
formulation works properly with variable resolution. |
| 660 |
|
o restructured the calling tree between the_model_main() and dynamics() |
| 661 |
|
o split initialise() into initialise_fixed() and initialise_varia() |
| 662 |
|
o introduced initialization file pSurfInitFile for free surface (cg2d_x) |
| 663 |
|
in new routine ini_psurf() |
| 664 |
|
|
| 665 |
|
checkpoint26 |
| 666 |
|
o moved some #ifdef in optional routines to encompass everything |
| 667 |
|
except the argument declarations. This was using up some memory. |
| 668 |
|
o fixed macros like _ADT to work with both versions of Linux cpp |
| 669 |
|
o cleaned up some unused and uninitialized variables |
| 670 |
|
(helps when debugging with strict compile options) |
| 671 |
|
o split up CPP_EEOPTIONS.h into options and macros |
| 672 |
|
(macros are now in eesupp/inc/CPP_EEMACROS.h) |
| 673 |
|
o patch for 2 processor JAM mode |
| 674 |
|
|
| 675 |
|
checkpoint25 |
| 676 |
|
o updates for OBCs and NH |
| 677 |
|
o dramatically reduced memory usage |
| 678 |
|
o added "JAM" routines for use on Artic network |
| 679 |
|
o parameterization of convection by implicit vertical diffusion |
| 680 |
|
o added a diagnostic of convective index |
| 681 |
|
o moved call to calc_divg_hat() from dynamics() to solve_for_pressure() |
| 682 |
|
(this is was partly for OBCs and NH but also in anticipation of |
| 683 |
|
an explicit free-surface option) |
| 684 |
|
o initial state input files for U and V |
| 685 |
|
|
| 686 |
|
checkpoint24 |
| 687 |
|
o Removed some spurious "REAL"s |
| 688 |
|
o Updated KPP to latest version from JPL |
| 689 |
|
o Added a COS(latitude) in horizontal viscosity |
| 690 |
|
|
| 691 |
|
checkpoint23 |
| 692 |
|
o Added del^4 diffusion for salt and temperature |
| 693 |
|
o Multiple minor fixes (implicit none's, arguments to global_sum, etc.) |
| 694 |
|
|
| 695 |
|
checkpoint22 |
| 696 |
|
o Made many small changes: implicit none, format(i5), etc... |
| 697 |
|
o Introduced KPP mixing scheme (compiles and runs but *not* tested) |
| 698 |
|
|
| 699 |
|
checkpoint21 |
| 700 |
|
o Introduced new I/O package that supports direct-access records (mdsio.F) |
| 701 |
|
o Split-up mid-level I/O routines |
| 702 |
|
o Updated input data for experiments 0,1,2,4 and 5 |
| 703 |
|
o Finally removed the genmake.* scripts (everyone seems happy with genmake) |
| 704 |
|
|
| 705 |
|
checkpoint20 |
| 706 |
|
o Tidied up open-boundaries some more |
| 707 |
|
o Added non-hydrostatic code |
| 708 |
|
o Fixed some input data |
| 709 |
|
o Modified MPI start-up to work in "coupled" context. |
| 710 |
|
|
| 711 |
|
checkpoint19 |
| 712 |
|
o Tidied up directory structure for verification experiments. |
| 713 |
|
o Added new code for open boundaries. |
| 714 |
|
o Corrected advective terms near boundaries. |
| 715 |
|
o Added CPP flag for "old UV" geometry and corrected spherical geometry. |
| 716 |
|
o Implemented free-slip/no-slip BCs and del^4 dissipation. |
| 717 |
|
o Split default parameters out of ini_parms.F into set_defaults.F. |
| 718 |
|
|
| 719 |
|
checkpoint18 |
| 720 |
|
o Further changes for optional code generation with |
| 721 |
|
CPP - ugh! |
| 722 |
|
|
| 723 |
|
checkpoint17 |
| 724 |
|
o Beginning to incorporating modularity |
| 725 |
|
for supporting atmos. and ocean configs. |
| 726 |
|
o Small changes for TAMC complinace |
| 727 |
|
o New ultra simple test case. Barotropic box |
| 728 |
|
configuration "exp0". |
| 729 |
|
|
| 730 |
|
checkpoint16 |
| 731 |
|
o Minor changes to exchange routines to support |
| 732 |
|
accumulation in reverse mode. Adjoint of an |
| 733 |
|
assignment is an addition. |
| 734 |
|
o Changes to support compilation by TAMC (LR(1) |
| 735 |
|
syntax) and by g77 under Linux ( 72 character |
| 736 |
|
limit ). |
| 737 |
|
|
| 738 |
|
checkpoint15 |
| 739 |
|
Rewrote exchange routines to allow |
| 740 |
|
o General tile <-> tile connectivity. |
| 741 |
|
o TAMC reverse mode flag ( is this really needed? ) |
| 742 |
|
o Variable width overlap and exchange region widths. |
| 743 |
|
o Hooks for sharing data via DMA, Arctic, Memory Channel, |
| 744 |
|
shmput/shmget, VIA, SYSV shmem and every other cool |
| 745 |
|
communication method. |
| 746 |
|
|
| 747 |
|
checkpoint14 |
| 748 |
|
Consistent isomorphism chages made. These allow dynamical core |
| 749 |
|
to support both pressure and meters as a vertical coordinate. |
| 750 |
|
|
| 751 |
|
checkpoint13 |
| 752 |
|
Release which corrects global_max problem and a couple |
| 753 |
|
of KGM time-averaging diagnostic errors. Also contains |
| 754 |
|
a double-gyre experiment setup as well as the baseline |
| 755 |
|
4 degree global template. The double gyre template is |
| 756 |
|
organised to allow it to be applied automatically to |
| 757 |
|
the baseline configuration. |
| 758 |
|
|
| 759 |
|
branch-point-rdot |
| 760 |
|
A few tidy-ups have been made bt the real point of this |
| 761 |
|
check-point (excuse the pun) is to allow a branch to be |
| 762 |
|
made for the purposes of adding the rDot alterations. |
| 763 |
|
I don't want to commit the rDot to the main-trunk until |
| 764 |
|
we've actually tested it... |
| 765 |
|
|
| 766 |
|
checkpoint12 |
| 767 |
|
Tidy up and added generic genmake script (formerly |
| 768 |
|
configure script). |
| 769 |
|
Released to testers. |
| 770 |
|
|
| 771 |
|
checkpoint11 |
| 772 |
|
Re-arranged initialise() and introduced ini_vertical_grid() |
| 773 |
|
and ini_masks_etc(). |
| 774 |
|
|
| 775 |
|
checkpoint10 |
| 776 |
|
Introduced the configure script. |
| 777 |
|
Separated out the diags package. |
| 778 |
|
Added template for writing time-averages of tile/intermediate quantities. |
| 779 |
|
Updated SIZE.h in exp2 and made the data big-endian. |
| 780 |
|
|
| 781 |
|
checkpoint9 |
| 782 |
|
MPI fix. Filename changes (meta/data). salbin*y stuff. |
| 783 |
|
General tidy-up. |
| 784 |
|
SST.bin SSS.bin added to verification/exp2 |
| 785 |
|
|
| 786 |
checkpoint8 |
checkpoint8 |
| 787 |
Inludes time-dependant forcing and time-averaging. |
Inludes time-dependant forcing and time-averaging. |
| 788 |
Works at 4x4 and 2.8125x2.8125 global |
Works at 4x4 and 2.8125x2.8125 global |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch