/[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.1 - (hide annotations) (download)
Tue Feb 26 16:04:47 2002 UTC (22 years, 3 months ago) by adcroft
Branch: release1
Changes since 1.4: +7 -1 lines
File MIME type: text/plain 
Merging changes on MAIN between checkpoint43 and checkpoint43a-release1mods
Command: cvs -q update -jcheckpoint43 -jcheckpoint43a-release1mods -d -P

These changes are most of the changes between c43 and c44 except those
that occured after "12:45 11 Jan 2002". As far as I can tell it is
checkpoint43 with the following mods:

  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
  o Jamar wet-points

This update does not contain the following mods that are in checkpoint44

  o bug fix in pkg/generic_advdiff/
    - thread related bug, bi,bj arguments in vertical advection routines
  o some changes to pkg/autodiff, pkg/cost, pkg/exf, pkg/ecco,
    verification/carbon and model/src/ related to adjoint
  o some new Matlab scripts for diagnosing model density
    - utils/matlab/dens_poly3.m and ini_poly3.m

The list of exclusions is accurate based on a "cvs diff". The list of
inclusions is based on the record in doc/tag-index which may not be complete.
1 adcroft 1.4.2.1 C $Header: /u/gcmpack/MITgcm/model/inc/SURFACE.h,v 1.5 2001/11/08 20:57:51 heimbach Exp $
2 jmc 1.1 C $Name: $
3     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 jmc 1.3 COMMON /SURF_CHANGE/
50     & hFac_surfC, hFac_surfW, hFac_surfS
51     _RS hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
52     _RS hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53     _RS hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
54     #endif /* NONLIN_FRSURF */
  ViewVC Help
Powered by ViewVC 1.1.22