/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/STREAMICE_CG.h
ViewVC logotype

Contents of /MITgcm_contrib/dgoldberg/streamice/STREAMICE_CG.h

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


Revision 1.1 - (show annotations) (download)
Thu Mar 29 15:59:21 2012 UTC (13 years, 3 months ago) by heimbach
Branch: MAIN
File MIME type: text/plain
Initial check-in of Dan Goldberg's streamice package

1 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
2
3 #ifdef ALLOW_STREAMICE
4
5 COMMON /STREAMICE_CG_FIELDS_RL/
6 & taudx_SI, taudy_SI,
7 & Ru_SI, Rv_SI, Zu_SI, Zv_SI,
8 & DIAGu_SI, DIAGv_SI, RHSu_SI, RHSv_SI,
9 & ubd_SI, vbd_SI, Au_SI, Av_SI, Du_SI, Dv_SI,
10 & u_old_SI, v_old_SI, Zu_old_SI, Zv_old_SI,
11 & Ru_old_SI, Rv_old_SI,
12 & k1AtC_str,
13 & k2AtC_str,
14 & DPhi,
15 & grid_jacq_streamice,
16 & Xquad
17 _RL taudx_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
18 _RL taudy_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
19 _RL Rv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
20 _RL Ru_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
21 _RL Zu_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
22 _RL Zv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23 _RL DIAGu_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
24 _RL DIAGv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
25 _RL RHSu_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
26 _RL RHSv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27 _RL ubd_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28 _RL vbd_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29 _RL Au_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30 _RL Av_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
31 _RL Du_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32 _RL Dv_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
33 _RL u_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
34 _RL v_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
35 _RL Zu_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
36 _RL Zv_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
37 _RL Ru_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
38 _RL Rv_old_SI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
39
40 COMMON /STREAMICE_CG_FIELDS2_RL/
41 & streamice_cg_A1,
42 & streamice_cg_A2,
43 & streamice_cg_A3,
44 & streamice_cg_A4
45 _RL streamice_cg_A1
46 & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1)
47 _RL streamice_cg_A2
48 & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1)
49 _RL streamice_cg_A3
50 & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1)
51 _RL streamice_cg_A4
52 & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,-1:1,-1:1)
53
54 c THE FOLLOWING ARRAYS ARE FIXED FOR A SIMULATION (depend only on grid)
55 c BUT ARE HERE BECAUSE THEY ARE USED EXCLUSIVELY BY THE MATRIX SOLVE
56 _RL k1AtC_str (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57 _RL k2AtC_str (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
58 _RL DPhi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4,4,2)
59 _RL grid_jacq_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4)
60 _RL Xquad (2)
61
62
63 #endif /* ALLOW_STREAMICE */
64
65 CEH3 ;;; Local Variables: ***
66 CEH3 ;;; mode:fortran ***
67 CEH3 ;;; End: ***

  ViewVC Help
Powered by ViewVC 1.1.22