/[MITgcm]/MITgcm/pkg/exf/exf_bulkformulae.F
ViewVC logotype

Log of /MITgcm/pkg/exf/exf_bulkformulae.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Links to HEAD: (view) (download) (annotate)
Links to checkpoint65k: (view) (download) (annotate)
Sticky Tag:

Revision 1.31 - (view) (download) (annotate) - [select for diffs]
Mon Oct 20 03:13:32 2014 UTC (10 years, 1 month ago) by gforget
Branch: MAIN
CVS Tags: checkpoint65g, checkpoint65h, checkpoint65i, checkpoint65j, checkpoint65k, checkpoint65l, checkpoint65m, checkpoint65n, checkpoint65o, checkpoint65p, checkpoint65q, checkpoint65r, checkpoint65s, checkpoint65t, checkpoint65u, checkpoint65v, checkpoint65w, checkpoint65x, checkpoint65y, checkpoint65z, checkpoint66a, checkpoint66b, checkpoint66c
Changes since 1.30: +4 -1 lines
Diff to previous 1.30
- ECCO_OPTIONS.h is needed when including ecco_cost.h, ecco.h
- AUTODIFF_OPTIONS.h is needed when including tamc.h, tamc_keys.h
- CTRL_OPTIONS.h is needed when including ctrl.h


