/[MITgcm]/MITgcm/pkg/seaice/SEAICE_DIAGS.h
ViewVC logotype

Annotation of /MITgcm/pkg/seaice/SEAICE_DIAGS.h

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


Revision 1.2 - (hide annotations) (download)
Tue Nov 12 20:47:27 2002 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint47j_post, checkpoint48d_pre, branch-exfmods-tag, checkpoint47, checkpoint47f_post, checkpoint48d_post, checkpoint47c_post, checkpoint47d_post, checkpoint47a_post, checkpoint48a_post, checkpoint46n_post, checkpoint48e_post, checkpoint47e_post, checkpoint47h_post, checkpoint48c_post, checkpoint47i_post, checkpoint48, checkpoint47b_post, checkpoint47g_post, checkpoint48b_post, checkpoint47d_pre, checkpoint48c_pre
Branch point for: c24_e25_ice, ecco-branch, branch-exfmods-curt
Changes since 1.1: +32 -0 lines
File MIME type: text/plain
Merging from release1_p8 branch:
o New package: pkg/seaice
  Sea ice model by D. Menemenlis (JPL) and Jinlun Zhang (Seattle).
  The sea-ice code is based on Hibler (1979-1980).
  Two sea-ice dynamic solvers, ADI and LSR, are included.
  In addition to computing prognostic sea-ice variables and diagnosing
  the forcing/external data fields that drive the ocean model,
  SEAICE_MODEL also sets theta to the freezing point under sea-ice.
  The implied surface heat flux is then stored in variable
  surfaceTendencyTice, which is needed by KPP package (kpp_calc.F and
  kpp_transport_t.F) to diagnose surface buoyancy fluxes and for the
  non-local transport term.  Because this call precedes model
  thermodynamics, temperature under sea-ice may not be "exactly" at
  the freezing point by the time theta is dumped or time-averaged.

1 heimbach 1.2 C $Header:
2    
3     #ifdef ALLOW_SEAICE
4    
5     C /==========================================================\
6     C | SEAICE_DIAGS.h |
7     C | o Header for SEAICE diagnostic output |
8     C \==========================================================/
9    
10     #ifdef ALLOW_TIMEAVE
11    
12     C Keep track of time
13     _RL SEAICE_TimeAve(Nr,nSx,nSy)
14     COMMON /SEAICE_TAVE/ SEAICE_TimeAve
15    
16     C Storage arrays for time-averages
17     _RL FUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
18     _RL FVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
19     _RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
20     _RL QNETtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
21     _RL QSWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
22     _RL UICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
23     _RL VICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
24     _RL HEFFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
25     _RL AREAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy)
26     COMMON /SEAICE_TAVE_DIAGS/
27     & FUtave, FVtave, EmPmRtave, QNETtave, QSWtave,
28     & UICEtave, VICEtave, HEFFtave, AREAtave
29    
30     #endif /* ALLOW_TIMEAVE */
31    
32     #endif ALLOW_SEAICE

  ViewVC Help
Powered by ViewVC 1.1.22