/[MITgcm]/MITgcm/model/inc/SURFACE.h
ViewVC logotype

Annotation of /MITgcm/model/inc/SURFACE.h

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


Revision 1.4.2.2 - (hide annotations) (download)
Mon Apr 8 20:10:36 2002 UTC (22 years, 1 month ago) by heimbach
Branch: release1
CVS Tags: release1_p13_pre, release1_p13, release1_p8, release1_p9, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, release1_chkpt44d_post, release1_p11, release1_p12, release1_p10, release1_p16, release1_p17, release1_p14, release1_p15, release1_p12_pre
Branch point for: release1_50yr
Changes since 1.4.2.1: +7 -3 lines
File MIME type: text/plain
Changes encapsulated by checkpoint43a-release1mods and chkpt44d_post
on the main trunk.
These are:

 o added missing EXCLUDE_MONITOR flags
 o changed "e" to "_d" in gmredi_slope_limit, gmredi_slope_psi
   (incompatible typ in MIN/MAX expressions caused problems
   on IBM SP3)
 o in genmake added variable MAKEDEPEND
   plus resetting for case SunOS
 o added timer_stats.c routine for IBM SP3
 o removed variables in dynamics
 o real fresh water flux implemented with non-linear free-surface.
 o few fix (mask in shap_s2, EmPmR in external_field_load,
   USE_NATURAL_BCS in solve_for_P);
 o add arguments myIter & myTime to S/R obcs_calc & solve_for_P
 o merge of relevant stuff from the ecco-branch:
   - genmake: removed $S64 overwrite for case SunOS
   - pkg/exf: update and corrections for field swapping and obcs
   - pkg/ecco: parameter lists for the_model_main, the_main_loop
               harmonized between ECCO and MITgcm
   - pkg/autodiff: added flow directives for obcs, mdsio_gl_slice
                   updated checkpointing_lev... lists for obcs
   - model/src: minor changes in forward_step, plot_field
                added directive for divided adjoint in the_main_loop
   - pkg/mdsio: added mdsio_gl_slice
 o check parameters & config (chkpt44a_pre,post)
 o OBC and NonLin_FrSurf.
 o fix bug in mom_vi_del2uv
 o select when filters are applied ; add options to zonal_filter (data.zonfilt)
 o gmredi: fix Pb in the adiabatic form ; add options (.e.g. Bolus advection)
 o update AIM experiments (NCEP input files)
 o improve and extend diagnostics (Monitor, TimeAve with NonLin-FrSurf)
 o added some stuff for AD

These were merged with
cvs co -r release1 -P MITgcm
cd MITgcm
cvs update -kk
cvs update -j checkpoint43a-release1mods -j chkpt44d_post -d -P -kk

1 heimbach 1.4.2.2 C $Header$
2     C $Name$
3 jmc 1.1 C
4 cnh 1.4 CBOP
5     C !ROUTINE: SURFACE.h
6     C !INTERFACE:
7     C include SURFACE.h
8     C !DESCRIPTION: \bv
9     C *==========================================================*
10     C | SURFACE.h
11     C | o Header file defining surface-related model varaibles
12     C *==========================================================*
13     C | Contains variables relative to the surface position
14     C | that are held fixed in linear free-surface formulation
15     C | but can vary with time with a non-linear free-surface.
16     C *==========================================================*
17     C \ev
18     CEOP
19 jmc 1.1
20     C-- COMMON /SOLVE_BAROT/ Barotropic variables common block
21 cnh 1.4 C Bo_surf :: Boyancy|1/rho [ocean|atmos] at surface level [= g | alpha(p_o)]
22     C recip_Bo :: 1/Bo_surf
23 jmc 1.1 COMMON /SOLVE_BAROT/ Bo_surf, recip_Bo
24     _RL Bo_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
25     _RL recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
26    
27 adcroft 1.2 C-- COMMON /SURF_INDEX/ Common block for surface related index
28 cnh 1.4 C ksurfC :: vertical index of the surface tracer cell
29     C ksurfW :: vertical index of the surface U point
30     C ksurfS :: vertical index of the surface V point
31 jmc 1.3 C IMPORTANT: ksurfC,W,S = Nr+1 where the fluid column is empty (continent)
32     COMMON /SURF_INDEX/ ksurfC, ksurfW, ksurfS
33     INTEGER ksurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34     INTEGER ksurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35     INTEGER ksurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36 adcroft 1.4.2.1
37     #ifdef EXACT_CONSERV
38     C hDivFlow :: Div. Barotropic Flow at current time [transport unit m3/s]
39     COMMON /EXACT_ETA_LOCAL/ hDivFlow
40     _RL hDivFlow(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
41     #endif
42 jmc 1.3
43     #ifdef NONLIN_FRSURF
44     C-- COMMON /SURF_CHANGE/ transient varariable used for Non-Lin Free-Surf
45 cnh 1.4 C hFac_surfC :: New thickness factor of the surface level
46 jmc 1.3 C center (Tracer point)
47 cnh 1.4 C hFac_surfW :: idem, West interface (U point)
48     C hFac_surfS :: idem, South interface (V point)
49 heimbach 1.4.2.2 C PmEpR :: keep the fresh water input (=-EmPmR) of the previous time step
50 jmc 1.3 COMMON /SURF_CHANGE/
51 heimbach 1.4.2.2 & hFac_surfC, hFac_surfW, hFac_surfS,
52     & PmEpR
53 jmc 1.3 _RS hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
54     _RS hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
55     _RS hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56 heimbach 1.4.2.2 _RS PmEpR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57    
58 jmc 1.3 #endif /* NONLIN_FRSURF */

  ViewVC Help
Powered by ViewVC 1.1.22