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

Contents of /MITgcm/pkg/seaice/SEAICE_PARAMS.h

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

Revision 1.3 - (show annotations) (download)
Thu Dec 5 08:43:02 2002 UTC (21 years, 6 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint47e_post, checkpoint47c_post, checkpoint47d_pre, checkpoint47d_post, branch-exfmods-tag, checkpoint47b_post
Branch point for: branch-exfmods-curt
Changes since 1.2: +12 -1 lines
File MIME type: text/plain 
checkpoint47b_post
Merging from release1_p9:
o pkg/seaice
  - removed GOTO's and added taf directives
  - double precision constants to reduce the g77 (Linux)
    to F77 (SGI) differences reported in release1_p8
o tools/genmake
  - added SGI options
o verification/testscript
  - updated to that of checkpoint47a_post
o verification/global_ocean.90x40x15/input/eedata
  - modified for SGI f77 compatibility
o verification/lab_sea
  - added description of sea-ice model
  - added missing matlab routines
  - added test of thermodynamics parallelization
Modified Files:
   doc/tag-index pkg/seaice/SEAICE_FFIELDS.h
   pkg/seaice/SEAICE_PARAMS.h pkg/seaice/adi.F
   pkg/seaice/advect.F pkg/seaice/budget.F pkg/seaice/diffus.F
   pkg/seaice/dynsolver.F pkg/seaice/groatb.F pkg/seaice/growth.F
   pkg/seaice/lsr.F pkg/seaice/ostres.F
   pkg/seaice/seaice_do_diags.F pkg/seaice/seaice_get_forcing.F
   pkg/seaice/seaice_init.F pkg/seaice/seaice_model.F
   pkg/seaice/seaice_readparms.F tools/genmake
   verification/global_ocean.90x40x15/input/eedata
   verification/lab_sea/README
   verification/lab_sea/matlab/lookat_exp1.m
   verification/lab_sea/matlab/lookat_exp2.m
   verification/lab_sea/matlab/lookat_exp3.m
   verification/lab_sea/matlab/lookat_exp4.m
   verification/lab_sea/matlab/lookat_exp5.m
   verification/lab_sea/matlab/lookat_exp6.m
   verification/lab_sea/results/AREAtave.0000000010.data
   verification/lab_sea/results/HEFFtave.0000000010.data
   verification/lab_sea/results/UICEtave.0000000010.data
   verification/lab_sea/results/VICEtave.0000000010.data
   verification/lab_sea/results/output.txt
Added Files:
   verification/lab_sea/seaice.ps
   verification/lab_sea/matlab/lookat_exp7.m
   verification/lab_sea/matlab/mmax.m
   verification/lab_sea/matlab/mypcolor.m
   verification/lab_sea/matlab/myquiver.m
   verification/lab_sea/matlab/readbin.m
   verification/lab_sea/matlab/wysiwyg.m
Removed Files:
   verification/lab_sea/code/KPP_OPTIONS.h
1 C $Header:
2
3 #ifdef ALLOW_SEAICE
4
5 C /==========================================================\
6 C | SEAICE_PARAMS.h |
7 C | o Basic parameter header for sea ice model. |
8 C \==========================================================/
9
10 C-- COMMON /SEAICE_PARM_L/ Logical parameters of sea ice model.
11 C SEAICEwriteState - if true, write sea ice state to file
12 C SEAICEuseLSR - if true, use LSR rather than ADI solver
13 C SEAICEuseDYNAMICS - if false, do not use dynamics
14 C
15 LOGICAL SEAICEwriteState, SEAICEuseLSR, SEAICEuseDYNAMICS
16 COMMON /SEAICE_PARM_L/
17 & SEAICEwriteState, SEAICEuseLSR, SEAICEuseDYNAMICS
18
19 C-- COMMON /SEAICE_PARM_I/ Integer valued parameters of sea ice model.
20 C LAD - time stepping used for sea-ice advection:
21 C 1 = LEAPFROG, 2 = BACKWARD EULER.
22 C IMAX_TICE - number of iterations for ice heat budget 10
23 C NPSEUDO - number of pseudo-timesteps used in dynsolver
24 C DO PSEUDO-TIMESTEPS TO OBTAIN AN ACCURATE VISCOUS-PLASTIC SOLUTION
25 C 10 PSEUDO-TIMESTEPS OR MORE ARE SUGGESTED FOR HIGH-RESOLUTION (~10KM)
26 C 1 PSEUDO-TIMESTEP CAN BE USED FOR LOW-RESOLUTION GLOBAL MODELING
27 C
28 INTEGER LAD, IMAX_TICE, NPSEUDO
29 COMMON /SEAICE_PARM_I/ LAD, IMAX_TICE, NPSEUDO
30
31 C-- COMMON /SEAICE_PARM_C/ Character valued sea ice model parameters.
32 C gairxFile - File containing
33 C gairyFile - File containing
34 C tairFile - File containing
35 C qaFile - File containing
36 C floFile - File containing
37 C fshFile - File containing
38 C rainFile - File containing
39 C evapFile - File containing
40 C runoffFile - File containing
41 C
42 CHARACTER*(MAX_LEN_FNAM) gairxFile
43 CHARACTER*(MAX_LEN_FNAM) gairyFile
44 CHARACTER*(MAX_LEN_FNAM) tairFile
45 CHARACTER*(MAX_LEN_FNAM) qaFile
46 CHARACTER*(MAX_LEN_FNAM) floFile
47 CHARACTER*(MAX_LEN_FNAM) fshFile
48 CHARACTER*(MAX_LEN_FNAM) rainFile
49 CHARACTER*(MAX_LEN_FNAM) evapFile
50 CHARACTER*(MAX_LEN_FNAM) runoffFile
51 COMMON /SEAICE_PARM_C/ gairxFile, gairyFile, tairFile, qaFile,
52 & floFile, fshFile, rainFile, evapFile, runoffFile
53
54 C-- COMMON /SEAICE_PARM_RL/ Real valued parameters of sea ice model.
55 C SEAICE_dumpFreq - SEAICE dump frequency. (s)
56 C SEAICE_taveFreq - SEAICE time-averaging frequency. (s)
57 C SEAICE_drag - air-ice drag coefficient
58 C SEAICE_waterDrag - water-ice drag coefficient * water density
59 C SEAICE_albedo - summer albedo
60 C SEAICE_drySnowAlb - dry snow albedo
61 C SEAICE_wetSnowAlb - wet snow albedo
62 C SEAICE_waterAlbedo - water albedo
63 C SEAICE_strength - sea-ice strength
64 C SEAICE_sensHeat - sensible heat transfer coefficient
65 C SEAICE_latentWater - latent heat transfer coefficient for water
66 C SEAICE_latentIce - latent heat transfer coefficient for ice
67 C SEAICE_iceConduct - sea-ice conductivity
68 C SEAICE_snowConduct - snow conductivity
69 C SEAICE_emissivity - Stefan-Boltzman constant * emissivity
70 C SEAICE_snowThick - cutoff snow thickness
71 C SEAICE_shortwave - penetration shortwave radiation factor
72 C LSR_ERROR - sets accuracy of LSR solver
73 C DIFF1 - parameter used in advect.F
74 C A22 - parameter used in growth.F
75 C HO - parameter used in growth.F
76 C WindForcingStart - Time of first wind forcing record (s)
77 C WindForcingEnd - Time of last wind forcing record (s)
78 C WindForcingPeriod - Period between wind forcing records (s)
79 C FluxForcingStart - Time of first flux forcing record (s)
80 C FluxForcingEnd - Time of last flux forcing record (s)
81 C FluxForcingPeriod - Period between flux forcing records (s)
82 C SSTForcingStart - Time of first SST forcing record (s)
83 C SSTForcingEnd - Time of last SST forcing record (s)
84 C SSTForcingPeriod - Period between SST forcing records (s)
85 C SSSForcingStart - Time of first SSS forcing record (s)
86 C SSSForcingEnd - Time of last SSS forcing record (s)
87 C SSSForcingPeriod - Period between SSS forcing records (s)
88 C StartingYear - Starting year of integration
89 C EndingYear - Ending year of integration
90 C
91 _RL SEAICE_dumpFreq, SEAICE_taveFreq
92 _RL SEAICE_drag, SEAICE_waterDrag, SEAICE_albedo
93 _RL SEAICE_drySnowAlb, SEAICE_wetSnowAlb
94 _RL SEAICE_waterAlbedo, SEAICE_strength
95 _RL SEAICE_sensHeat, SEAICE_latentWater, SEAICE_latentIce
96 _RL SEAICE_iceConduct, SEAICE_snowConduct, SEAICE_emissivity
97 _RL SEAICE_snowThick, SEAICE_shortwave
98 _RL LSR_ERROR,DIFF1,A22,HO
99 _RL WindForcingStart, WindForcingEnd, WindForcingPeriod
100 _RL FluxForcingStart, FluxForcingEnd, FluxForcingPeriod
101 _RL SSTForcingStart, SSTForcingEnd, SSTForcingPeriod
102 _RL SSSForcingStart, SSSForcingEnd, SSSForcingPeriod
103 _RL StartingYear, EndingYear
104 COMMON /SEAICE_PARM_RL/
105 & SEAICE_dumpFreq, SEAICE_taveFreq,
106 & SEAICE_drag, SEAICE_waterDrag, SEAICE_albedo,
107 & SEAICE_drySnowAlb, SEAICE_wetSnowAlb,
108 & SEAICE_waterAlbedo, SEAICE_strength,
109 & SEAICE_sensHeat, SEAICE_latentWater, SEAICE_latentIce,
110 & SEAICE_iceConduct, SEAICE_snowConduct, SEAICE_emissivity,
111 & SEAICE_snowThick, SEAICE_shortwave,
112 & LSR_ERROR, DIFF1, A22, HO,
113 & WindForcingStart, WindForcingEnd, WindForcingPeriod,
114 & FluxForcingStart, FluxForcingEnd, FluxForcingPeriod,
115 & SSTForcingStart, SSTForcingEnd, SSTForcingPeriod,
116 & SSSForcingStart, SSSForcingEnd, SSSForcingPeriod,
117 & StartingYear, EndingYear
118
119 C-- COMMON /SEAICE_BOUND_RL/ Various bounding values
120 C MAX_HEFF - maximum ice thickness (m)
121 C MIN_TAIR - minimum air temperature (deg C)
122 C MIN_FLO - minimum incoming longwave (W/m^2)
123 C MAX_TICE - maximum ice temperature (deg C)
124 C MIN_TICE - minimum ice temperature (deg C)
125 C
126 _RL MAX_HEFF, MIN_TAIR, MIN_FLO, MAX_TICE, MIN_TICE
127 COMMON /SEAICE_BOUND_RL/
128 & MAX_HEFF, MIN_TAIR, MIN_FLO, MAX_TICE, MIN_TICE
129
130 C-- Seaice time step
131 COMMON /SEAICE_R/ SEAICE_DT
132 _RL SEAICE_DT
133
134 C-- Constants used by sea-ice model
135 _RL ZERO , ONE , TWO
136 parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 )
137 _RL QUART , HALF
138 parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 )
139
140 #endif ALLOW_SEAICE
  ViewVC Help
Powered by ViewVC 1.1.22