/[MITgcm]/MITgcm/pkg/ocn_compon_interf/CPL_DIAGS.h
ViewVC logotype

Contents of /MITgcm/pkg/ocn_compon_interf/CPL_DIAGS.h

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

Revision 1.3 - (show annotations) (download)
Wed Oct 27 23:19:42 2004 UTC (19 years, 8 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint57o_post, checkpoint57m_post, checkpoint58e_post, checkpoint57r_post, checkpoint57f_post, checkpoint57s_post, checkpoint57j_post, checkpoint58b_post, checkpoint58m_post, checkpoint57b_post, checkpoint57f_pre, checkpoint57k_post, checkpoint57d_post, checkpoint57g_post, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint58n_post, checkpoint58x_post, checkpoint57g_pre, checkpoint58h_post, checkpoint57e_post, checkpoint58w_post, checkpoint56c_post, checkpoint58j_post, checkpoint57h_post, checkpoint57y_pre, checkpoint57a_post, checkpoint58q_post, checkpoint57v_post, checkpoint59a, checkpoint59, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint57h_done, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58o_post, checkpoint57z_post, eckpoint57e_pre, checkpoint58c_post, checkpoint57h_pre, checkpoint58k_post, checkpoint57c_post, checkpoint58u_post, checkpoint58y_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint58t_post, checkpoint57l_post, checkpoint56a_post
Changes since 1.2: +4 -1 lines
File MIME type: text/plain 
 o cpl_aim+ocn with mnc output from the ocn_compon_interf package
   - works on itrda w/g77 (see: verification/cpl_aim+ocn/itrda_notes.txt)
   - needs testing on cg01 (must remove the mpirun "-wd" option from
     the run_cpl_test script)
1 C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/CPL_DIAGS.h,v 1.2 2004/05/21 19:42:25 jmc Exp $
2 C $Name: $
3
4 #ifdef COMPONENT_MODULE
5
6 C /==========================================================\
7 C | CPL_DIAGS.h |
8 C | o Header for CPL diagnostic output |
9 C |==========================================================|
10 C | Declares global arrays used for holding/accumulating |
11 C | diagnostic output from CPL. |
12 C \==========================================================/
13
14 #ifdef ALLOW_TIMEAVE
15
16 C Timer for CPL diags
17 _RL CPL_TimeAve(Nr,nSx,nSy)
18 COMMON /CPL_TAVE/ CPL_TimeAve
19
20 C SLPtave - Atmospheric Sea-Level pressure (Pa=N/m2)
21 C HFtave - Net surface heat-flux (W/m2, +=upward)
22 C QSWtave - Net shortwave heat flux (W/m2, +=upward)
23 C QLTtave - latent heat flux (W/m2, +=upward)
24 C QSNtave - sensible heat flux (W/m2, +=upward)
25 C QLWtave - net longwave heat flux (W/m2, +=upward)
26 C UGtave - wind speed @ ground, zonal component (m/s)
27 C VGtave - wind speed @ ground, merid. component (m/s)
28 C TXtave - surface stress (Pa=N/m2), zonal compon.
29 C TYtave - surface stress (Pa=N/m2), merid compon.
30 C FWtave - Net fresh water flux (=E-P-R) (m/s, +=upward)
31 C SFxtave - salt flux (from sea-ice) (psu.kg/m2/s, +=upward)
32 C SICtave - sea-ice mass (kg/m2)
33 C MXLtave - Ocean mixed-layer depth (m)
34 C SSTtave - ocean surface temperature (oC)
35 C SSStave - ocean surface salinity (psu)
36 C vSqtave - ocean surface velocity square (m2/s2)
37 C
38 COMMON /CPL_TAVE/
39 & SLPtave, HFtave, QSWtave,
40 c & QLTtave, QSNtave, QLWtave,
41 c & UGtave, VGtave,
42 & TXtave, TYtave,
43 & FWtave, SFxtave, SICtave,
44 & MXLtave, SSTtave, SSStave, vSqtave
45 _RL SLPtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46 _RL HFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47 _RL QSWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
48 c _RL QLTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
49 c _RL QSNtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
50 c _RL QLWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
51 c _RL UGtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
52 c _RL VGtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
53 _RL TXtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
54 _RL TYtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
55 _RL FWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56 _RL SFxtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57 _RL SICtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
58 _RL MXLtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
59 _RL SSTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
60 _RL SSStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
61 _RL vSqtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
62
63 #endif /* ALLOW_TIMEAVE */
64
65
66 #endif /* COMPONENT_MODULE */
67
68 CEH3 ;;; Local Variables: ***
69 CEH3 ;;; mode:fortran ***
70 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22