Revision 1.30 - (view) (download) (annotate) - [select for diffs]
Fri May 2 22:14:52 2014 UTC (10 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64x, checkpoint64y, checkpoint64z, checkpoint65, checkpoint65a, checkpoint65b, checkpoint65c, checkpoint65d, checkpoint65e, checkpoint65f
Changes since 1.29: +27 -8 lines
Diff to previous 1.29
from Jeff Scott: add option (#define EXF_CALC_ATMRHO) to calculate local
  air density as function of air Temp, Humidity and atm pressure.


Revision 1.29 - (view) (download) (annotate) - [select for diffs]
Sat Dec 8 15:24:13 2012 UTC (11 years, 11 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64b, checkpoint64c, checkpoint64d, checkpoint64e, checkpoint64f, checkpoint64g, checkpoint64h, checkpoint64i, checkpoint64j, checkpoint64k, checkpoint64l, checkpoint64m, checkpoint64n, checkpoint64o, checkpoint64p, checkpoint64q, checkpoint64r, checkpoint64s, checkpoint64t, checkpoint64u, checkpoint64v, checkpoint64w
Changes since 1.28: +2 -2 lines
Diff to previous 1.28
disable "sstExtrapol" when Nr=1


Revision 1.28 - (view) (download) (annotate) - [select for diffs]
Sun Oct 21 04:45:16 2012 UTC (12 years, 1 month ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint64a
Changes since 1.27: +2 -2 lines
Diff to previous 1.27
Lets do this again (for both cases).


Revision 1.27 - (view) (download) (annotate) - [select for diffs]
Sun Oct 21 04:03:50 2012 UTC (12 years, 1 month ago) by heimbach
Branch: MAIN
Changes since 1.26: +2 -1 lines
Diff to previous 1.26
Minor store fix.


Revision 1.26 - (view) (download) (annotate) - [select for diffs]
Tue Aug 28 19:17:46 2012 UTC (12 years, 3 months ago) by gforget
Branch: MAIN
CVS Tags: checkpoint63s, checkpoint64
Changes since 1.25: +13 -31 lines
Diff to previous 1.25
- pkg/exf : added run time switch useAtmWind to replace ALLOW_ATM_WIND
  cpp switch. ALLOW_ATM_WIND now just sets the useAtmWind default (see
  exf_readparms.F) and force defines ALLOW_BULKFORMULAE (EXF_OPTIONS.h).
- pkg/exf, autodiff, ctrl, ecco and seaice : remove ALLOW_ATM_WIND
  brackets, or replace them with useAtmWind ones.
- pkg/ctrl, ecco : allow to compile both ALLOW_U/VSTRESS_CONTROL and
  ALLOW_U/VWIND_CONTROL. Depending on useAtmWind, one is inactive,
  and the other is active (see exf_getffields.F/exf_getsurfacefluxes.F).


Revision 1.25 - (view) (download) (annotate) - [select for diffs]
Thu Dec 22 19:03:41 2011 UTC (12 years, 11 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63p, checkpoint63q, checkpoint63r
Changes since 1.24: +12 -5 lines
Diff to previous 1.24
remove/avoid un-used variables


Revision 1.24 - (view) (download) (annotate) - [select for diffs]
Mon Oct 25 16:21:58 2010 UTC (14 years, 1 month ago) by gforget
Branch: MAIN
CVS Tags: checkpoint62n, checkpoint62o, checkpoint62p, checkpoint62q, checkpoint62r, checkpoint62s, checkpoint62t, checkpoint62u, checkpoint62v, checkpoint62w, checkpoint62x, checkpoint62y, checkpoint62z, checkpoint63, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g
Changes since 1.23: +4 -1 lines
Diff to previous 1.23
avoiding recomputations.


Revision 1.23 - (view) (download) (annotate) - [select for diffs]
Fri May 21 10:08:44 2010 UTC (14 years, 6 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint62h, checkpoint62i, checkpoint62j, checkpoint62k, checkpoint62l, checkpoint62m
Changes since 1.22: +391 -298 lines
Diff to previous 1.22
merge exf_bulk_largeyeager04 into exf_bulkformulae because these
files are nearly the same anyway.
  Step 2: do the actual merge
      unfortunately requires updating lab_sea.salt_plume (6 matching digits),
      and global_ocean.cs32x15.icedyn (only 11 matching digits)


Revision 1.22 - (view) (download) (annotate) - [select for diffs]
Fri May 21 07:50:51 2010 UTC (14 years, 6 months ago) by mlosch
Branch: MAIN
Changes since 1.21: +56 -55 lines
Diff to previous 1.21
merge exf_bulk_largeyeager04 into exf_bulkformulae because these
files are nearly the same anyway.
  Step 1: make exf_bulkformulae look like exf_bulk_largeyeager04:
   - redefinition of tau(i,i) (by a factor of ustar)
   - 1./exf(Const/T) -> exf(-Const/T) (big change in the results)
   - replace rhonil by rhoConstFresh in computation of evap (bug fix)
   - replace u/vstress=tau*rd*ws*cw by tau*rd*u/vwind (changes results)
   - replace
     rd(i,j)= rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh )
     shn    = sh(i,j,bi,bj)*rd(i,j)/rdn(i,j)
     by
     shn    = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh )
     (changes results)


Revision 1.21 - (view) (download) (annotate) - [select for diffs]
Tue May 18 12:21:32 2010 UTC (14 years, 6 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint62g
Changes since 1.20: +20 -12 lines
Diff to previous 1.20
cosmetic changes: make exf_bulkformulae look more like
exf_bulk_largeyager04 so that it is easier to compare the two routines


Revision 1.20 - (view) (download) (annotate) - [select for diffs]
Fri Sep 28 19:39:58 2007 UTC (17 years, 2 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint59h, checkpoint59i, checkpoint59j, checkpoint59k, checkpoint59l, checkpoint59m, checkpoint59n, checkpoint59o, checkpoint59p, checkpoint59q, checkpoint59r, checkpoint60, checkpoint61, checkpoint61a, checkpoint61b, checkpoint61c, checkpoint61d, checkpoint61e, checkpoint61f, checkpoint61g, checkpoint61h, checkpoint61i, checkpoint61j, checkpoint61k, checkpoint61l, checkpoint61m, checkpoint61n, checkpoint61o, checkpoint61p, checkpoint61q, checkpoint61r, checkpoint61s, checkpoint61t, checkpoint61u, checkpoint61v, checkpoint61w, checkpoint61x, checkpoint61y, checkpoint61z, checkpoint62, checkpoint62a, checkpoint62b, checkpoint62c, checkpoint62d, checkpoint62e, checkpoint62f
Changes since 1.19: +30 -18 lines
Diff to previous 1.19
Fix store directives, keys, recomputations, following changes
for vectorization.


Revision 1.19 - (view) (download) (annotate) - [select for diffs]
Fri Sep 28 07:45:59 2007 UTC (17 years, 2 months ago) by mlosch
Branch: MAIN
Changes since 1.18: +140 -118 lines
Diff to previous 1.18
introduce 2D fields and vectorize code


Revision 1.18 - (view) (download) (annotate) - [select for diffs]
Wed Aug 1 23:03:26 2007 UTC (17 years, 4 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint59f, checkpoint59g
Changes since 1.17: +16 -14 lines
Diff to previous 1.17
Remove those function calls to help vectorize bulk formulae.


Revision 1.17 - (view) (download) (annotate) - [select for diffs]
Mon May 14 19:32:08 2007 UTC (17 years, 6 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint59b, checkpoint59c, checkpoint59d, checkpoint59e
Changes since 1.16: +12 -11 lines
Diff to previous 1.16
remove us (use wspeed instead); add wStress .


Revision 1.16 - (view) (download) (annotate) - [select for diffs]
Wed May 2 22:31:35 2007 UTC (17 years, 7 months ago) by heimbach
Branch: MAIN
Changes since 1.15: +5 -8 lines
Diff to previous 1.15
Further exf cleanup:
o change various "constants" into runtime parameters
o cleaned-up Large&Yeager04 routine which should eventually
  replace exf_bulkformulae.F (changed names of S/R and CPP)
  and merged various ALLOW_ATM_WIND options


Revision 1.15 - (view) (download) (annotate) - [select for diffs]
Mon Apr 16 23:27:20 2007 UTC (17 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint59, checkpoint59a
Changes since 1.14: +4 -4 lines
Diff to previous 1.14
move EXF header files from lower_case.h to UPPER_CASE.h ;
 add missing cvs Header & Name


Revision 1.14 - (view) (download) (annotate) - [select for diffs]
Thu Mar 8 08:59:39 2007 UTC (17 years, 9 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint58w_post, checkpoint58x_post, checkpoint58y_post
Changes since 1.13: +10 -3 lines
Diff to previous 1.13
In the case of #undef ALLOW_ATM_WIND, ustress and vstress are defined
on u and v points and tau needs to be computed from the stresses
averaged to mass points.


Revision 1.13 - (view) (download) (annotate) - [select for diffs]
Wed Jan 10 21:44:38 2007 UTC (17 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint58u_post, checkpoint58v_post
Changes since 1.12: +26 -13 lines
Diff to previous 1.12
when wind-stress is given as input (#undef ALLOW_ATM_WIND),
 by-pass turbulent momentum calculation.


Revision 1.12 - (view) (download) (annotate) - [select for diffs]
Thu May 25 18:32:55 2006 UTC (18 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint58f_post, checkpoint58g_post, checkpoint58h_post, checkpoint58i_post, checkpoint58j_post, checkpoint58k_post, checkpoint58l_post, checkpoint58m_post, checkpoint58n_post, checkpoint58o_post, checkpoint58p_post, checkpoint58q_post, checkpoint58r_post, checkpoint58s_post, checkpoint58t_post
Changes since 1.11: +53 -179 lines
Diff to previous 1.11
o add new fields wspeed, snowprecip (to be able to couple to thsice)
o correct Stefan-Boltzmann constant
o new parameter for longwave surface emittance
o separate some stuff from exf_bulkformulae into new routines
  exf_radiation, exf_wind


Revision 1.11 - (view) (download) (annotate) - [select for diffs]
Tue Dec 13 19:46:46 2005 UTC (18 years, 11 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57z_post, checkpoint58, checkpoint58a_post, checkpoint58b_post, checkpoint58c_post, checkpoint58d_post, checkpoint58e_post
Changes since 1.10: +2 -4 lines
Diff to previous 1.10
Adding unfinished 3-dim. relaxation code.


Revision 1.10 - (view) (download) (annotate) - [select for diffs]
Tue Jun 28 22:05:49 2005 UTC (19 years, 5 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpint57u_post, checkpoint57j_post, checkpoint57k_post, checkpoint57l_post, checkpoint57m_post, checkpoint57n_post, checkpoint57o_post, checkpoint57p_post, checkpoint57q_post, checkpoint57r_post, checkpoint57s_post, checkpoint57t_post, checkpoint57v_post, checkpoint57w_post, checkpoint57x_post, checkpoint57y_post, checkpoint57y_pre
Branch point for: release1_50yr
Changes since 1.9: +1 -12 lines
Diff to previous 1.9
Extended diagnostics output for EXF
o now includes all EXF variables
o hs, hl moved to common block
o separate S/R for diagnostics, called after ctrl vector is added
o name changed for EXFsw -> EXFswnet, EXFlw -> EXFlwnet


Revision 1.9 - (view) (download) (annotate) - [select for diffs]
Mon Jun 27 16:34:29 2005 UTC (19 years, 5 months ago) by heimbach
Branch: MAIN
Changes since 1.8: +3 -3 lines
Diff to previous 1.8
Bug fix (spotted by Eliyahu Biton):
Bracket missing in eqn. for psimh (eqn. 7 of Large & Pond, 1982);
terms -2*ATAN(x) + pi/2 were added to both stable and unstable case.


Revision 1.8 - (view) (download) (annotate) - [select for diffs]
Sat May 7 19:25:02 2005 UTC (19 years, 7 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint57h_done, checkpoint57h_post, checkpoint57h_pre, checkpoint57i_post
Changes since 1.7: +4 -4 lines
Diff to previous 1.7
fixed bug with diagnostics output


Revision 1.7 - (view) (download) (annotate) - [select for diffs]
Thu May 5 16:41:54 2005 UTC (19 years, 7 months ago) by dimitri
Branch: MAIN
Changes since 1.6: +10 -1 lines
Diff to previous 1.6
added pkg/exf, SALTanom, and SALTSQan diagnostics


Revision 1.6 - (view) (download) (annotate) - [select for diffs]
Fri Jul 2 00:48:23 2004 UTC (20 years, 5 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint53g_post, checkpoint54, checkpoint54a_post, checkpoint54a_pre, checkpoint54b_post, checkpoint54c_post, checkpoint54d_post, checkpoint54e_post, checkpoint54f_post, checkpoint55, checkpoint55a_post, checkpoint55b_post, checkpoint55c_post, checkpoint55d_post, checkpoint55d_pre, checkpoint55e_post, checkpoint55f_post, checkpoint55g_post, checkpoint55h_post, checkpoint55i_post, checkpoint55j_post, checkpoint56, checkpoint56a_post, checkpoint56b_post, checkpoint56c_post, checkpoint57, checkpoint57a_post, checkpoint57a_pre, checkpoint57b_post, checkpoint57c_post, checkpoint57c_pre, checkpoint57d_post, checkpoint57e_post, checkpoint57f_post, checkpoint57f_pre, checkpoint57g_post, checkpoint57g_pre, eckpoint57e_pre
Changes since 1.5: +32 -27 lines
Diff to previous 1.5
o Modified logic for ALLOW_ATM_[TEMP/WIND]
o temporary field for function calls


Revision 1.5 - (view) (download) (annotate) - [select for diffs]
Wed Mar 3 05:17:44 2004 UTC (20 years, 9 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint52l_post, checkpoint52l_pre, checkpoint52m_post, checkpoint52n_post, checkpoint53, checkpoint53a_post, checkpoint53b_post, checkpoint53b_pre, checkpoint53c_post, checkpoint53d_post, checkpoint53d_pre, checkpoint53f_post, hrcube5
Changes since 1.4: +3 -3 lines
Diff to previous 1.4
o no restoring terms under ice for pkg/seaice
o modfied EXF_EXTERNAL_FLUXES option
o added exf_albedo parameter


Revision 1.4 - (view) (download) (annotate) - [select for diffs]
Thu Oct 9 04:19:19 2003 UTC (21 years, 1 month ago) by edhill
Branch: MAIN
CVS Tags: branch-netcdf, checkpoint51i_post, checkpoint51k_post, checkpoint51l_post, checkpoint51l_pre, checkpoint51m_post, checkpoint51n_post, checkpoint51n_pre, checkpoint51o_post, checkpoint51o_pre, checkpoint51p_post, checkpoint51q_post, checkpoint51r_post, checkpoint51s_post, checkpoint51t_post, checkpoint51u_post, checkpoint52, checkpoint52a_post, checkpoint52a_pre, checkpoint52b_post, checkpoint52b_pre, checkpoint52c_post, checkpoint52d_post, checkpoint52d_pre, checkpoint52e_post, checkpoint52e_pre, checkpoint52f_post, checkpoint52f_pre, checkpoint52h_pre, checkpoint52i_post, checkpoint52i_pre, checkpoint52j_post, checkpoint52j_pre, checkpoint52k_post, ecco_c52_e35, hrcube4, hrcube_1, hrcube_2, hrcube_3
Branch point for: branch-nonh, checkpoint51n_branch, netcdf-sm0, tg2-branch
Changes since 1.3: +3 -3 lines
Diff to previous 1.3
 o first check-in for the "branch-genmake2" merge
 o verification suite as run on shelley (gcc 3.2.2):

Wed Oct  8 23:42:29 EDT 2003
                T           S           U           V
G D M    c        m  s        m  s        m  s        m  s
E p a R  g  m  m  e  .  m  m  e  .  m  m  e  .  m  m  e  .
N n k u  2  i  a  a  d  i  a  a  d  i  a  a  d  i  a  a  d
2 d e n  d  n  x  n  .  n  x  n  .  n  x  n  .  n  x  n  .

OPTFILE=NONE

Y Y Y Y 13 16 16 16  0 16 16 16 16 16 16 16 16 13 12  0  0 pass  adjustment.128x64x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16  0  0 16 16  0  0 pass  adjustment.cs-32x32x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16 22  0 16 16 22  0 pass  adjust_nlfs.cs-32x32x1
Y Y Y Y -- 13 13 16 16 13 13 13 13 16 16 16 16 16 16 16 16 N/O   advect_cs
Y Y Y Y -- 22 16 16 16 16 16 16 13 16 16 16 16 16 16 16 16 N/O   advect_xy
Y Y Y Y -- 13 16 13 16 16 16 16 16 16 16 22 16 16 16 16 16 N/O   advect_xz
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  aim.5l_cs
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 16 16 16 16 13 16 pass  aim.5l_Equatorial_Channel
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 13 16 16 13 13 16 pass  aim.5l_LatLon
Y Y Y Y 13 16 16 16 16 16 16 16 16 16 13 12 13 13 16 13 16 pass  exp0
Y Y Y Y 14 16 16 16 16 16 16 16 22 16 16 16 13 16 16 22 16 pass  exp1
Y Y Y Y 13 13 16 13 16 16 16 16 16 13 13 16 16 13 13 13 13 pass  exp2
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  exp4
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 22 16 16 16 22 16 pass  exp5
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  front_relax
Y Y Y Y 14 16 16 13 13 16 16 13 13 16 13 13 16 12 13 13 16 pass  global_ocean.90x40x15
Y Y Y Y 10 16 16 13 13 16 13 16 16 13 13 13 13 16 16 13 16 FAIL  global_ocean.cs32x15
Y Y Y Y  6 11 12 13 13 12 13 16 13  9  9  9  9 10  9  9 11 FAIL  global_ocean_pressure
Y Y Y Y 14 16 16 13 16 16 16 13 13 13 13 13 16 12 16 13 16 pass  global_with_exf
Y Y Y Y 14 16 16 16 16 16 16 16 16 11 13 22 13 16 16  9 16 pass  hs94.128x64x5
Y Y Y Y 13 16 16 16 16 16 16 16 16 11 16 16 16 13 16 22 13 pass  hs94.1x64x5
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 13 13 16 16 22 13 pass  hs94.cs-32x32x5
Y Y Y Y 10 10 16 13 13 16 16 16 22 16 13 13 13 13 13 22 13 FAIL  ideal_2D_oce
Y Y Y Y  8 16 16 16 16 16 16 16 16 13 13  8 16 16 16 16 16 FAIL  internal_wave
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 13 22 13 13 13 22 16 pass  inverted_barometer
Y Y Y Y 12 16 16 16 16 16 16 16 16 16 13 12 13 13 13 13 13 FAIL  lab_sea
Y Y Y Y 11 16 16 16 16 16 16 16 13 13 13 12 13 16 13 12 13 FAIL  natl_box
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  plume_on_slope
Y Y Y Y 13 16 16 16 16 13 16 16 16 16 16 16 16 13 16 16 16 pass  solid-body.cs-32x32x1


Revision 1.3 - (view) (download) (annotate) - [select for diffs]
Tue Jun 24 16:07:32 2003 UTC (21 years, 5 months ago) by heimbach
Branch: MAIN
CVS Tags: branchpoint-genmake2, checkpoint51, checkpoint51a_post, checkpoint51b_post, checkpoint51b_pre, checkpoint51c_post, checkpoint51d_post, checkpoint51e_post, checkpoint51f_post, checkpoint51f_pre, checkpoint51g_post, checkpoint51h_pre, checkpoint51i_pre, checkpoint51j_post
Branch point for: branch-genmake2
Changes since 1.2: +5 -13 lines
Diff to previous 1.2
Merging for c51 vs. e34


Revision 1.2 - (view) (download) (annotate) - [select for diffs]
Fri May 23 18:37:31 2003 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint50f_post, checkpoint50g_post, checkpoint50h_post, checkpoint50i_post
Changes since 1.1: +506 -0 lines
Diff to previous 1.1
o exf totally restructured
  - replaced all exf_set_ routines by one generic exf_set_gen.F
    and made sure it's still differentiable
  - split exf_getffields.F into new exf_bulkformulae.F
  - exf_inscal_/exf_outscal_ suffixes consistent with field names
  - updated adjoint/makefile and relevant verif. accordingly


Revision 1.1
Fri May 23 16:18:57 2003 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
Branch point for: ecco-branch
FILE REMOVED
file exf_bulkformulae.F was initially added on branch ecco-branch.


This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, select a symbolic revision name using the selection box, or choose 'Use Text Field' and enter a numeric revision.

  Diffs between and
  Type of Diff should be a

Sort log by:

  ViewVC Help
Powered by ViewVC 1.1.22