| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
100 |
ECCO_COST_INIT_VARIA |
objf_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
101 |
ECCO_COST_INIT_VARIA |
objf_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
102 |
ECCO_COST_INIT_VARIA |
objf_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
103 |
ECCO_COST_INIT_VARIA |
objf_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
104 |
ECCO_COST_INIT_VARIA |
objf_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
105 |
ECCO_COST_INIT_VARIA |
objf_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
106 |
ECCO_COST_INIT_VARIA |
objf_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
107 |
ECCO_COST_INIT_VARIA |
objf_temp0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
108 |
ECCO_COST_INIT_VARIA |
objf_salt0smoo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
109 |
ECCO_COST_INIT_VARIA |
objf_etan0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
110 |
ECCO_COST_INIT_VARIA |
objf_uvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
111 |
ECCO_COST_INIT_VARIA |
objf_vvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
112 |
ECCO_COST_INIT_VARIA |
objf_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
113 |
ECCO_COST_INIT_VARIA |
objf_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
114 |
ECCO_COST_INIT_VARIA |
objf_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
115 |
ECCO_COST_INIT_VARIA |
objf_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
116 |
ECCO_COST_INIT_VARIA |
objf_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
117 |
ECCO_COST_INIT_VARIA |
objf_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
118 |
ECCO_COST_INIT_VARIA |
objf_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
119 |
ECCO_COST_INIT_VARIA |
objf_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
120 |
ECCO_COST_INIT_VARIA |
objf_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
121 |
ECCO_COST_INIT_VARIA |
objf_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
122 |
ECCO_COST_INIT_VARIA |
objf_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
123 |
ECCO_COST_INIT_VARIA |
objf_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
124 |
ECCO_COST_INIT_VARIA |
objf_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
125 |
ECCO_COST_INIT_VARIA |
objf_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
126 |
ECCO_COST_INIT_VARIA |
objf_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
127 |
ECCO_COST_INIT_VARIA |
objf_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
128 |
ECCO_COST_INIT_VARIA |
objf_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
129 |
ECCO_COST_INIT_VARIA |
objf_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
130 |
ECCO_COST_INIT_VARIA |
objf_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
131 |
ECCO_COST_INIT_VARIA |
objf_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
132 |
ECCO_COST_INIT_VARIA |
objf_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
133 |
ECCO_COST_INIT_VARIA |
objf_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
134 |
ECCO_COST_INIT_VARIA |
objf_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
135 |
ECCO_COST_INIT_VARIA |
objf_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
136 |
ECCO_COST_INIT_VARIA |
objf_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
137 |
ECCO_COST_INIT_VARIA |
objf_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
138 |
ECCO_COST_INIT_VARIA |
objf_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
139 |
ECCO_COST_INIT_VARIA |
objf_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
140 |
ECCO_COST_INIT_VARIA |
objf_lwflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
141 |
ECCO_COST_INIT_VARIA |
objf_lwdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
142 |
ECCO_COST_INIT_VARIA |
objf_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
143 |
ECCO_COST_INIT_VARIA |
objf_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
145 |
ECCO_COST_INIT_VARIA |
objf_atl(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
147 |
ECCO_COST_INIT_VARIA |
objf_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
148 |
ECCO_COST_INIT_VARIA |
objf_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
149 |
ECCO_COST_INIT_VARIA |
objf_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
150 |
ECCO_COST_INIT_VARIA |
objf_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
151 |
ECCO_COST_INIT_VARIA |
objf_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
152 |
ECCO_COST_INIT_VARIA |
objf_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
153 |
ECCO_COST_INIT_VARIA |
objf_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
154 |
ECCO_COST_INIT_VARIA |
objf_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
156 |
ECCO_COST_INIT_VARIA |
objf_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
159 |
ECCO_COST_INIT_VARIA |
objf_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
161 |
ECCO_COST_INIT_VARIA |
num_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
162 |
ECCO_COST_INIT_VARIA |
num_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
163 |
ECCO_COST_INIT_VARIA |
num_hfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
164 |
ECCO_COST_INIT_VARIA |
num_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
165 |
ECCO_COST_INIT_VARIA |
num_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
166 |
ECCO_COST_INIT_VARIA |
num_sfluxmm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
167 |
ECCO_COST_INIT_VARIA |
num_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
168 |
ECCO_COST_INIT_VARIA |
num_tauum(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
169 |
ECCO_COST_INIT_VARIA |
num_tauv(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
170 |
ECCO_COST_INIT_VARIA |
num_tauvm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
171 |
ECCO_COST_INIT_VARIA |
num_temp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
172 |
ECCO_COST_INIT_VARIA |
num_salt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
173 |
ECCO_COST_INIT_VARIA |
num_temp0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
174 |
ECCO_COST_INIT_VARIA |
num_salt0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
175 |
ECCO_COST_INIT_VARIA |
num_etan0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
176 |
ECCO_COST_INIT_VARIA |
num_uvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
177 |
ECCO_COST_INIT_VARIA |
num_vvel0(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
178 |
ECCO_COST_INIT_VARIA |
num_tmi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
179 |
ECCO_COST_INIT_VARIA |
num_sst(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
180 |
ECCO_COST_INIT_VARIA |
num_sss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
181 |
ECCO_COST_INIT_VARIA |
num_bp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
182 |
ECCO_COST_INIT_VARIA |
num_h(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
183 |
ECCO_COST_INIT_VARIA |
num_tp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
184 |
ECCO_COST_INIT_VARIA |
num_ers(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
185 |
ECCO_COST_INIT_VARIA |
num_gfo(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
186 |
ECCO_COST_INIT_VARIA |
num_ctdt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
187 |
ECCO_COST_INIT_VARIA |
num_ctds(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
188 |
ECCO_COST_INIT_VARIA |
num_ctdtclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
189 |
ECCO_COST_INIT_VARIA |
num_ctdsclim(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
190 |
ECCO_COST_INIT_VARIA |
num_xbt(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
191 |
ECCO_COST_INIT_VARIA |
num_argot(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
192 |
ECCO_COST_INIT_VARIA |
num_argos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
193 |
ECCO_COST_INIT_VARIA |
num_drift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
194 |
ECCO_COST_INIT_VARIA |
num_wdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
195 |
ECCO_COST_INIT_VARIA |
num_sdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
196 |
ECCO_COST_INIT_VARIA |
num_tdrift(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
197 |
ECCO_COST_INIT_VARIA |
num_scatx(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
198 |
ECCO_COST_INIT_VARIA |
num_scaty(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
199 |
ECCO_COST_INIT_VARIA |
num_scatxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
200 |
ECCO_COST_INIT_VARIA |
num_scatym(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
201 |
ECCO_COST_INIT_VARIA |
num_atemp(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
202 |
ECCO_COST_INIT_VARIA |
num_aqh(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
203 |
ECCO_COST_INIT_VARIA |
num_precip(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
204 |
ECCO_COST_INIT_VARIA |
num_swflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
205 |
ECCO_COST_INIT_VARIA |
num_swdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
206 |
ECCO_COST_INIT_VARIA |
num_lwflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
207 |
ECCO_COST_INIT_VARIA |
num_lwdown(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
208 |
ECCO_COST_INIT_VARIA |
num_uwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
209 |
ECCO_COST_INIT_VARIA |
num_vwind(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
210 |
ECCO_COST_INIT_VARIA |
num_curmtr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
211 |
ECCO_COST_INIT_VARIA |
num_diffkr(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
212 |
ECCO_COST_INIT_VARIA |
num_kapgm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
213 |
ECCO_COST_INIT_VARIA |
num_kapredi(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
214 |
ECCO_COST_INIT_VARIA |
num_eddytau(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
215 |
ECCO_COST_INIT_VARIA |
num_bottomdrag(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
217 |
ECCO_COST_INIT_VARIA |
num_usercost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
220 |
ECCO_COST_INIT_VARIA |
num_sshv4cost(k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
222 |
ECCO_COST_INIT_VARIA |
num_theta_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
223 |
ECCO_COST_INIT_VARIA |
num_salt_ini_fin(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
228 |
ECCO_COST_INIT_VARIA |
objf_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
229 |
ECCO_COST_INIT_VARIA |
num_gencost(bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
234 |
ECCO_COST_INIT_VARIA |
objf_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
235 |
ECCO_COST_INIT_VARIA |
objf_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
236 |
ECCO_COST_INIT_VARIA |
objf_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
237 |
ECCO_COST_INIT_VARIA |
objf_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
238 |
ECCO_COST_INIT_VARIA |
objf_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
239 |
ECCO_COST_INIT_VARIA |
num_obcsn(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
240 |
ECCO_COST_INIT_VARIA |
num_obcss(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
241 |
ECCO_COST_INIT_VARIA |
num_obcsw(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
242 |
ECCO_COST_INIT_VARIA |
num_obcse(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
243 |
ECCO_COST_INIT_VARIA |
num_ageos(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
248 |
ECCO_COST_INIT_VARIA |
frame(i,j) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
249 |
ECCO_COST_INIT_VARIA |
cosphi(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
265 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
267 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
269 |
ECCO_COST_INIT_VARIA |
mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
273 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
275 |
ECCO_COST_INIT_VARIA |
tpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
277 |
ECCO_COST_INIT_VARIA |
tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
281 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
283 |
ECCO_COST_INIT_VARIA |
ersmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
285 |
ECCO_COST_INIT_VARIA |
ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
289 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
291 |
ECCO_COST_INIT_VARIA |
gfomask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
293 |
ECCO_COST_INIT_VARIA |
gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
297 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
299 |
ECCO_COST_INIT_VARIA |
tmimask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
304 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
306 |
ECCO_COST_INIT_VARIA |
sstmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
311 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
313 |
ECCO_COST_INIT_VARIA |
sssmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
318 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
320 |
ECCO_COST_INIT_VARIA |
bpmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
322 |
ECCO_COST_INIT_VARIA |
bpdat(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
335 |
ECCO_COST_INIT_VARIA |
tbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
336 |
ECCO_COST_INIT_VARIA |
sbar_gen(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
346 |
ECCO_COST_INIT_VARIA |
objf_hmean = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
347 |
ECCO_COST_INIT_VARIA |
objf_hfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
348 |
ECCO_COST_INIT_VARIA |
objf_sfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
349 |
ECCO_COST_INIT_VARIA |
objf_transp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
350 |
ECCO_COST_INIT_VARIA |
num_hmean = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
351 |
ECCO_COST_INIT_VARIA |
num_transp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
359 |
ECCO_COST_INIT_VARIA |
objf_obcsvol = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
360 |
ECCO_COST_INIT_VARIA |
num_obcsvol = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
95 |
ECCO_COST_INIT_VARIA |
objf_hflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
96 |
ECCO_COST_INIT_VARIA |
objf_hfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
97 |
ECCO_COST_INIT_VARIA |
objf_sflux(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
98 |
ECCO_COST_INIT_VARIA |
objf_sfluxm(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
99 |
ECCO_COST_INIT_VARIA |
objf_tauu(bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1003 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1034 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1072 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1104 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1139 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1172 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1207 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
120 |
ECCO_COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
121 |
ECCO_COST_WEIGHTS |
wsi(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
122 |
ECCO_COST_WEIGHTS |
wui(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1239 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
123 |
ECCO_COST_WEIGHTS |
wvi(k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1271 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
129 |
ECCO_COST_WEIGHTS |
whflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1303 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
130 |
ECCO_COST_WEIGHTS |
whfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
131 |
ECCO_COST_WEIGHTS |
wsflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
132 |
ECCO_COST_WEIGHTS |
wsfluxm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1335 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
133 |
ECCO_COST_WEIGHTS |
wtauu (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
134 |
ECCO_COST_WEIGHTS |
wtauum (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
135 |
ECCO_COST_WEIGHTS |
wtauv (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1367 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
136 |
ECCO_COST_WEIGHTS |
wtauvm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
137 |
ECCO_COST_WEIGHTS |
watemp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
138 |
ECCO_COST_WEIGHTS |
waqh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1399 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
139 |
ECCO_COST_WEIGHTS |
wprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
140 |
ECCO_COST_WEIGHTS |
wswflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
wswdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wsnowprecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1432 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
143 |
ECCO_COST_WEIGHTS |
wlwflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wlwdown (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
145 |
ECCO_COST_WEIGHTS |
wevap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1464 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
147 |
ECCO_COST_WEIGHTS |
wrunoff (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wuwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1497 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
149 |
ECCO_COST_WEIGHTS |
wvwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wsst (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
151 |
ECCO_COST_WEIGHTS |
wsss (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1521 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
152 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
153 |
ECCO_COST_WEIGHTS |
wers (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1544 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
154 |
ECCO_COST_WEIGHTS |
wgfo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
155 |
ECCO_COST_WEIGHTS |
wetan (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1568 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
157 |
ECCO_COST_WEIGHTS |
wsshv4 (i,j,num_var,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1592 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
159 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
160 |
ECCO_COST_WEIGHTS |
wudrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1616 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
161 |
ECCO_COST_WEIGHTS |
wvdrift (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1638 |
ECCO_COST_WEIGHTS |
wetan(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
163 |
ECCO_COST_WEIGHTS |
whflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
164 |
ECCO_COST_WEIGHTS |
wsflux2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
165 |
ECCO_COST_WEIGHTS |
wtauu2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
166 |
ECCO_COST_WEIGHTS |
wtauv2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1679 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1685 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1725 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1731 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1737 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1742 |
ECCO_COST_WEIGHTS |
wtauv(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1748 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1754 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1760 |
ECCO_COST_WEIGHTS |
whflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1766 |
ECCO_COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1772 |
ECCO_COST_WEIGHTS |
wsflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1778 |
ECCO_COST_WEIGHTS |
wsfluxm(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
177 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1784 |
ECCO_COST_WEIGHTS |
wuwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
178 |
ECCO_COST_WEIGHTS |
wuvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1790 |
ECCO_COST_WEIGHTS |
wvwind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1796 |
ECCO_COST_WEIGHTS |
watemp(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
179 |
ECCO_COST_WEIGHTS |
wvvel (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1802 |
ECCO_COST_WEIGHTS |
waqh(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1808 |
ECCO_COST_WEIGHTS |
wprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
180 |
ECCO_COST_WEIGHTS |
wctdt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1814 |
ECCO_COST_WEIGHTS |
wswflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wctds (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1820 |
ECCO_COST_WEIGHTS |
wswdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1826 |
ECCO_COST_WEIGHTS |
wlwflux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1832 |
ECCO_COST_WEIGHTS |
wlwdown(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1838 |
ECCO_COST_WEIGHTS |
wevap(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1844 |
ECCO_COST_WEIGHTS |
wsnowprecip(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1850 |
ECCO_COST_WEIGHTS |
wapressure(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1856 |
ECCO_COST_WEIGHTS |
wrunoff(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1862 |
ECCO_COST_WEIGHTS |
wbottomdrag(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1876 |
ECCO_COST_WEIGHTS |
whflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1882 |
ECCO_COST_WEIGHTS |
wsflux2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1888 |
ECCO_COST_WEIGHTS |
wtauu2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1894 |
ECCO_COST_WEIGHTS |
wtauv2(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
189 |
ECCO_COST_WEIGHTS |
wtheta2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1909 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
190 |
ECCO_COST_WEIGHTS |
wsalt2 (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1917 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1925 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1933 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1950 |
ECCO_COST_WEIGHTS |
wdiffkr(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1955 |
ECCO_COST_WEIGHTS |
wkapgm(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1960 |
ECCO_COST_WEIGHTS |
wkapredi(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1965 |
ECCO_COST_WEIGHTS |
wedtaux(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
196 |
ECCO_COST_WEIGHTS |
wthetaLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1970 |
ECCO_COST_WEIGHTS |
wedtauy(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1978 |
ECCO_COST_WEIGHTS |
wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
197 |
ECCO_COST_WEIGHTS |
wsaltLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1986 |
ECCO_COST_WEIGHTS |
wkapgm2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1994 |
ECCO_COST_WEIGHTS |
wkapredi2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2002 |
ECCO_COST_WEIGHTS |
wedtaux2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
2010 |
ECCO_COST_WEIGHTS |
wedtauy2(i,j,k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
205 |
ECCO_COST_WEIGHTS |
wuvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
206 |
ECCO_COST_WEIGHTS |
wvvel3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
223 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
227 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
231 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
235 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
254 |
ECCO_COST_WEIGHTS |
frame(i,j) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
261 |
ECCO_COST_WEIGHTS |
factor = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
263 |
ECCO_COST_WEIGHTS |
factor = 1. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
335 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
340 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
390 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
433 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
480 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
527 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
544 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
689 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
690 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
691 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
727 |
ECCO_COST_WEIGHTS |
& wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
729 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
731 |
ECCO_COST_WEIGHTS |
& wgfo(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
802 |
ECCO_COST_WEIGHTS |
wsshv4tmp(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
894 |
ECCO_COST_WEIGHTS |
wscatx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
901 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
931 |
ECCO_COST_WEIGHTS |
wtauum(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
937 |
ECCO_COST_WEIGHTS |
wtauvm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
965 |
ECCO_COST_WEIGHTS |
wtauu(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_init_varia.F |
43 |
ECCO_INIT_VARIA |
RHOsumGlob_0=0. _d 0 |
|
./pkg/ecco/ecco_init_varia.F |
44 |
ECCO_INIT_VARIA |
VOLsumGlob_0=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
110 |
ECCO_PHYS |
if (RHOsumGlob_0.GT.0. _d 0) then |
|
./pkg/ecco/ecco_phys.F |
112 |
ECCO_PHYS |
& *(1. _d 0 - RHOsumGlob/RHOsumGlob_0) |
|
./pkg/ecco/ecco_phys.F |
114 |
ECCO_PHYS |
sterGloH=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
150 |
ECCO_PHYS |
m_UE(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
151 |
ECCO_PHYS |
m_VN(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
181 |
ECCO_PHYS |
trVolW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
182 |
ECCO_PHYS |
trVolS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
183 |
ECCO_PHYS |
trHeatW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
184 |
ECCO_PHYS |
trHeatS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
185 |
ECCO_PHYS |
trSaltW(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
186 |
ECCO_PHYS |
trSaltS(i,j,k)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
237 |
ECCO_PHYS |
areavolTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
240 |
ECCO_PHYS |
areavolGlob=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
250 |
ECCO_PHYS |
tmpmsk=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
261 |
ECCO_PHYS |
tmpfld=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
262 |
ECCO_PHYS |
tmpmsk2=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
265 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
269 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
274 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
287 |
ECCO_PHYS |
tmpfld=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
288 |
ECCO_PHYS |
tmpmsk2=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
291 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
302 |
ECCO_PHYS |
tmpmskW=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
303 |
ECCO_PHYS |
tmpmskS=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
89 |
ECCO_PHYS |
RHOsumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
90 |
ECCO_PHYS |
VOLsumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
91 |
ECCO_PHYS |
VOLsumGlob=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
92 |
ECCO_PHYS |
RHOsumGlob=0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
275 |
ECCO_READPARMS |
topexperiod = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
276 |
ECCO_READPARMS |
topexintercept = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
277 |
ECCO_READPARMS |
topexslope = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
290 |
ECCO_READPARMS |
ersperiod = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
291 |
ECCO_READPARMS |
ersintercept = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
292 |
ECCO_READPARMS |
ersslope = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
297 |
ECCO_READPARMS |
gfoperiod = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
298 |
ECCO_READPARMS |
gfointercept = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
299 |
ECCO_READPARMS |
gfoslope = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
303 |
ECCO_READPARMS |
scatperiod = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
389 |
ECCO_READPARMS |
sshv4cost_errfactor(k) = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
395 |
ECCO_READPARMS |
mult_hflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
396 |
ECCO_READPARMS |
mult_sflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
397 |
ECCO_READPARMS |
mult_hfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
398 |
ECCO_READPARMS |
mult_sfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
399 |
ECCO_READPARMS |
mult_tauu = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
400 |
ECCO_READPARMS |
mult_tauv = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
401 |
ECCO_READPARMS |
mult_atemp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
402 |
ECCO_READPARMS |
mult_aqh = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
403 |
ECCO_READPARMS |
mult_precip = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
404 |
ECCO_READPARMS |
mult_swflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
405 |
ECCO_READPARMS |
mult_swdown = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
406 |
ECCO_READPARMS |
mult_lwflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
407 |
ECCO_READPARMS |
mult_lwdown = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
408 |
ECCO_READPARMS |
mult_evap = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
409 |
ECCO_READPARMS |
mult_snowprecip = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
410 |
ECCO_READPARMS |
mult_apressure = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
411 |
ECCO_READPARMS |
mult_uwind = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
412 |
ECCO_READPARMS |
mult_vwind = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
413 |
ECCO_READPARMS |
mult_hmean = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
414 |
ECCO_READPARMS |
mult_h = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
415 |
ECCO_READPARMS |
mult_tp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
416 |
ECCO_READPARMS |
mult_ers = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
417 |
ECCO_READPARMS |
mult_gfo = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
418 |
ECCO_READPARMS |
mult_temp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
419 |
ECCO_READPARMS |
mult_salt = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
420 |
ECCO_READPARMS |
mult_temp0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
421 |
ECCO_READPARMS |
mult_salt0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
422 |
ECCO_READPARMS |
mult_etan0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
423 |
ECCO_READPARMS |
mult_uvel0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
424 |
ECCO_READPARMS |
mult_vvel0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
425 |
ECCO_READPARMS |
mult_tmi = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
426 |
ECCO_READPARMS |
mult_sst = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
427 |
ECCO_READPARMS |
mult_sss = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
428 |
ECCO_READPARMS |
mult_bp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
429 |
ECCO_READPARMS |
mult_ies = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
430 |
ECCO_READPARMS |
mult_ctdt = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
431 |
ECCO_READPARMS |
mult_ctds = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
432 |
ECCO_READPARMS |
mult_ctdtclim = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
433 |
ECCO_READPARMS |
mult_ctdsclim = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
434 |
ECCO_READPARMS |
mult_xbt = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
435 |
ECCO_READPARMS |
mult_argot = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
436 |
ECCO_READPARMS |
mult_argos = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
437 |
ECCO_READPARMS |
mult_drift = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
438 |
ECCO_READPARMS |
mult_tdrift = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
439 |
ECCO_READPARMS |
mult_sdrift = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
440 |
ECCO_READPARMS |
mult_wdrift = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
441 |
ECCO_READPARMS |
mult_scatx = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
442 |
ECCO_READPARMS |
mult_scaty = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
444 |
ECCO_READPARMS |
mult_obcsn = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
445 |
ECCO_READPARMS |
mult_obcss = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
446 |
ECCO_READPARMS |
mult_obcsw = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
447 |
ECCO_READPARMS |
mult_obcse = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
448 |
ECCO_READPARMS |
mult_obcsvol = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
449 |
ECCO_READPARMS |
mult_ageos = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
451 |
ECCO_READPARMS |
mult_curmtr = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
452 |
ECCO_READPARMS |
mult_kapgm = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
453 |
ECCO_READPARMS |
mult_kapredi = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
454 |
ECCO_READPARMS |
mult_diffkr = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
455 |
ECCO_READPARMS |
mult_edtau = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
456 |
ECCO_READPARMS |
mult_bottomdrag = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
458 |
ECCO_READPARMS |
mult_usercost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
461 |
ECCO_READPARMS |
mult_sshv4cost(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
463 |
ECCO_READPARMS |
mult_smooth_ic = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
464 |
ECCO_READPARMS |
mult_smooth_bc = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
465 |
ECCO_READPARMS |
mult_transp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
466 |
ECCO_READPARMS |
watemp0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
467 |
ECCO_READPARMS |
waqh0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
468 |
ECCO_READPARMS |
wprecip0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
469 |
ECCO_READPARMS |
wswflux0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
470 |
ECCO_READPARMS |
wswdown0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
471 |
ECCO_READPARMS |
wlwflux0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
472 |
ECCO_READPARMS |
wlwdown0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
473 |
ECCO_READPARMS |
wevap0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
474 |
ECCO_READPARMS |
wsnowprecip0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
475 |
ECCO_READPARMS |
wapressure0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
476 |
ECCO_READPARMS |
wwind0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
477 |
ECCO_READPARMS |
wdiffkr0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
478 |
ECCO_READPARMS |
wkapgm0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
479 |
ECCO_READPARMS |
wkapredi0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
480 |
ECCO_READPARMS |
wedtau0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
481 |
ECCO_READPARMS |
whflux0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
482 |
ECCO_READPARMS |
wsflux0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
483 |
ECCO_READPARMS |
wtau0 = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
484 |
ECCO_READPARMS |
wbottomdrag0 = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
485 |
ECCO_READPARMS |
wmean_atemp = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
486 |
ECCO_READPARMS |
wmean_aqh = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
487 |
ECCO_READPARMS |
wmean_precip = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
488 |
ECCO_READPARMS |
wmean_swflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
489 |
ECCO_READPARMS |
wmean_swdown = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
490 |
ECCO_READPARMS |
wmean_lwflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
491 |
ECCO_READPARMS |
wmean_lwdown = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
492 |
ECCO_READPARMS |
wmean_evap = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
493 |
ECCO_READPARMS |
wmean_snowprecip = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
494 |
ECCO_READPARMS |
wmean_apressure = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
495 |
ECCO_READPARMS |
wmean_wind = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
496 |
ECCO_READPARMS |
wmean_hflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
497 |
ECCO_READPARMS |
wmean_sflux = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
498 |
ECCO_READPARMS |
wmean_tau = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
559 |
ECCO_READPARMS |
no_preproc_r(k2) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
563 |
ECCO_READPARMS |
no_posproc_r(k2) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
592 |
ECCO_READPARMS |
gencost_preproc_r(k2,k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
596 |
ECCO_READPARMS |
gencost_posproc_r(k2,k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
603 |
ECCO_READPARMS |
gencost_spmin(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
604 |
ECCO_READPARMS |
gencost_spmax(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
605 |
ECCO_READPARMS |
gencost_spzero(k) = 9876. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
606 |
ECCO_READPARMS |
gencost_wei1d(k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
607 |
ECCO_READPARMS |
mult_gencost(k) = 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
621 |
ECCO_READPARMS |
gencost_mskVertical(k2,k)= 1. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
838 |
ECCO_READPARMS |
if ( gencost_spmin(k) .EQ. 0. _d 0 .AND. |
|
./pkg/ecco/ecco_readparms.F |
839 |
ECCO_READPARMS |
& gencost_spmax(k) .EQ. 0. _d 0 ) then |
|
./pkg/ecco/ecco_readparms.F |
850 |
ECCO_READPARMS |
if ( gencost_spzero(k) .EQ. 9876. _d 0 ) then |
|
./pkg/ecco/ecco_toolbox.F |
1240 |
ECCO_READWEI |
localweight(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
167 |
ECCO_DIFFMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
263 |
ECCO_DIFFANOMMSK |
difmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
356 |
ECCO_OBSMSK |
obsmask(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
582 |
ECCO_ADDCOST |
localwww = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
587 |
ECCO_ADDCOST |
localcost = 0. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
600 |
ECCO_ADDCOST |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
823 |
ECCO_ADDMASK |
if(fldInmask(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
827 |
ECCO_ADDMASK |
& + 1. _d 0 |
|
./pkg/ecco/ecco_toolbox.F |
952 |
ECCO_DIVFIELD |
if(flddenom(i,j,k,bi,bj) .NE. 0. _d 0) then |
|
./pkg/ecco/ecco_toolbox.F |
956 |
ECCO_DIVFIELD |
fld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exch2/w2_readparms.F |
100 |
W2_READPARMS |
e2FillValue_RS = 0. _d 0 |
|
./pkg/exch2/w2_readparms.F |
99 |
W2_READPARMS |
e2FillValue_RL = 0. _d 0 |
|
./pkg/exf/EXF_CONSTANTS.h |
33 |
NO PROCEDURE |
& exf_half = 0.5 _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
34 |
NO PROCEDURE |
& exf_one = 1.0 _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
35 |
NO PROCEDURE |
& exf_two = 2.0 _d 0 |
|
./pkg/exf/EXF_CONSTANTS.h |
48 |
NO PROCEDURE |
PARAMETER ( stefanBoltzmann = 5.670 _d -8 ) |
|
./pkg/exf/EXF_CONSTANTS.h |
49 |
NO PROCEDURE |
PARAMETER ( karman = 0.4 _d 0 ) |
|
./pkg/exf/EXF_CONSTANTS.h |
75 |
NO PROCEDURE |
& ustofu11 = 0.381800 _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
76 |
NO PROCEDURE |
& u11 = 11. _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
77 |
NO PROCEDURE |
& clindrag_1 = 0.000065 _d 0 , |
|
./pkg/exf/EXF_CONSTANTS.h |
78 |
NO PROCEDURE |
& clindrag_2 = 0.000490 _d 0 , |
|
./pkg/exf/exf_bulkformulae.F |
247 |
EXF_BULKFORMULAE |
recip_rhoConstFresh = 1. _d 0/rhoConstFresh |
|
./pkg/exf/exf_bulkformulae.F |
283 |
EXF_BULKFORMULAE |
deltap(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
284 |
EXF_BULKFORMULAE |
delq(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
288 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
291 |
EXF_BULKFORMULAE |
IF ( Nr.GE.2 .AND. sstExtrapol.GT.0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
295 |
EXF_BULKFORMULAE |
Tsf = Tsf + MAX( SSTtmp, 0. _d 0 ) |
|
./pkg/exf/exf_bulkformulae.F |
301 |
EXF_BULKFORMULAE |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
302 |
EXF_BULKFORMULAE |
& *(1. _d 0 + humid_fac*aqh(i,j,bi,bj))) |
|
./pkg/exf/exf_bulkformulae.F |
310 |
EXF_BULKFORMULAE |
IF ( noNegativeEvap ) delq(i,j) = MIN( 0. _d 0, delq(i,j) ) |
|
./pkg/exf/exf_bulkformulae.F |
327 |
EXF_BULKFORMULAE |
rdn(i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
348 |
EXF_BULKFORMULAE |
tstar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
349 |
EXF_BULKFORMULAE |
qstar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
350 |
EXF_BULKFORMULAE |
ustar (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
351 |
EXF_BULKFORMULAE |
tau (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
352 |
EXF_BULKFORMULAE |
rdn (i,j) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
359 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
384 |
EXF_BULKFORMULAE |
tmpbulk = MIN(abs(huol),10. _d 0) |
|
./pkg/exf/exf_bulkformulae.F |
398 |
EXF_BULKFORMULAE |
xsq = SQRT( ABS(exf_one - huol*16. _d 0) ) |
|
./pkg/exf/exf_bulkformulae.F |
407 |
EXF_BULKFORMULAE |
& (exf_one+xsq)*.125 _d 0 ) |
|
./pkg/exf/exf_bulkformulae.F |
410 |
EXF_BULKFORMULAE |
psimh = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
414 |
EXF_BULKFORMULAE |
xsq = SQRT( ABS(exf_one - htol*16. _d 0) ) |
|
./pkg/exf/exf_bulkformulae.F |
476 |
EXF_BULKFORMULAE |
IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_bulkformulae.F |
514 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
515 |
EXF_BULKFORMULAE |
IF ( useAtmWind ) vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
516 |
EXF_BULKFORMULAE |
hflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
517 |
EXF_BULKFORMULAE |
evap (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
518 |
EXF_BULKFORMULAE |
hs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_bulkformulae.F |
519 |
EXF_BULKFORMULAE |
hl (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
65 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
73 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_filter_rl.F |
81 |
EXF_FILTER_RL |
arr(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffieldrec.F |
100 |
EXF_GETFFIELDREC |
if ( fldPeriod .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_getffieldrec.F |
106 |
EXF_GETFFIELDREC |
fac = 1. _d 0 |
|
./pkg/exf/exf_getffieldrec.F |
122 |
EXF_GETFFIELDREC |
if ( fldRepeatCycle .eq. 0. _d 0 ) then |
|
./pkg/exf/exf_getffieldrec.F |
124 |
EXF_GETFFIELDREC |
if ( fldsectot .lt. 0. _d 0 ) then |
|
./pkg/exf/exf_getffieldrec.F |
141 |
EXF_GETFFIELDREC |
if (fldsectot.lt.0. _d 0) |
|
./pkg/exf/exf_getffieldrec.F |
199 |
EXF_GETFFIELDREC |
if ( fldsecs - modelstep .lt. 0. _d 0 ) changed = .TRUE. |
|
./pkg/exf/exf_getffieldrec.F |
212 |
EXF_GETFFIELDREC |
IF ( fldPeriod .EQ. 0. _d 0 ) THEN |
|
./pkg/exf/exf_getffieldrec.F |
213 |
EXF_GETFFIELDREC |
fac = 1. _d 0 |
|
./pkg/exf/exf_getffields.F |
101 |
EXF_GETFFIELDS |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
102 |
EXF_GETFFIELDS |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
150 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
152 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 |
|
./pkg/exf/exf_getffields.F |
165 |
EXF_GETFFIELDS |
uwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
166 |
EXF_GETFFIELDS |
vwind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
482 |
EXF_GETFFIELDS |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
483 |
EXF_GETFFIELDS |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
484 |
EXF_GETFFIELDS |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getffields.F |
485 |
EXF_GETFFIELDS |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
93 |
EXF_GETSURFACEFLUXES |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
94 |
EXF_GETSURFACEFLUXES |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
95 |
EXF_GETSURFACEFLUXES |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_getsurfacefluxes.F |
96 |
EXF_GETSURFACEFLUXES |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_interp.F |
223 |
EXF_INTERP |
symSign = 1. _d 0 |
|
./pkg/exf/exf_interp.F |
224 |
EXF_INTERP |
IF ( method.GE.10 ) symSign = -1. _d 0 |
|
./pkg/exf/exf_interp.F |
397 |
EXF_INTERP |
tmpVar = nyIn + 1. _d -3 |
|
./pkg/exf/exf_interp.F |
398 |
EXF_INTERP |
nLoop = 1 + INT( LOG(tmpVar)/LOG(2. _d 0) ) |
|
./pkg/exf/exf_interp_uv.F |
239 |
EXF_INTERP_UV |
symSign = -1. _d 0 |
|
./pkg/exf/exf_interp_uv.F |
423 |
EXF_INTERP_UV |
tmpVar = nyIn + 1. _d -3 |
|
./pkg/exf/exf_interp_uv.F |
424 |
EXF_INTERP_UV |
nLoop = 1 + INT( LOG(tmpVar)/LOG(2. _d 0) ) |
|
./pkg/exf/exf_interpolate.F |
39 |
NO PROCEDURE |
numer = 1. _d 0 |
|
./pkg/exf/exf_interpolate.F |
40 |
NO PROCEDURE |
denom = 1. _d 0 |
|
./pkg/exf/exf_radiation.F |
149 |
EXF_RADIATION |
zen_albedo (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
150 |
EXF_RADIATION |
zen_fsol_diurnal (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
151 |
EXF_RADIATION |
zen_fsol_daily (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_radiation.F |
72 |
EXF_RADIATION |
IF ( Nr.GE.2 .AND. sstExtrapol.GT.0. _d 0 ) THEN |
|
./pkg/exf/exf_radiation.F |
79 |
EXF_RADIATION |
Tsf = Tsf + MAX( SSTtmp, 0. _d 0 ) |
|
./pkg/exf/exf_readparms.F |
1082 |
EXF_READPARMS |
IF ( tauThetaClimRelax.NE.0. _d 0 ) THEN |
|
./pkg/exf/exf_readparms.F |
1096 |
EXF_READPARMS |
IF ( tauSaltClimRelax.NE.0. _d 0 ) THEN |
|
./pkg/exf/exf_readparms.F |
341 |
EXF_READPARMS |
cen2kel = 273.150 _d 0 |
|
./pkg/exf/exf_readparms.F |
342 |
EXF_READPARMS |
gravity_mks = 9.81 _d 0 |
|
./pkg/exf/exf_readparms.F |
343 |
EXF_READPARMS |
atmrho = 1.200 _d 0 |
|
./pkg/exf/exf_readparms.F |
344 |
EXF_READPARMS |
atmcp = 1005.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
345 |
EXF_READPARMS |
flamb = 2500000.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
346 |
EXF_READPARMS |
flami = 334000.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
347 |
EXF_READPARMS |
cvapor_fac = 640380.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
348 |
EXF_READPARMS |
cvapor_exp = 5107.400 _d 0 |
|
./pkg/exf/exf_readparms.F |
349 |
EXF_READPARMS |
cvapor_fac_ice = 11637800.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
350 |
EXF_READPARMS |
cvapor_exp_ice = 5897.800 _d 0 |
|
./pkg/exf/exf_readparms.F |
351 |
EXF_READPARMS |
humid_fac = 0.606 _d 0 |
|
./pkg/exf/exf_readparms.F |
352 |
EXF_READPARMS |
gamma_blk = 0.010 _d 0 |
|
./pkg/exf/exf_readparms.F |
353 |
EXF_READPARMS |
saltsat = 0.980 _d 0 |
|
./pkg/exf/exf_readparms.F |
354 |
EXF_READPARMS |
sstExtrapol = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
355 |
EXF_READPARMS |
cdrag_1 = 0.0027000 _d 0 |
|
./pkg/exf/exf_readparms.F |
356 |
EXF_READPARMS |
cdrag_2 = 0.0001420 _d 0 |
|
./pkg/exf/exf_readparms.F |
357 |
EXF_READPARMS |
cdrag_3 = 0.0000764 _d 0 |
|
./pkg/exf/exf_readparms.F |
358 |
EXF_READPARMS |
cstanton_1 = 0.0327 _d 0 |
|
./pkg/exf/exf_readparms.F |
359 |
EXF_READPARMS |
cstanton_2 = 0.0180 _d 0 |
|
./pkg/exf/exf_readparms.F |
360 |
EXF_READPARMS |
cdalton = 0.0346 _d 0 |
|
./pkg/exf/exf_readparms.F |
361 |
EXF_READPARMS |
zolmin = -100.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
362 |
EXF_READPARMS |
psim_fac = 5.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
363 |
EXF_READPARMS |
zref = 10.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
364 |
EXF_READPARMS |
hu = 10.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
365 |
EXF_READPARMS |
ht = 2.000 _d 0 |
|
./pkg/exf/exf_readparms.F |
366 |
EXF_READPARMS |
umin = 0.5 _d 0 |
|
./pkg/exf/exf_readparms.F |
368 |
EXF_READPARMS |
exf_iceCd = 1.63 _d -3 |
|
./pkg/exf/exf_readparms.F |
369 |
EXF_READPARMS |
exf_iceCe = 1.63 _d -3 |
|
./pkg/exf/exf_readparms.F |
370 |
EXF_READPARMS |
exf_iceCh = 1.63 _d -3 |
|
./pkg/exf/exf_readparms.F |
371 |
EXF_READPARMS |
exf_albedo = 0.1 _d 0 |
|
./pkg/exf/exf_readparms.F |
374 |
EXF_READPARMS |
ocean_emissivity = 5.50 _d -8 / 5.670 _d -8 |
|
./pkg/exf/exf_readparms.F |
375 |
EXF_READPARMS |
ice_emissivity = 0.95 _d 0 |
|
./pkg/exf/exf_readparms.F |
376 |
EXF_READPARMS |
snow_emissivity = 0.95 _d 0 |
|
./pkg/exf/exf_readparms.F |
381 |
EXF_READPARMS |
hfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
382 |
EXF_READPARMS |
hfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
383 |
EXF_READPARMS |
hflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
384 |
EXF_READPARMS |
hflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
388 |
EXF_READPARMS |
atempperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
390 |
EXF_READPARMS |
atemp_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
391 |
EXF_READPARMS |
atemp_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
395 |
EXF_READPARMS |
aqhperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
396 |
EXF_READPARMS |
aqhconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
397 |
EXF_READPARMS |
aqh_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
398 |
EXF_READPARMS |
aqh_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
402 |
EXF_READPARMS |
hs_period = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
403 |
EXF_READPARMS |
hs_const = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
404 |
EXF_READPARMS |
hs_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
405 |
EXF_READPARMS |
hs_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
409 |
EXF_READPARMS |
hl_period = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
410 |
EXF_READPARMS |
hl_const = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
411 |
EXF_READPARMS |
hl_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
412 |
EXF_READPARMS |
hl_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
416 |
EXF_READPARMS |
sfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
417 |
EXF_READPARMS |
sfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
418 |
EXF_READPARMS |
sflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
419 |
EXF_READPARMS |
sflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
423 |
EXF_READPARMS |
evapperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
424 |
EXF_READPARMS |
evapconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
425 |
EXF_READPARMS |
evap_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
426 |
EXF_READPARMS |
evap_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
430 |
EXF_READPARMS |
precipperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
431 |
EXF_READPARMS |
precipconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
432 |
EXF_READPARMS |
precip_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
433 |
EXF_READPARMS |
precip_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
437 |
EXF_READPARMS |
snowprecipperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
438 |
EXF_READPARMS |
snowprecipconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
439 |
EXF_READPARMS |
snowprecip_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
440 |
EXF_READPARMS |
snowprecip_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
444 |
EXF_READPARMS |
runoffperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
445 |
EXF_READPARMS |
runoffconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
446 |
EXF_READPARMS |
runoff_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
447 |
EXF_READPARMS |
runoff_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
449 |
EXF_READPARMS |
runoftempconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
450 |
EXF_READPARMS |
runoftemp_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
451 |
EXF_READPARMS |
runoftemp_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
455 |
EXF_READPARMS |
saltflxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
456 |
EXF_READPARMS |
saltflxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
457 |
EXF_READPARMS |
saltflx_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
458 |
EXF_READPARMS |
saltflx_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
462 |
EXF_READPARMS |
ustressperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
463 |
EXF_READPARMS |
ustressconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
464 |
EXF_READPARMS |
ustress_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
465 |
EXF_READPARMS |
ustress_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
469 |
EXF_READPARMS |
vstressperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
470 |
EXF_READPARMS |
vstressconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
471 |
EXF_READPARMS |
vstress_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
472 |
EXF_READPARMS |
vstress_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
476 |
EXF_READPARMS |
uwindperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
477 |
EXF_READPARMS |
uwindconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
478 |
EXF_READPARMS |
uwind_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
479 |
EXF_READPARMS |
uwind_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
483 |
EXF_READPARMS |
vwindperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
484 |
EXF_READPARMS |
vwindconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
485 |
EXF_READPARMS |
vwind_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
486 |
EXF_READPARMS |
vwind_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
490 |
EXF_READPARMS |
wspeedperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
491 |
EXF_READPARMS |
wspeedconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
492 |
EXF_READPARMS |
wspeed_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
493 |
EXF_READPARMS |
wspeed_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
497 |
EXF_READPARMS |
swfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
498 |
EXF_READPARMS |
swfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
499 |
EXF_READPARMS |
swflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
500 |
EXF_READPARMS |
swflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
504 |
EXF_READPARMS |
lwfluxperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
505 |
EXF_READPARMS |
lwfluxconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
506 |
EXF_READPARMS |
lwflux_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
507 |
EXF_READPARMS |
lwflux_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
511 |
EXF_READPARMS |
swdownperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
512 |
EXF_READPARMS |
swdownconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
513 |
EXF_READPARMS |
swdown_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
514 |
EXF_READPARMS |
swdown_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
518 |
EXF_READPARMS |
lwdownperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
519 |
EXF_READPARMS |
lwdownconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
520 |
EXF_READPARMS |
lwdown_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
521 |
EXF_READPARMS |
lwdown_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
525 |
EXF_READPARMS |
apressureperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
526 |
EXF_READPARMS |
apressureconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
527 |
EXF_READPARMS |
apressure_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
528 |
EXF_READPARMS |
apressure_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
532 |
EXF_READPARMS |
tidePotPeriod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
533 |
EXF_READPARMS |
tidePotConst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
534 |
EXF_READPARMS |
tidePot_exfremo_intercept = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
535 |
EXF_READPARMS |
tidePot_exfremo_slope = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
539 |
EXF_READPARMS |
areamaskperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
540 |
EXF_READPARMS |
areamaskTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
541 |
EXF_READPARMS |
areamaskconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
542 |
EXF_READPARMS |
areamask_exfremo_intercept = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
543 |
EXF_READPARMS |
areamask_exfremo_slope = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
548 |
EXF_READPARMS |
climsstTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
549 |
EXF_READPARMS |
climsstconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
550 |
EXF_READPARMS |
climsst_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
551 |
EXF_READPARMS |
climsst_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
556 |
EXF_READPARMS |
climsssTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
557 |
EXF_READPARMS |
climsssconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
558 |
EXF_READPARMS |
climsss_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
559 |
EXF_READPARMS |
climsss_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
564 |
EXF_READPARMS |
climustrTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
565 |
EXF_READPARMS |
climustrconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
566 |
EXF_READPARMS |
climustr_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
567 |
EXF_READPARMS |
climustr_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
572 |
EXF_READPARMS |
climvstrTauRelax = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
573 |
EXF_READPARMS |
climvstrconst = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
574 |
EXF_READPARMS |
climvstr_exfremo_intercept = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
575 |
EXF_READPARMS |
climvstr_exfremo_slope = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
580 |
EXF_READPARMS |
obcsNperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
583 |
EXF_READPARMS |
obcsSperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
586 |
EXF_READPARMS |
obcsEperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
589 |
EXF_READPARMS |
obcsWperiod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
604 |
EXF_READPARMS |
repeatPeriod = 0.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
605 |
EXF_READPARMS |
windstressmax = 2.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
607 |
EXF_READPARMS |
exf_scal_BulkCdn = 1.0 _d 0 |
|
./pkg/exf/exf_readparms.F |
610 |
EXF_READPARMS |
climtempfreeze = -1.9 _d 0 |
|
./pkg/exf/exf_readparms.F |
687 |
EXF_READPARMS |
exf_inscal_hflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
688 |
EXF_READPARMS |
exf_inscal_sflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
689 |
EXF_READPARMS |
exf_inscal_ustress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
690 |
EXF_READPARMS |
exf_inscal_vstress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
691 |
EXF_READPARMS |
exf_inscal_uwind = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
692 |
EXF_READPARMS |
exf_inscal_vwind = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
693 |
EXF_READPARMS |
exf_inscal_wspeed = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
694 |
EXF_READPARMS |
exf_inscal_swflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
695 |
EXF_READPARMS |
exf_inscal_lwflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
696 |
EXF_READPARMS |
exf_inscal_precip = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
697 |
EXF_READPARMS |
exf_inscal_snowprecip= 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
700 |
EXF_READPARMS |
exf_inscal_atemp = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
701 |
EXF_READPARMS |
exf_offset_atemp = 0. _d 0 |
|
./pkg/exf/exf_readparms.F |
702 |
EXF_READPARMS |
exf_inscal_aqh = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
703 |
EXF_READPARMS |
exf_inscal_hs = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
704 |
EXF_READPARMS |
exf_inscal_hl = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
705 |
EXF_READPARMS |
exf_inscal_evap = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
706 |
EXF_READPARMS |
exf_inscal_apressure = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
707 |
EXF_READPARMS |
exf_inscal_runoff = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
708 |
EXF_READPARMS |
exf_inscal_runoftemp = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
709 |
EXF_READPARMS |
exf_inscal_saltflx = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
710 |
EXF_READPARMS |
exf_inscal_swdown = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
711 |
EXF_READPARMS |
exf_inscal_lwdown = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
712 |
EXF_READPARMS |
exf_inscal_climsst = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
713 |
EXF_READPARMS |
exf_inscal_climsss = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
714 |
EXF_READPARMS |
exf_inscal_climustr = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
715 |
EXF_READPARMS |
exf_inscal_climvstr = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
716 |
EXF_READPARMS |
exf_inscal_tidePot = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
717 |
EXF_READPARMS |
exf_inscal_areamask = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
720 |
EXF_READPARMS |
exf_outscal_hflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
721 |
EXF_READPARMS |
exf_outscal_sflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
722 |
EXF_READPARMS |
exf_outscal_ustress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
723 |
EXF_READPARMS |
exf_outscal_vstress = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
724 |
EXF_READPARMS |
exf_outscal_swflux = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
725 |
EXF_READPARMS |
exf_outscal_sst = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
726 |
EXF_READPARMS |
exf_outscal_sss = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
727 |
EXF_READPARMS |
exf_outscal_apressure= 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
728 |
EXF_READPARMS |
exf_outscal_tidePot = 1. _d 0 |
|
./pkg/exf/exf_readparms.F |
729 |
EXF_READPARMS |
exf_outscal_areamask = 1. _d 0 |
|
./pkg/exf/exf_swapffields.F |
114 |
EXF_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
167 |
EXF_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
219 |
EXF_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_swapffields.F |
63 |
EXF_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
100 |
EXF_WIND |
sh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
101 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
118 |
EXF_WIND |
IF ( wsSq .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_wind.F |
123 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
124 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
125 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
150 |
EXF_WIND |
& )*0.5 _d 0 |
|
./pkg/exf/exf_wind.F |
155 |
EXF_WIND |
IF ( usSq .NE. 0. _d 0 ) THEN |
|
./pkg/exf/exf_wind.F |
161 |
EXF_WIND |
wStress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
162 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
163 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
176 |
EXF_WIND |
recip_sqrtRhoA = 1. _d 0 / SQRT(atmrho) |
|
./pkg/exf/exf_wind.F |
180 |
EXF_WIND |
IF ( ustar .EQ. 0. _d 0 ) THEN |
|
./pkg/exf/exf_wind.F |
181 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
191 |
EXF_WIND |
& (ustar*ustar/clindrag_1*0.25 _d 0 - tmp1*tmp1*tmp1 ) |
|
./pkg/exf/exf_wind.F |
97 |
EXF_WIND |
wsLoc(i,j) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
98 |
EXF_WIND |
cw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_wind.F |
99 |
EXF_WIND |
sw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
104 |
EXF_ZENITHANGLE |
secondsInYear = 86400. _d 0 * 365.25 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
106 |
EXF_ZENITHANGLE |
TDAY = myTime / 86400 . _d 0 |
|
./pkg/exf/exf_zenithangle.F |
136 |
EXF_ZENITHANGLE |
wTyear2= 1.0 _d 0 - wTyear1 |
|
./pkg/exf/exf_zenithangle.F |
140 |
EXF_ZENITHANGLE |
IF ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) THEN |
|
./pkg/exf/exf_zenithangle.F |
142 |
EXF_ZENITHANGLE |
wLat1=0.5 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
144 |
EXF_ZENITHANGLE |
wLat2=0.5 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
147 |
EXF_ZENITHANGLE |
wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj) |
|
./pkg/exf/exf_zenithangle.F |
149 |
EXF_ZENITHANGLE |
wLat2= 1. _d 0 - wLat1 |
|
./pkg/exf/exf_zenithangle.F |
159 |
EXF_ZENITHANGLE |
& 0.5 _d 0 * exf_albedo + 0.5 _d 0 * ALBSEA1 |
|
./pkg/exf/exf_zenithangle.F |
169 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
170 |
EXF_ZENITHANGLE |
DECLI = 0.006918 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
171 |
EXF_ZENITHANGLE |
& - 0.399912 _d 0 * COS ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
172 |
EXF_ZENITHANGLE |
& + 0.070257 _d 0 * SIN ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
173 |
EXF_ZENITHANGLE |
& - 0.006758 _d 0 * COS ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
174 |
EXF_ZENITHANGLE |
& + 0.000907 _d 0 * SIN ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
175 |
EXF_ZENITHANGLE |
& - 0.002697 _d 0 * COS ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
176 |
EXF_ZENITHANGLE |
& + 0.001480 _d 0 * SIN ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
202 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
204 |
EXF_ZENITHANGLE |
IF ( CZENdiurnal .LE.0 ) CZENdiurnal = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
212 |
EXF_ZENITHANGLE |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./pkg/exf/exf_zenithangle.F |
213 |
EXF_ZENITHANGLE |
CZEN = 0.0 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
214 |
EXF_ZENITHANGLE |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./pkg/exf/exf_zenithangle.F |
215 |
EXF_ZENITHANGLE |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/exf/exf_zenithangle.F |
216 |
EXF_ZENITHANGLE |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./pkg/exf/exf_zenithangle.F |
220 |
EXF_ZENITHANGLE |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./pkg/exf/exf_zenithangle.F |
221 |
EXF_ZENITHANGLE |
CZEN2= 2.0 _d 0*TMPA*TMPA*hlim |
|
./pkg/exf/exf_zenithangle.F |
222 |
EXF_ZENITHANGLE |
& + 4.0 _d 0*TMPA*TMPB*SIN(hlim) |
|
./pkg/exf/exf_zenithangle.F |
223 |
EXF_ZENITHANGLE |
& + TMPB*TMPB*( hlim + 0.5 _d 0*SIN(2.0 _d 0*hlim) ) |
|
./pkg/exf/exf_zenithangle.F |
251 |
EXF_ZENITHANGLE |
& ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/exf/exf_zenithangle.F |
252 |
EXF_ZENITHANGLE |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/exf/exf_zenithangle.F |
253 |
EXF_ZENITHANGLE |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
259 |
EXF_ZENITHANGLE |
& 0.5 _d 0 * exf_albedo + 0.5 _d 0 * ALBSEA1 |
|
./pkg/exf/exf_zenithangle.F |
283 |
EXF_ZENITHANGLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle.F |
284 |
EXF_ZENITHANGLE |
DECLI = 0.006918 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
285 |
EXF_ZENITHANGLE |
& - 0.399912 _d 0 * COS ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
286 |
EXF_ZENITHANGLE |
& + 0.070257 _d 0 * SIN ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
287 |
EXF_ZENITHANGLE |
& - 0.006758 _d 0 * COS ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
288 |
EXF_ZENITHANGLE |
& + 0.000907 _d 0 * SIN ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
289 |
EXF_ZENITHANGLE |
& - 0.002697 _d 0 * COS ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
290 |
EXF_ZENITHANGLE |
& + 0.001480 _d 0 * SIN ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
291 |
EXF_ZENITHANGLE |
dD0dDsq = 1.000110 _d 0 |
|
./pkg/exf/exf_zenithangle.F |
292 |
EXF_ZENITHANGLE |
& + 0.034221 _d 0 * COS ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
293 |
EXF_ZENITHANGLE |
& + 0.001280 _d 0 * SIN ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
294 |
EXF_ZENITHANGLE |
& + 0.000719 _d 0 * COS ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
295 |
EXF_ZENITHANGLE |
& + 0.000077 _d 0 * SIN ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle.F |
307 |
EXF_ZENITHANGLE |
& COS( 2. _d 0 *PI*TDAY + xC(i,j,bi,bj)*deg2rad ) |
|
./pkg/exf/exf_zenithangle.F |
308 |
EXF_ZENITHANGLE |
IF ( CZEN .LE.0 ) CZEN = 0. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
309 |
EXF_ZENITHANGLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle.F |
314 |
EXF_ZENITHANGLE |
IF ( H0.LT.-1. _d 0 ) H0 = -1. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
315 |
EXF_ZENITHANGLE |
IF ( H0.GT. 1. _d 0 ) H0 = 1. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
67 |
EXF_ZENITHANGLE |
SOLC = 1368. _d 0 |
|
./pkg/exf/exf_zenithangle.F |
97 |
EXF_ZENITHANGLE |
TDAY= myDateSeconds / ( 86400 . _d 0 ) |
|
./pkg/exf/exf_zenithangle_table.F |
100 |
EXF_ZENITHANGLE_TABLE |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
103 |
EXF_ZENITHANGLE_TABLE |
tmpINT1=tmpINT1+FSOL*ALBSEA1/100. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
104 |
EXF_ZENITHANGLE_TABLE |
tmpINT2=tmpINT2+FSOL/100. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
108 |
EXF_ZENITHANGLE_TABLE |
IF ( 0.5 _d 0 * tmpINT2 .GT. tmpINT1) THEN |
|
./pkg/exf/exf_zenithangle_table.F |
111 |
EXF_ZENITHANGLE_TABLE |
zen_albedo_table(iTyear,iLat)=0.5 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
126 |
EXF_ZENITHANGLE_TABLE |
LLLAT=yC(i,j,bi,bj)+91. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
128 |
EXF_ZENITHANGLE_TABLE |
LLLAT=max(LLLAT, 1. _d 0) |
|
./pkg/exf/exf_zenithangle_table.F |
129 |
EXF_ZENITHANGLE_TABLE |
LLLAT=min(LLLAT, 181. _d 0) |
|
./pkg/exf/exf_zenithangle_table.F |
47 |
EXF_ZENITHANGLE_TABLE |
SOLC = 1368. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
52 |
EXF_ZENITHANGLE_TABLE |
LLLAT=(iLat-91. _d 0) |
|
./pkg/exf/exf_zenithangle_table.F |
53 |
EXF_ZENITHANGLE_TABLE |
TYEAR=(iTyear-1. _d 0)/365. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
58 |
EXF_ZENITHANGLE_TABLE |
ALPHA= 2. _d 0*PI*TYEAR |
|
./pkg/exf/exf_zenithangle_table.F |
59 |
EXF_ZENITHANGLE_TABLE |
DECLI = 0.006918 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
60 |
EXF_ZENITHANGLE_TABLE |
& - 0.399912 _d 0 * cos ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
61 |
EXF_ZENITHANGLE_TABLE |
& + 0.070257 _d 0 * sin ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
62 |
EXF_ZENITHANGLE_TABLE |
& - 0.006758 _d 0 * cos ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
63 |
EXF_ZENITHANGLE_TABLE |
& + 0.000907 _d 0 * sin ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
64 |
EXF_ZENITHANGLE_TABLE |
& - 0.002697 _d 0 * cos ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
65 |
EXF_ZENITHANGLE_TABLE |
& + 0.001480 _d 0 * sin ( 3. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
77 |
EXF_ZENITHANGLE_TABLE |
dD0dDsq = 1.000110 _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
78 |
EXF_ZENITHANGLE_TABLE |
& + 0.034221 _d 0 * cos ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
79 |
EXF_ZENITHANGLE_TABLE |
& + 0.001280 _d 0 * sin ( 1. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
80 |
EXF_ZENITHANGLE_TABLE |
& + 0.000719 _d 0 * cos ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
81 |
EXF_ZENITHANGLE_TABLE |
& + 0.000077 _d 0 * sin ( 2. _d 0 * ALPHA ) |
|
./pkg/exf/exf_zenithangle_table.F |
83 |
EXF_ZENITHANGLE_TABLE |
tmpINT1=0. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
84 |
EXF_ZENITHANGLE_TABLE |
tmpINT2=0. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
86 |
EXF_ZENITHANGLE_TABLE |
TDAY=iTday/100. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
90 |
EXF_ZENITHANGLE_TABLE |
& cos( 2. _d 0 *PI* TDAY + 0. _d 0 * deg2rad ) |
|
./pkg/exf/exf_zenithangle_table.F |
91 |
EXF_ZENITHANGLE_TABLE |
IF ( CZEN .LE.0 ) CZEN = 0. _d 0 |
|
./pkg/exf/exf_zenithangle_table.F |
94 |
EXF_ZENITHANGLE_TABLE |
FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN ) |
|
./pkg/exf/exf_zenithangle_table.F |
98 |
EXF_ZENITHANGLE_TABLE |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/exf/exf_zenithangle_table.F |
99 |
EXF_ZENITHANGLE_TABLE |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/fizhi/fizhi_fillnegs.F |
41 |
QCHECK |
if( qz(i,j,LM1,bi,bj).lt.0.0 _d 0) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
43 |
QCHECK |
qz(i,j,LM1,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
51 |
QCHECK |
if(qz(i,j,Ldim,bi,bj).lt.0.0 _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
128 |
GWDRAG |
phis_std(i,j) = min( 400.0 _d 0, sqrt( max(0.0 _d 0, |
|
./pkg/fizhi/fizhi_gwdrag.F |
187 |
GWDRAG |
dragu(i,j,L) = sign( min(0.006 _d 0,abs(dragu(i,j,L))), dragu(i |
|
./pkg/fizhi/fizhi_gwdrag.F |
189 |
GWDRAG |
dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i |
|
./pkg/fizhi/fizhi_gwdrag.F |
530 |
GWDD |
if( l.eq.2 ) crif2 = min(0.7 _d 0,crif2) |
|
./pkg/fizhi/fizhi_lsm.F |
1112 |
FLUXES |
EA(CHNO) = MAX(EA(CHNO), 0.0 _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
1222 |
TMPFAC |
FTEMP(CHNO) = MIN( 1. _d 0, MAX( FTEMP(ChNo), 1. _d -10 ) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1276 |
SMFAC |
RSTFAC = MIN( 1. _d 0, MAX( 0.001 _d 0, RSTFAC ) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1316 |
RSURFP |
HESAT = ESATTC(CHNO) * MIN( 1. _d 0, WET(CHNO)*2. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
1519 |
WUPDAT |
SWET(ChNo,SFCLY) = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,SFCLY) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1521 |
WUPDAT |
SWET(ChNo,ROOTLY) = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,ROOTLY) |
|
./pkg/fizhi/fizhi_lsm.F |
1625 |
GWATER |
FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1664 |
GWATER |
FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1682 |
GWATER |
FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) ) |
|
./pkg/fizhi/fizhi_lsm.F |
189 |
TILE |
DEDQA(CHNO) = MAX( DEDQA(CHNO), 500. _d 0/ALHE ) |
|
./pkg/fizhi/fizhi_lsm.F |
190 |
TILE |
DEDTC(CHNO) = MAX( DEDTC(CHNO), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
191 |
TILE |
DHSDQA(CHNO) = MAX( DHSDQA(CHNO), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
192 |
TILE |
DHSDTC(CHNO) = MAX( DHSDTC(CHNO), -10. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
208 |
TILE |
SWET(ChNo,SFCLY ) = max( min(SWET1(ChNo),1. _d 0), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
209 |
TILE |
SWET(ChNo,ROOTLY) = max( min(SWET2(ChNo),1. _d 0), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
210 |
TILE |
SWET(ChNo,RECHLY) = max( min(SWET3(ChNo),1. _d 0), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
211 |
TILE |
CAPAC(CHNO) = max( min(CAPAC(ChNo),SATCAP(CHNO)), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
215 |
TILE |
FCAN(CHNO) = MIN( 1. _d 0, MAX(0. _d 0,CAPAC(ChNo)/SATCAP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
536 |
INTERC |
& MAX( 0. _d 0, (TC(ChNo)-TF)*CSOIL(ChNo)/ALHM ) ) |
|
./pkg/fizhi/fizhi_lsm.F |
557 |
INTERC |
XTCORR= (1.-TIMFRL) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/ |
|
./pkg/fizhi/fizhi_lsm.F |
592 |
INTERC |
XTCORR= (1.-TIMFRC) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/ |
|
./pkg/fizhi/fizhi_lsm.F |
747 |
RCUNST |
ZK = PDIR(ChNo) *MIN( EXTK1, 50. _d 0/ZLAI(ChNo) ) + |
|
./pkg/fizhi/fizhi_lsm.F |
748 |
RCUNST |
& (ONE-PDIR(ChNo))*MIN( EXTK2, 50. _d 0/ZLAI(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
799 |
SOIL |
WET0 = MAX(WET(CHNO),0.01 _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
924 |
FLUXES |
& max(0. _d 0, CONST*DESDTC(ChNo) - EHARMN*DRCDTC(ChNo) ) |
|
./pkg/fizhi/fizhi_lsm.F |
926 |
FLUXES |
& max( 0. _d 0, CONST + EHARMN*DRCDEA(ChNo) ) ) |
|
./pkg/fizhi/fizhi_lsm.F |
929 |
FLUXES |
DETERM = MIN( A12*A21/(A11*A22) - 1., -0.1 _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
100 |
LWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldlw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_lwrad.F |
102 |
LWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0, clwmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
1100 |
IRRAD |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
1101 |
IRRAD |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
111 |
LWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldlw(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
112 |
LWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0,clwmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
155 |
LWRIO |
CLRO(I,L) = min( 1.0 _d 0,clro(i,L) ) |
|
./pkg/fizhi/fizhi_lwrad.F |
156 |
LWRIO |
CLMO(I,L) = min( 1.0 _d 0,clmo(i,L) ) |
|
./pkg/fizhi/fizhi_moist.F |
1053 |
MOISTIO |
$ 1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
1058 |
MOISTIO |
$ 1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
1076 |
MOISTIO |
$ 1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
1081 |
MOISTIO |
$ 1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
2554 |
RNEVP |
fact = min( 1.0 _d 0, alpha + (1.0-alpha)*( rh-rhcrit(i,L)) / |
|
./pkg/fizhi/fizhi_moist.F |
2660 |
SRCLOUDS |
cloud(i,L) = min( ratio,1.0 _d 0) |
|
./pkg/fizhi/fizhi_moist.F |
2706 |
CTEI |
if (s.GT.0. ) f = max( 0.0 _d 0, min( 1.0 _d 0, exp(-s)) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
446 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity |
|
./pkg/fizhi/fizhi_swrad.F |
1094 |
CLDSCALE |
taux=min(taux,32. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1130 |
CLDSCALE |
xai=max(xai,0.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1145 |
CLDSCALE |
xai=max(xai,0.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1356 |
SOLIR |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1357 |
SOLIR |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1444 |
SOLIR |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1453 |
SOLIR |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1747 |
SOLUV |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1748 |
SOLUV |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1799 |
SOLUV |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
180 |
SWRIO |
cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/ |
|
./pkg/fizhi/fizhi_swrad.F |
1821 |
SOLUV |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1829 |
SOLUV |
ssato=min(ssato,0.999999 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
182 |
SWRIO |
cldmxo(i,j,L)=min(1.0 _d 0,cswmo(i,j,L)) |
|
./pkg/fizhi/fizhi_swrad.F |
191 |
SWRIO |
cldtot(i,j,L) = min( 1.0 _d 0,cldsw(i,j,L) ) |
|
./pkg/fizhi/fizhi_swrad.F |
192 |
SWRIO |
cldmxo(i,j,L) = min( 1.0 _d 0,cswmo(i,j,L) ) |
|
./pkg/fizhi/fizhi_swrad.F |
438 |
SWRIO |
alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
598 |
OPTHK |
alf = min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
618 |
OPTHK |
tauice = max( 0.0002 _d 0, 0.002*min(500*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
619 |
OPTHK |
$ 1.0 _d 0) ) |
|
./pkg/fizhi/fizhi_swrad.F |
626 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.200*min(200*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
627 |
OPTHK |
$ 1.0 _d 0) ) |
|
./pkg/fizhi/fizhi_swrad.F |
636 |
OPTHK |
tauh2o = max( 0.0020 _d 0, 0.120*min( 20*lz(i,j,L)*1000, |
|
./pkg/fizhi/fizhi_swrad.F |
637 |
OPTHK |
$ 1.0 _d 0) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
162 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./pkg/fizhi/fizhi_tendency_apply.F |
79 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = -1. _d 0 * rayleighdrag * |
|
./pkg/fizhi/fizhi_turb.F |
2070 |
TRBFLX |
qxlm(i,L) = min(qxlm(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2085 |
TRBFLX |
1 FLXFCE(1,LMINQ1),DTHS,DELTHS,NLEVMQ,1,1.0 _d -20,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2128 |
TRBFLX |
kh(i,L) = min(kh(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2129 |
TRBFLX |
km(i,L) = min(km(i,L),5. _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
2145 |
TRBFLX |
CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2172 |
TRBFLX |
& 2,0. _d 0,irun) |
|
./pkg/fizhi/fizhi_turb.F |
2209 |
TRBFLX |
CALL TRBDIF(U,V,RHOKDZ,FLXFAC,DTHS,DELTHS,NLEV,3,0. _d 0,irun) |
|
./pkg/fizhi/fizhi_turb.F |
287 |
TURBIO |
dtfac = min( 1.0 _d 0, timstp/timstp2 ) |
|
./pkg/fizhi/fizhi_turb.F |
628 |
TURBIO |
cosz(i) = max(cosz(i),0.0001 _d 0) |
|
./pkg/fizhi/fizhi_utils.F |
370 |
QSAT |
Q = MIN(QX * D,1.0 _d 0) |
|
./pkg/fizhi/getpwhere.F |
110 |
GETPWHERE |
dpTop = 1. _d 0 |
|
./pkg/fizhi/getpwhere.F |
111 |
GETPWHERE |
IF (Nr.EQ.70) dpTop = 1. _d -2 |
|
./pkg/fizhi/getpwhere.F |
117 |
GETPWHERE |
rC_dyn(L) = rC(L)*1. _d -2 |
|
./pkg/fizhi/getpwhere.F |
88 |
GETPWHERE |
dptry_pedge(1) = rF(1)*1. _d -2 |
|
./pkg/fizhi/step_fizhi_corr.F |
288 |
STEP_FIZHI_CORR |
. * 86400. _d 0 * dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
300 |
STEP_FIZHI_CORR |
. * 86400. _d 0 * dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
312 |
STEP_FIZHI_CORR |
. * 86400. _d 0 * dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
324 |
STEP_FIZHI_CORR |
. * 86400. _d 0 * dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
398 |
STEP_FIZHI_CORR |
. - duphy(i,j,L,bi,bj) - uphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
401 |
STEP_FIZHI_CORR |
. - dvphy(i,j,L,bi,bj) - vphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
454 |
STEP_FIZHI_CORR |
. ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
500 |
STEP_FIZHI_CORR |
. - dsphy(i,j,L,bi,bj) - sphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
72 |
STEP_FIZHI_CORR |
dtfake = 1. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
73 |
STEP_FIZHI_CORR |
dtinv = 1. _d 0 / dt |
|
./pkg/flt/flt_exch2.F |
192 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
214 |
FLT_EXCH2 |
jlo = 0.5 _d 0 |
|
./pkg/flt/flt_exch2.F |
215 |
FLT_EXCH2 |
jhi = 0.5 _d 0 + DFLOAT(sNy) |
|
./pkg/flt/flt_exch2.F |
329 |
FLT_EXCH2 |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exch2.F |
91 |
FLT_EXCH2 |
ilo = 0.5 _d 0 |
|
./pkg/flt/flt_exch2.F |
92 |
FLT_EXCH2 |
ihi = 0.5 _d 0 + DFLOAT(sNx) |
|
./pkg/flt/flt_exchg.F |
188 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
322 |
FLT_EXCHG |
jlo = 0.5 _d 0 |
|
./pkg/flt/flt_exchg.F |
323 |
FLT_EXCHG |
jhi = 0.5 _d 0 + DFLOAT(sNy) |
|
./pkg/flt/flt_exchg.F |
431 |
FLT_EXCHG |
IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/flt/flt_exchg.F |
89 |
FLT_EXCHG |
ilo = 0.5 _d 0 |
|
./pkg/flt/flt_exchg.F |
90 |
FLT_EXCHG |
ihi = 0.5 _d 0 + DFLOAT(sNx) |
|
./pkg/flt/flt_init_varia.F |
203 |
FLT_INIT_VARIA |
tstart(ip,bi,bj) = -1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
206 |
FLT_INIT_VARIA |
kpart(ip,bi,bj) = 1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
207 |
FLT_INIT_VARIA |
kfloat(ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
208 |
FLT_INIT_VARIA |
iup( ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
209 |
FLT_INIT_VARIA |
itop( ip,bi,bj) = 0. _d 0 |
|
./pkg/flt/flt_init_varia.F |
210 |
FLT_INIT_VARIA |
tend( ip,bi,bj) = -1. _d 0 |
|
./pkg/flt/flt_init_varia.F |
72 |
FLT_INIT_VARIA |
iLo = 0.5 _d 0 |
|
./pkg/flt/flt_init_varia.F |
73 |
FLT_INIT_VARIA |
iHi = 0.5 _d 0 + DFLOAT(sNx) |
|
./pkg/flt/flt_init_varia.F |
74 |
FLT_INIT_VARIA |
jLo = 0.5 _d 0 |
|
./pkg/flt/flt_init_varia.F |
75 |
FLT_INIT_VARIA |
jHi = 0.5 _d 0 + DFLOAT(sNy) |
|
./pkg/flt/flt_interp_linear.F |
156 |
FLT_TRILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
164 |
FLT_TRILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
172 |
FLT_TRILINEAR |
ddz = 0.5 _d 0 + kz - DFLOAT(k1) |
|
./pkg/flt/flt_interp_linear.F |
248 |
FLT_BILINEAR2D |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
256 |
FLT_BILINEAR2D |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
65 |
FLT_BILINEAR |
ddx = 0.5 _d 0 + ix - DFLOAT(i1) |
|
./pkg/flt/flt_interp_linear.F |
73 |
FLT_BILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
90 |
FLT_BILINEAR |
u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
91 |
FLT_BILINEAR |
u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
92 |
FLT_BILINEAR |
u22 = ( var(i2,j2,kl,bi,bj)+var(i2,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
93 |
FLT_BILINEAR |
u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
133 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./pkg/flt/flt_mapping.F |
134 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./pkg/flt/flt_mapping.F |
143 |
FLT_MAP_IJLOCAL2XY |
ddx = 0.5 _d 0 + ix - DFLOAT(i) |
|
./pkg/flt/flt_mapping.F |
144 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./pkg/flt/flt_mapping.F |
212 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_R2K = 0. _d 0 |
|
./pkg/flt/flt_mapping.F |
214 |
FLT_MAP_IJLOCAL2XY |
IF ( FLT_MAP_R2K .EQ. 0. _d 0 ) THEN |
|
./pkg/flt/flt_mapping.F |
218 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_R2K = DFLOAT(k)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
265 |
FLT_MAP_IJLOCAL2XY |
ddz = 0.5 _d 0 + kr - DFLOAT(k) |
|
./pkg/flt/flt_mapping.F |
54 |
FLT_MAP_XY2IJLOCAL |
ix = -1. _d 0 |
|
./pkg/flt/flt_mapping.F |
55 |
FLT_MAP_XY2IJLOCAL |
jy = -1. _d 0 |
|
./pkg/flt/flt_mapping.F |
59 |
FLT_MAP_XY2IJLOCAL |
IF ( ix.EQ.-1. _d 0 ) THEN |
|
./pkg/flt/flt_mapping.F |
63 |
FLT_MAP_XY2IJLOCAL |
ix = DFLOAT(i)+fm-0.5 _d 0 |
|
./pkg/flt/flt_mapping.F |
70 |
FLT_MAP_XY2IJLOCAL |
IF ( jy.EQ.-1. _d 0 ) THEN |
|
./pkg/flt/flt_mapping.F |
74 |
FLT_MAP_XY2IJLOCAL |
jy = DFLOAT(j)+fm-0.5 _d 0 |
|
./pkg/flt/flt_runga2.F |
74 |
FLT_RUNGA2 |
kzlo = 0.5 _d 0 |
|
./pkg/flt/flt_runga2.F |
75 |
FLT_RUNGA2 |
kzhi = 0.5 _d 0 + DFLOAT(Nr) |
|
./pkg/flt/flt_runga4.F |
74 |
FLT_RUNGA4 |
kzlo = 0.5 _d 0 |
|
./pkg/flt/flt_runga4.F |
75 |
FLT_RUNGA4 |
kzhi = 0.5 _d 0 + DFLOAT(Nr) |
|
./pkg/frazil/frazil_calc_rhs.F |
45 |
FRAZIL_CALC_RHS |
PARAMETER( a0 = -0.0575 _d 0 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
46 |
FRAZIL_CALC_RHS |
PARAMETER( a1 = 1.710523 _d -3 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
47 |
FRAZIL_CALC_RHS |
PARAMETER( a2 = -2.154996 _d -4 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
48 |
FRAZIL_CALC_RHS |
PARAMETER( b = -7.53 _d -4 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
60 |
FRAZIL_CALC_RHS |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_calc_rhs.F |
69 |
FRAZIL_CALC_RHS |
IF ( maskC(i,j,k-1,bi,bj) .NE. 0. _d 0 .AND. |
|
./pkg/frazil/frazil_calc_rhs.F |
70 |
FRAZIL_CALC_RHS |
& maskC(i,j,k, bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/frazil/frazil_calc_rhs.F |
73 |
FRAZIL_CALC_RHS |
sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0) |
|
./pkg/frazil/frazil_calc_rhs.F |
74 |
FRAZIL_CALC_RHS |
tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0) |
|
./pkg/frazil/frazil_init_varia.F |
40 |
FRAZIL_INIT_VARIA |
FrazilForcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/frazil/frazil_tendency_apply.F |
56 |
FRAZIL_TENDENCY_APPLY_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/gchem/gchem_calc_tendency.F |
68 |
GCHEM_CALC_TENDENCY |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
100 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
101 |
GCHEM_FORCING_SEP |
gsm_dic = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
102 |
GCHEM_FORCING_SEP |
gsm_alk = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
116 |
GCHEM_FORCING_SEP |
gsm_s = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
117 |
GCHEM_FORCING_SEP |
gsm_dic = 0. _d 0 |
|
./pkg/gchem/gchem_forcing_sep.F |
118 |
GCHEM_FORCING_SEP |
gsm_alk = 0. _d 0 |
|
./pkg/gchem/gchem_init_vari.F |
55 |
GCHEM_INIT_VARI |
gchemTendency(i,j,k,bi,bj,jTr) = 0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
90 |
GCHEM_READPARMS |
gchem_rl1=0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
91 |
GCHEM_READPARMS |
gchem_rl2=0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
92 |
GCHEM_READPARMS |
gchem_rl3=0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
93 |
GCHEM_READPARMS |
gchem_rl4=0. _d 0 |
|
./pkg/gchem/gchem_readparms.F |
94 |
GCHEM_READPARMS |
gchem_rl5=0. _d 0 |
|
./pkg/gchem/gchem_surfmean.F |
46 |
GCHEM_SURFMEAN |
sumTracerTile(bi,bj) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
229 |
GAD_ADVECTION |
rTrans(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
230 |
GAD_ADVECTION |
fVerT(i,j,1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
231 |
GAD_ADVECTION |
fVerT(i,j,2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
234 |
GAD_ADVECTION |
localVol(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
236 |
GAD_ADVECTION |
localTij(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
847 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_advection.F |
876 |
GAD_ADVECTION |
rTran3d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_r.F |
65 |
GAD_C2_ADV_R |
& (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_x.F |
55 |
GAD_C2_ADV_X |
& uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_adv_y.F |
55 |
GAD_C2_ADV_Y |
& vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c2_impl_r.F |
65 |
GAD_C2_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
84 |
GAD_C4_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
85 |
GAD_C4_ADV_R |
& -oneSixth*(Rjjm+Rjjp)*0.5 _d 0 ) |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
87 |
GAD_C4_ADV_R |
& oneSixth*(Rjjm-Rjjp)*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_r.F |
88 |
GAD_C4_ADV_R |
& *(1. _d 0 - maskBound) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
73 |
GAD_C4_ADV_X |
& )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
74 |
GAD_C4_ADV_X |
& +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_c4_adv_x.F |
75 |
GAD_C4_ADV_X |
& *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
73 |
GAD_C4_ADV_Y |
& )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
74 |
GAD_C4_ADV_Y |
& +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_c4_adv_y.F |
75 |
GAD_C4_ADV_Y |
& *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
168 |
GAD_CALC_RHS |
advFac = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
169 |
GAD_CALC_RHS |
IF (calcAdvection) advFac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
175 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
176 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
177 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
178 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
179 |
GAD_CALC_RHS |
df4(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
210 |
GAD_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
304 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
350 |
GAD_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
612 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
661 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
725 |
GAD_CALC_RHS |
& *( MAX(0. _d 0,fZon(i+1,j)) + MAX(0. _d 0,-fZon(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
726 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fMer(i,j+1)) + MAX(0. _d 0,-fMer(i,j)) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
727 |
GAD_CALC_RHS |
& +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
728 |
GAD_CALC_RHS |
& +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
733 |
GAD_CALC_RHS |
IF (outFlux.GT.0. _d 0 .AND. |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
736 |
GAD_CALC_RHS |
fac = MAX(0. _d 0,SmolarkiewiczMaxFrac*trac/outFlux) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
738 |
GAD_CALC_RHS |
IF (fZon(i+1,j).GT.0. _d 0) fZon(i+1,j)=fac*fZon(i+1,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
739 |
GAD_CALC_RHS |
IF (-fZon(i,j) .GT.0. _d 0) fZon(i,j) =fac*fZon(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
740 |
GAD_CALC_RHS |
IF (fMer(i,j+1).GT.0. _d 0) fMer(i,j+1)=fac*fMer(i,j+1) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
741 |
GAD_CALC_RHS |
IF (-fMer(i,j) .GT.0. _d 0) fMer(i,j) =fac*fMer(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
742 |
GAD_CALC_RHS |
IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
745 |
GAD_CALC_RHS |
IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_del2.F |
50 |
GAD_DEL2 |
del2(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
52 |
GAD_DIAGNOSTICS_STATE |
oneThird = 1. _d 0 / 3. _d 0 |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
53 |
GAD_DIAGNOSTICS_STATE |
oneFifth = 1. _d 0 / 5. _d 0 |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
54 |
GAD_DIAGNOSTICS_STATE |
oneNinth = 1. _d 0 / 9. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
60 |
GAD_DST2U1_ADV_R |
rLimit = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
61 |
GAD_DST2U1_ADV_R |
IF ( advectionScheme.EQ.ENUM_DST2 ) rLimit = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
89 |
GAD_DST2U1_ADV_R |
& *( 1. _d 0 - rLimit*(1. _d 0 - wCFL) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
91 |
GAD_DST2U1_ADV_R |
& ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_r.F |
92 |
GAD_DST2U1_ADV_R |
& + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
60 |
GAD_DST2U1_ADV_X |
xLimit = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
61 |
GAD_DST2U1_ADV_X |
IF ( advectionScheme.EQ.ENUM_DST2 ) xLimit = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
82 |
GAD_DST2U1_ADV_X |
& *( 1. _d 0 - xLimit*(1. _d 0 - uCFL) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
83 |
GAD_DST2U1_ADV_X |
uT(i,j) = ( uTrans(i,j)+uAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_x.F |
84 |
GAD_DST2U1_ADV_X |
& + ( uTrans(i,j)-uAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
59 |
GAD_DST2U1_ADV_Y |
yLimit = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
60 |
GAD_DST2U1_ADV_Y |
IF ( advectionScheme.EQ.ENUM_DST2 ) yLimit = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
81 |
GAD_DST2U1_ADV_Y |
& *( 1. _d 0 - yLimit*(1. _d 0 - vCFL) ) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
82 |
GAD_DST2U1_ADV_Y |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/generic_advdiff/gad_dst2u1_adv_y.F |
83 |
GAD_DST2U1_ADV_Y |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
72 |
GAD_DST2U1_IMPL_R |
rLimit = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
73 |
GAD_DST2U1_IMPL_R |
IF ( advectionScheme.EQ.ENUM_DST2 ) rLimit = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
85 |
GAD_DST2U1_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst2u1_impl_r.F |
87 |
GAD_DST2U1_IMPL_R |
& * ( 1. _d 0 - rLimit ) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
107 |
GAD_DST3FL_ADV_R |
psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
108 |
GAD_DST3FL_ADV_R |
& thetaP*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
110 |
GAD_DST3FL_ADV_R |
psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
111 |
GAD_DST3FL_ADV_R |
& thetaM*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
70 |
GAD_DST3FL_ADV_R |
thetaP = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
71 |
GAD_DST3FL_ADV_R |
thetaM = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
82 |
GAD_DST3FL_ADV_R |
d0=(2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
83 |
GAD_DST3FL_ADV_R |
d1=(1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
46 |
GAD_DST3FL_ADV_X |
uT(1-OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
47 |
GAD_DST3FL_ADV_X |
uT(2-OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
48 |
GAD_DST3FL_ADV_X |
uT(sNx+OLx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
54 |
GAD_DST3FL_ADV_X |
thetaP = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
55 |
GAD_DST3FL_ADV_X |
thetaM = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
64 |
GAD_DST3FL_ADV_X |
d0=(2. _d 0 -uCFL)*(1. _d 0 -uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
65 |
GAD_DST3FL_ADV_X |
d1=(1. _d 0 -uCFL*uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
89 |
GAD_DST3FL_ADV_X |
psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
90 |
GAD_DST3FL_ADV_X |
& thetaP*(1. _d 0 -uCFL)/(uCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
92 |
GAD_DST3FL_ADV_X |
psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
93 |
GAD_DST3FL_ADV_X |
& thetaM*(1. _d 0 -uCFL)/(uCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
42 |
GAD_DST3FL_ADV_Y |
vT(i,1-OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
43 |
GAD_DST3FL_ADV_Y |
vT(i,2-OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
44 |
GAD_DST3FL_ADV_Y |
vT(i,sNy+OLy)=0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
50 |
GAD_DST3FL_ADV_Y |
thetaP = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
51 |
GAD_DST3FL_ADV_Y |
thetaM = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
60 |
GAD_DST3FL_ADV_Y |
d0=(2. _d 0 -vCFL)*(1. _d 0 -vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
61 |
GAD_DST3FL_ADV_Y |
d1=(1. _d 0 -vCFL*vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
85 |
GAD_DST3FL_ADV_Y |
psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
86 |
GAD_DST3FL_ADV_Y |
& thetaP*(1. _d 0 -vCFL)/(vCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
88 |
GAD_DST3FL_ADV_Y |
psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM), |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
89 |
GAD_DST3FL_ADV_Y |
& thetaM*(1. _d 0 -vCFL)/(vCFL+1. _d -20) )) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
105 |
GAD_DST3FL_IMPL_R |
cL1 = (2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
106 |
GAD_DST3FL_IMPL_R |
cH3 = (1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
108 |
GAD_DST3FL_IMPL_R |
cM2 = (1. _d 0 + wCFL)/( wCFL +1. _d -20) |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
111 |
GAD_DST3FL_IMPL_R |
IF ( rTrans(i,j).GT.0. _d 0 ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
116 |
GAD_DST3FL_IMPL_R |
IF ( Rj*Rjh.LE.0. _d 0 ) THEN |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
118 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
119 |
GAD_DST3FL_IMPL_R |
highFac(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
131 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
135 |
GAD_DST3FL_IMPL_R |
lowFac(i,j) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
136 |
GAD_DST3FL_IMPL_R |
highFac(i,j)= 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
145 |
GAD_DST3FL_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
148 |
GAD_DST3FL_IMPL_R |
rUpwind= (0.5 _d 0 -lowFac(i,j))*ABS(rCenter)*2. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
88 |
GAD_DST3FL_IMPL_R |
maskP1 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
89 |
GAD_DST3FL_IMPL_R |
maskM2 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
90 |
GAD_DST3FL_IMPL_R |
IF ( k.LE.2 ) maskM2 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
91 |
GAD_DST3FL_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
109 |
GAD_FLUXLIMIT_ADV_R |
& (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F |
111 |
GAD_FLUXLIMIT_ADV_R |
& *Rj*0.5 _d 0 ) |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
100 |
GAD_FLUXLIMIT_ADV_X |
& *Rj*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F |
98 |
GAD_FLUXLIMIT_ADV_X |
& uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
100 |
GAD_FLUXLIMIT_ADV_Y |
& *Rj*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F |
98 |
GAD_FLUXLIMIT_ADV_Y |
& vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
100 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
101 |
GAD_FLUXLIMIT_IMPL_R |
& - Limiter(Cr) * ( 1. _d 0 + ABS(w_CFL) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
102 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = MAX( -1. _d 0, upwindFac(i,j) ) |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
104 |
GAD_FLUXLIMIT_IMPL_R |
upwindFac(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
112 |
GAD_FLUXLIMIT_IMPL_R |
rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
94 |
GAD_FLUXLIMIT_IMPL_R |
IF ( Rj.NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F |
95 |
GAD_FLUXLIMIT_IMPL_R |
IF (rTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_implicit_r.F |
111 |
GAD_IMPLICIT_R |
a5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
112 |
GAD_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
113 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
114 |
GAD_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
115 |
GAD_IMPLICIT_R |
e5d(i,j,k) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
152 |
GAD_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - ( b5d(i,j,k) + d5d(i,j,k) ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
192 |
GAD_IMPLICIT_R |
rTrans(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
301 |
GAD_IMPLICIT_R |
flx(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
325 |
GAD_IMPLICIT_R |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
365 |
GAD_IMPLICIT_R |
div(i,j) = gTracer(i,j,k)*( c5d(i,j,k) - 1. _d 0 ) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
169 |
GAD_INIT_FIXED |
SmolarkiewiczMaxFrac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
49 |
GAD_INIT_VARIA |
som_T(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
51 |
GAD_INIT_VARIA |
som_S(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
100 |
GAD_OS7MP_ADV_R |
Qim = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
101 |
GAD_OS7MP_ADV_R |
Qimm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
102 |
GAD_OS7MP_ADV_R |
Qimmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
104 |
GAD_OS7MP_ADV_R |
MskIpp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
105 |
GAD_OS7MP_ADV_R |
MskIp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
106 |
GAD_OS7MP_ADV_R |
MskI = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
107 |
GAD_OS7MP_ADV_R |
MskIm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
108 |
GAD_OS7MP_ADV_R |
MskImm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
109 |
GAD_OS7MP_ADV_R |
MskImmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
112 |
GAD_OS7MP_ADV_R |
IF (wTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
114 |
GAD_OS7MP_ADV_R |
Fac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
118 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
123 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
129 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
136 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
144 |
GAD_OS7MP_ADV_R |
Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
157 |
GAD_OS7MP_ADV_R |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
164 |
GAD_OS7MP_ADV_R |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
175 |
GAD_OS7MP_ADV_R |
A = 4. _d 0*d2 - d2p1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
176 |
GAD_OS7MP_ADV_R |
B = 4. _d 0*d2p1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
179 |
GAD_OS7MP_ADV_R |
dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
180 |
GAD_OS7MP_ADV_R |
A = 4. _d 0*d2m1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
181 |
GAD_OS7MP_ADV_R |
B = 4. _d 0*d2 - d2m1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
184 |
GAD_OS7MP_ADV_R |
dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
192 |
GAD_OS7MP_ADV_R |
PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
193 |
GAD_OS7MP_ADV_R |
PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
195 |
GAD_OS7MP_ADV_R |
PhiMin = max(min(0. _d 0,PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
196 |
GAD_OS7MP_ADV_R |
& min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
197 |
GAD_OS7MP_ADV_R |
PhiMax = min(max(2. _d 0/(1. _d 0-cfl),PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
198 |
GAD_OS7MP_ADV_R |
& max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC)) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
201 |
GAD_OS7MP_ADV_R |
Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
204 |
GAD_OS7MP_ADV_R |
wT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
49 |
GAD_OS7MP_ADV_R |
Eps = 1. _d -20 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
65 |
GAD_OS7MP_ADV_R |
IF (wTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
80 |
GAD_OS7MP_ADV_R |
ELSEIF (wTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
96 |
GAD_OS7MP_ADV_R |
Qippp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
97 |
GAD_OS7MP_ADV_R |
Qipp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
98 |
GAD_OS7MP_ADV_R |
Qip = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
99 |
GAD_OS7MP_ADV_R |
Qi = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
100 |
GAD_OS7MP_ADV_X |
Qippp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
101 |
GAD_OS7MP_ADV_X |
Qipp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
102 |
GAD_OS7MP_ADV_X |
Qip = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
103 |
GAD_OS7MP_ADV_X |
Qi = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
104 |
GAD_OS7MP_ADV_X |
Qim = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
105 |
GAD_OS7MP_ADV_X |
Qimm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
106 |
GAD_OS7MP_ADV_X |
Qimmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
108 |
GAD_OS7MP_ADV_X |
MskIpp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
109 |
GAD_OS7MP_ADV_X |
MskIp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
110 |
GAD_OS7MP_ADV_X |
MskI = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
111 |
GAD_OS7MP_ADV_X |
MskIm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
112 |
GAD_OS7MP_ADV_X |
MskImm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
113 |
GAD_OS7MP_ADV_X |
MskImmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
116 |
GAD_OS7MP_ADV_X |
IF (uTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
118 |
GAD_OS7MP_ADV_X |
Fac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
122 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
127 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
133 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
140 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
148 |
GAD_OS7MP_ADV_X |
Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
161 |
GAD_OS7MP_ADV_X |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
168 |
GAD_OS7MP_ADV_X |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
179 |
GAD_OS7MP_ADV_X |
A = 4. _d 0*d2 - d2p1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
180 |
GAD_OS7MP_ADV_X |
B = 4. _d 0*d2p1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
183 |
GAD_OS7MP_ADV_X |
dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
184 |
GAD_OS7MP_ADV_X |
A = 4. _d 0*d2m1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
185 |
GAD_OS7MP_ADV_X |
B = 4. _d 0*d2 - d2m1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
188 |
GAD_OS7MP_ADV_X |
dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
196 |
GAD_OS7MP_ADV_X |
PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
197 |
GAD_OS7MP_ADV_X |
PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
199 |
GAD_OS7MP_ADV_X |
PhiMin = max( min(0. _d 0,PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
200 |
GAD_OS7MP_ADV_X |
& min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
201 |
GAD_OS7MP_ADV_X |
PhiMax = min( max(2. _d 0/(1. _d 0-cfl),PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
202 |
GAD_OS7MP_ADV_X |
& max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
205 |
GAD_OS7MP_ADV_X |
Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
208 |
GAD_OS7MP_ADV_X |
uT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
51 |
GAD_OS7MP_ADV_X |
Eps = 1. _d -20 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
54 |
GAD_OS7MP_ADV_X |
uT(1-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
55 |
GAD_OS7MP_ADV_X |
uT(2-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
56 |
GAD_OS7MP_ADV_X |
uT(3-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
57 |
GAD_OS7MP_ADV_X |
uT(4-Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
58 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx-2,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
59 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx-1,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
60 |
GAD_OS7MP_ADV_X |
uT(sNx+Olx,j)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
69 |
GAD_OS7MP_ADV_X |
IF (uTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
84 |
GAD_OS7MP_ADV_X |
ELSEIF (uTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
100 |
GAD_OS7MP_ADV_Y |
Qippp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
101 |
GAD_OS7MP_ADV_Y |
Qipp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
102 |
GAD_OS7MP_ADV_Y |
Qip = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
103 |
GAD_OS7MP_ADV_Y |
Qi = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
104 |
GAD_OS7MP_ADV_Y |
Qim = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
105 |
GAD_OS7MP_ADV_Y |
Qimm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
106 |
GAD_OS7MP_ADV_Y |
Qimmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
108 |
GAD_OS7MP_ADV_Y |
MskIpp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
109 |
GAD_OS7MP_ADV_Y |
MskIp = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
110 |
GAD_OS7MP_ADV_Y |
MskI = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
111 |
GAD_OS7MP_ADV_Y |
MskIm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
112 |
GAD_OS7MP_ADV_Y |
MskImm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
113 |
GAD_OS7MP_ADV_Y |
MskImmm = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
116 |
GAD_OS7MP_ADV_Y |
IF (vTrans(i,j).NE.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
118 |
GAD_OS7MP_ADV_Y |
Fac = 1. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
122 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
127 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
133 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
140 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
148 |
GAD_OS7MP_ADV_Y |
Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
161 |
GAD_OS7MP_ADV_Y |
recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
168 |
GAD_OS7MP_ADV_Y |
recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
179 |
GAD_OS7MP_ADV_Y |
A = 4. _d 0*d2 - d2p1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
180 |
GAD_OS7MP_ADV_Y |
B = 4. _d 0*d2p1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
183 |
GAD_OS7MP_ADV_Y |
dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
184 |
GAD_OS7MP_ADV_Y |
A = 4. _d 0*d2m1 - d2 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
185 |
GAD_OS7MP_ADV_Y |
B = 4. _d 0*d2 - d2m1 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
188 |
GAD_OS7MP_ADV_Y |
dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
196 |
GAD_OS7MP_ADV_Y |
PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
197 |
GAD_OS7MP_ADV_Y |
PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
199 |
GAD_OS7MP_ADV_Y |
PhiMin = max( min(0. _d 0,PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
200 |
GAD_OS7MP_ADV_Y |
& min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
201 |
GAD_OS7MP_ADV_Y |
PhiMax = min( max(2. _d 0/(1. _d 0-cfl),PhiMD), |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
202 |
GAD_OS7MP_ADV_Y |
& max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) ) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
205 |
GAD_OS7MP_ADV_Y |
Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
208 |
GAD_OS7MP_ADV_Y |
vT(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
51 |
GAD_OS7MP_ADV_Y |
Eps = 1. _d -20 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
54 |
GAD_OS7MP_ADV_Y |
vT(i,1-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
55 |
GAD_OS7MP_ADV_Y |
vT(i,2-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
56 |
GAD_OS7MP_ADV_Y |
vT(i,3-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
57 |
GAD_OS7MP_ADV_Y |
vT(i,4-Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
58 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly-2)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
59 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly-1)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
60 |
GAD_OS7MP_ADV_Y |
vT(i,sNy+Oly)=0. _d 0 |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
69 |
GAD_OS7MP_ADV_Y |
IF (vTrans(i,j).GT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
84 |
GAD_OS7MP_ADV_Y |
ELSEIF (vTrans(i,j).LT.0. _d 0) THEN |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
44 |
GAD_OSC_LOC_R |
ohat(+1,ir) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
45 |
GAD_OSC_LOC_R |
& - floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
47 |
GAD_OSC_LOC_R |
ohat(+2,ir) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
48 |
GAD_OSC_LOC_R |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
49 |
GAD_OSC_LOC_R |
& + floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
64 |
GAD_OSC_LOC_R |
ohat(+1,ir) = floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
65 |
GAD_OSC_LOC_R |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
67 |
GAD_OSC_LOC_R |
ohat(+2,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
82 |
GAD_OSC_LOC_R |
ohat(+1,ir) = floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
83 |
GAD_OSC_LOC_R |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_r.F |
85 |
GAD_OSC_LOC_R |
ohat(+2,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
44 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
45 |
GAD_OSC_LOC_X |
& - floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
47 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
48 |
GAD_OSC_LOC_X |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
49 |
GAD_OSC_LOC_X |
& + floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
66 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
67 |
GAD_OSC_LOC_X |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
69 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
70 |
GAD_OSC_LOC_X |
& - floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
71 |
GAD_OSC_LOC_X |
& + floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
88 |
GAD_OSC_LOC_X |
ohat(+1,ix) = floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
89 |
GAD_OSC_LOC_X |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
91 |
GAD_OSC_LOC_X |
ohat(+2,ix) = floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
92 |
GAD_OSC_LOC_X |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_x.F |
93 |
GAD_OSC_LOC_X |
& + floc(-2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
44 |
GAD_OSC_LOC_Y |
ohat(+1,iy) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
45 |
GAD_OSC_LOC_Y |
& - floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
47 |
GAD_OSC_LOC_Y |
ohat(+2,iy) = floc(+1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
48 |
GAD_OSC_LOC_Y |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
49 |
GAD_OSC_LOC_Y |
& + floc(-1)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
66 |
GAD_OSC_LOC_Y |
ohat(+1,iy) = floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
67 |
GAD_OSC_LOC_Y |
& - floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
69 |
GAD_OSC_LOC_Y |
ohat(+2,iy) = floc(+2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
70 |
GAD_OSC_LOC_Y |
& - floc(+1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
71 |
GAD_OSC_LOC_Y |
& + floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
88 |
GAD_OSC_LOC_Y |
ohat(+1,iy) = floc(+0)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
89 |
GAD_OSC_LOC_Y |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
91 |
GAD_OSC_LOC_Y |
ohat(+2,iy) = floc(+0)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
92 |
GAD_OSC_LOC_Y |
& - floc(-1)*0.50 _d 0 |
|
./pkg/generic_advdiff/gad_osc_hat_y.F |
93 |
GAD_OSC_LOC_Y |
& + floc(-2)*0.25 _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
30 |
GAD_OSC_MUL_R |
omin = +1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
31 |
GAD_OSC_MUL_R |
omax = -1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
33 |
GAD_OSC_MUL_R |
zero = 1. _d -20 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
34 |
GAD_OSC_MUL_R |
mval = 1. _d + 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
39 |
GAD_OSC_MUL_R |
dels = (ii - ir) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
47 |
GAD_OSC_MUL_R |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
48 |
GAD_OSC_MUL_R |
& + (4. _d 0 * dfs2)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
58 |
GAD_OSC_MUL_R |
if (mval .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
61 |
GAD_OSC_MUL_R |
scal(1) = 1. _d 5 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
63 |
GAD_OSC_MUL_R |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
73 |
GAD_OSC_MUL_R |
scal(1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_r.F |
74 |
GAD_OSC_MUL_R |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
30 |
GAD_OSC_MUL_X |
omin = +1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
31 |
GAD_OSC_MUL_X |
omax = -1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
33 |
GAD_OSC_MUL_X |
zero = 1. _d -20 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
34 |
GAD_OSC_MUL_X |
mval = 1. _d + 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
39 |
GAD_OSC_MUL_X |
dels = (ii - ix) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
47 |
GAD_OSC_MUL_X |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
48 |
GAD_OSC_MUL_X |
& + (4. _d 0 * dfs2)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
58 |
GAD_OSC_MUL_X |
if (mval .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
61 |
GAD_OSC_MUL_X |
scal(1) = 1. _d 5 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
63 |
GAD_OSC_MUL_X |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
73 |
GAD_OSC_MUL_X |
scal(1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_x.F |
74 |
GAD_OSC_MUL_X |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
30 |
GAD_OSC_MUL_Y |
omin = +1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
31 |
GAD_OSC_MUL_Y |
omax = -1. _d 99 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
33 |
GAD_OSC_MUL_Y |
zero = 1. _d -20 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
34 |
GAD_OSC_MUL_Y |
mval = 1. _d + 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
39 |
GAD_OSC_MUL_Y |
dels = (ii - iy) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
47 |
GAD_OSC_MUL_Y |
oval = (2. _d 0 * dfs1)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
48 |
GAD_OSC_MUL_Y |
& + (4. _d 0 * dfs2)**2 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
58 |
GAD_OSC_MUL_Y |
if (mval .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
61 |
GAD_OSC_MUL_Y |
scal(1) = 1. _d 5 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
63 |
GAD_OSC_MUL_Y |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
73 |
GAD_OSC_MUL_Y |
scal(1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_osc_mul_y.F |
74 |
GAD_OSC_MUL_Y |
scal(2) = 1. _d 0 |
|
./pkg/generic_advdiff/gad_plm_fun.F |
105 |
GAD_PLM_FUN_V |
& 0.5 _d 0 * (ferr - fell) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
112 |
GAD_PLM_FUN_V |
scal = min(scal, 1.0 _d 0) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
119 |
GAD_PLM_FUN_V |
dfds(+0) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_plm_fun.F |
30 |
GAD_PLM_FUN_U |
PARAMETER( epsil = 1. _d -16 ) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
35 |
GAD_PLM_FUN_U |
if (dfds(-1) * dfds(+1) .gt. 0.0 _d 0) then |
|
./pkg/generic_advdiff/gad_plm_fun.F |
38 |
GAD_PLM_FUN_U |
fell = 0.5 _d 0 * (ffll + ff00) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
39 |
GAD_PLM_FUN_U |
ferr = 0.5 _d 0 * (ff00 + ffrr) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
43 |
GAD_PLM_FUN_U |
& 0.5 _d 0 * (ferr - fell) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
50 |
GAD_PLM_FUN_U |
scal = min(scal, 1.0 _d 0) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
57 |
GAD_PLM_FUN_U |
dfds(+0) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_plm_fun.F |
61 |
GAD_PLM_FUN_U |
dfds(-1) = 0.5 _d 0 * dfds(-1) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
62 |
GAD_PLM_FUN_U |
dfds(+1) = 0.5 _d 0 * dfds(+1) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
90 |
GAD_PLM_FUN_V |
PARAMETER( epsil = 1. _d -16 ) |
|
./pkg/generic_advdiff/gad_plm_fun.F |
95 |
GAD_PLM_FUN_V |
if (dfds(-1) * dfds(+1) .gt. 0.0 _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
100 |
GAD_PPM_ADV_R |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
107 |
GAD_PPM_ADV_R |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
153 |
GAD_PPM_ADV_R |
flux(ix,iy,ir) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
70 |
GAD_PPM_ADV_R |
mloc( -2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
71 |
GAD_PPM_ADV_R |
mloc( -1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
72 |
GAD_PPM_ADV_R |
mloc( +0) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
73 |
GAD_PPM_ADV_R |
mloc(Nr+1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
74 |
GAD_PPM_ADV_R |
mloc(Nr+2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
75 |
GAD_PPM_ADV_R |
mloc(Nr+3) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
92 |
GAD_PPM_ADV_R |
flux(ix,iy,+1) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
102 |
GAD_PPM_ADV_X |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
141 |
GAD_PPM_ADV_X |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
72 |
GAD_PPM_ADV_X |
flux( +1-OLx+0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
73 |
GAD_PPM_ADV_X |
flux( +1-OLx+1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
74 |
GAD_PPM_ADV_X |
flux( +1-OLx+2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
75 |
GAD_PPM_ADV_X |
flux( +1-OLx+3,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
76 |
GAD_PPM_ADV_X |
flux(sNx+OLx-0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
77 |
GAD_PPM_ADV_X |
flux(sNx+OLx-1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
78 |
GAD_PPM_ADV_X |
flux(sNx+OLx-2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
95 |
GAD_PPM_ADV_X |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
102 |
GAD_PPM_ADV_Y |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
141 |
GAD_PPM_ADV_Y |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
72 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
73 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
74 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
75 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
76 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
77 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
78 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
95 |
GAD_PPM_ADV_Y |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
103 |
GAD_PPM_FLX_R |
ss11 = -1. _d 0 + 2. _d 0 * wCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
104 |
GAD_PPM_FLX_R |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
109 |
GAD_PPM_FLX_R |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
111 |
GAD_PPM_FLX_R |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
69 |
GAD_PPM_FLX_R |
if (wvel(ix,iy,ir) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
71 |
GAD_PPM_FLX_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
75 |
GAD_PPM_FLX_R |
if (wvel(ix,iy,ir) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
81 |
GAD_PPM_FLX_R |
ss11 = +1. _d 0 + 2. _d 0 * wCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
82 |
GAD_PPM_FLX_R |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
87 |
GAD_PPM_FLX_R |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
89 |
GAD_PPM_FLX_R |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
112 |
GAD_PPM_FLX_X |
ss11 = -1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
113 |
GAD_PPM_FLX_X |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
118 |
GAD_PPM_FLX_X |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
120 |
GAD_PPM_FLX_X |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
68 |
GAD_PPM_FLX_X |
if (uvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
70 |
GAD_PPM_FLX_X |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
74 |
GAD_PPM_FLX_X |
if (uvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
85 |
GAD_PPM_FLX_X |
ss11 = +1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
86 |
GAD_PPM_FLX_X |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
91 |
GAD_PPM_FLX_X |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
93 |
GAD_PPM_FLX_X |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
112 |
GAD_PPM_FLX_Y |
ss11 = -1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
113 |
GAD_PPM_FLX_Y |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
118 |
GAD_PPM_FLX_Y |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
120 |
GAD_PPM_FLX_Y |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
68 |
GAD_PPM_FLX_Y |
if (vvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
70 |
GAD_PPM_FLX_Y |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
74 |
GAD_PPM_FLX_Y |
if (vvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
85 |
GAD_PPM_FLX_Y |
ss11 = +1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
86 |
GAD_PPM_FLX_Y |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
91 |
GAD_PPM_FLX_Y |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
93 |
GAD_PPM_FLX_Y |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
101 |
GAD_PPM_FUN_MONO |
& (ferr-ff00) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
111 |
GAD_PPM_FUN_MONO |
& +(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
112 |
GAD_PPM_FUN_MONO |
& -(1. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
114 |
GAD_PPM_FUN_MONO |
& +(1. _d 0 / 2. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
116 |
GAD_PPM_FUN_MONO |
& -(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
117 |
GAD_PPM_FUN_MONO |
& +(3. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
120 |
GAD_PPM_FUN_MONO |
& abs(fhat(2))*.5 _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
122 |
GAD_PPM_FUN_MONO |
turn = -0.5 _d 0 * fhat(2) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
125 |
GAD_PPM_FUN_MONO |
if ((turn .ge. -1. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
126 |
GAD_PPM_FUN_MONO |
& .and.(turn .le. +0. _d 0)) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
131 |
GAD_PPM_FUN_MONO |
ferr = +3. _d 0 * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
132 |
GAD_PPM_FUN_MONO |
& -2. _d 0 * fell |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
136 |
GAD_PPM_FUN_MONO |
if ((turn .gt. +0. _d 0) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
137 |
GAD_PPM_FUN_MONO |
& .and.(turn .le. +1. _d 0)) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
142 |
GAD_PPM_FUN_MONO |
fell = +3. _d 0 * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
143 |
GAD_PPM_FUN_MONO |
& -2. _d 0 * ferr |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
153 |
GAD_PPM_FUN_MONO |
& +(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
154 |
GAD_PPM_FUN_MONO |
& -(1. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
156 |
GAD_PPM_FUN_MONO |
& +(1. _d 0 / 2. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
158 |
GAD_PPM_FUN_MONO |
& -(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
159 |
GAD_PPM_FUN_MONO |
& +(3. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
34 |
GAD_PPM_FUN_NULL |
& +(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
35 |
GAD_PPM_FUN_NULL |
& -(1. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
37 |
GAD_PPM_FUN_NULL |
& +(1. _d 0 / 2. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
39 |
GAD_PPM_FUN_NULL |
& -(3. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
40 |
GAD_PPM_FUN_NULL |
& +(3. _d 0 / 4. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
77 |
GAD_PPM_FUN_MONO |
& (ff00-ffll) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
83 |
GAD_PPM_FUN_MONO |
fhat(2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
84 |
GAD_PPM_FUN_MONO |
fhat(3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_fun.F |
92 |
GAD_PPM_FUN_MONO |
& (fell-ff00) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_ppm_hat_r.F |
110 |
GAD_PPM_HAT_R |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_ppm_hat_x.F |
111 |
GAD_PPM_HAT_X |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_ppm_hat_y.F |
112 |
GAD_PPM_HAT_Y |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
46 |
GAD_PPM_P3E_R |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
52 |
GAD_PPM_P3E_R |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
58 |
GAD_PPM_P3E_R |
& -(1. _d 0 / 12. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_r.F |
59 |
GAD_PPM_P3E_R |
& +(7. _d 0 / 12. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
46 |
GAD_PPM_P3E_X |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
52 |
GAD_PPM_P3E_X |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
58 |
GAD_PPM_P3E_X |
& -(1. _d 0 / 12. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_x.F |
59 |
GAD_PPM_P3E_X |
& +(7. _d 0 / 12. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
47 |
GAD_PPM_P3E_Y |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
53 |
GAD_PPM_P3E_Y |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
59 |
GAD_PPM_P3E_Y |
& -(1. _d 0 / 12. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_ppm_p3e_y.F |
60 |
GAD_PPM_P3E_Y |
& +(7. _d 0 / 12. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
100 |
GAD_PQM_ADV_R |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
111 |
GAD_PQM_ADV_R |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
150 |
GAD_PQM_ADV_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
70 |
GAD_PQM_ADV_R |
mloc( -2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
71 |
GAD_PQM_ADV_R |
mloc( -1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
72 |
GAD_PQM_ADV_R |
mloc( +0) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
73 |
GAD_PQM_ADV_R |
mloc(Nr+1) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
74 |
GAD_PQM_ADV_R |
mloc(Nr+2) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
75 |
GAD_PQM_ADV_R |
mloc(Nr+3) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
92 |
GAD_PQM_ADV_R |
flux(ix,iy,+1) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
107 |
GAD_PQM_ADV_X |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
139 |
GAD_PQM_ADV_X |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
73 |
GAD_PQM_ADV_X |
flux( +1-OLx+0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
74 |
GAD_PQM_ADV_X |
flux( +1-OLx+1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
75 |
GAD_PQM_ADV_X |
flux( +1-OLx+2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
76 |
GAD_PQM_ADV_X |
flux( +1-OLx+3,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
77 |
GAD_PQM_ADV_X |
flux(sNx+OLx-0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
78 |
GAD_PQM_ADV_X |
flux(sNx+OLx-1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
79 |
GAD_PQM_ADV_X |
flux(sNx+OLx-2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
96 |
GAD_PQM_ADV_X |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
107 |
GAD_PQM_ADV_Y |
if (vsum .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
139 |
GAD_PQM_ADV_Y |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
73 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
74 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
75 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
76 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
77 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
78 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
79 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
96 |
GAD_PQM_ADV_Y |
vsum = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
109 |
GAD_PQM_FLX_R |
ss11 = -1. _d 0 + 2. _d 0 * wCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
110 |
GAD_PQM_FLX_R |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
115 |
GAD_PQM_FLX_R |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
117 |
GAD_PQM_FLX_R |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
119 |
GAD_PQM_FLX_R |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
121 |
GAD_PQM_FLX_R |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
69 |
GAD_PQM_FLX_R |
if (wfac(ix,iy,ir) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
71 |
GAD_PQM_FLX_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
75 |
GAD_PQM_FLX_R |
if (wfac(ix,iy,ir) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
81 |
GAD_PQM_FLX_R |
ss11 = +1. _d 0 + 2. _d 0 * wCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
82 |
GAD_PQM_FLX_R |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
87 |
GAD_PQM_FLX_R |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
89 |
GAD_PQM_FLX_R |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
91 |
GAD_PQM_FLX_R |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
93 |
GAD_PQM_FLX_R |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
118 |
GAD_PQM_FLX_X |
ss11 = -1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
119 |
GAD_PQM_FLX_X |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
124 |
GAD_PQM_FLX_X |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
126 |
GAD_PQM_FLX_X |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
128 |
GAD_PQM_FLX_X |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
130 |
GAD_PQM_FLX_X |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
68 |
GAD_PQM_FLX_X |
if (uvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
70 |
GAD_PQM_FLX_X |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
74 |
GAD_PQM_FLX_X |
if (uvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
85 |
GAD_PQM_FLX_X |
ss11 = +1. _d 0 - 2. _d 0 * uCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
86 |
GAD_PQM_FLX_X |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
91 |
GAD_PQM_FLX_X |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
93 |
GAD_PQM_FLX_X |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
95 |
GAD_PQM_FLX_X |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
97 |
GAD_PQM_FLX_X |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
118 |
GAD_PQM_FLX_Y |
ss11 = -1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
119 |
GAD_PQM_FLX_Y |
ss22 = -1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
124 |
GAD_PQM_FLX_Y |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
126 |
GAD_PQM_FLX_Y |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
128 |
GAD_PQM_FLX_Y |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
130 |
GAD_PQM_FLX_Y |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
68 |
GAD_PQM_FLX_Y |
if (vvel(ix,iy) .eq. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
70 |
GAD_PQM_FLX_Y |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
74 |
GAD_PQM_FLX_Y |
if (vvel(ix,iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
85 |
GAD_PQM_FLX_Y |
ss11 = +1. _d 0 - 2. _d 0 * vCFL |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
86 |
GAD_PQM_FLX_Y |
ss22 = +1. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
91 |
GAD_PQM_FLX_Y |
& - ss11 ** 2)*(1. _d 0 / 2. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
93 |
GAD_PQM_FLX_Y |
& - ss11 ** 3)*(1. _d 0 / 3. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
95 |
GAD_PQM_FLX_Y |
& - ss11 ** 4)*(1. _d 0 / 4. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
97 |
GAD_PQM_FLX_Y |
& - ss11 ** 5)*(1. _d 0 / 5. _d 0) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
102 |
GAD_PQM_FUN_NULL |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
103 |
GAD_PQM_FUN_NULL |
& - ( 7. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
104 |
GAD_PQM_FUN_NULL |
& + ( 1. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
106 |
GAD_PQM_FUN_NULL |
& + ( 3. _d 0 / 4. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
107 |
GAD_PQM_FUN_NULL |
& - ( 1. _d 0 / 4. _d 0) *(derr+dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
109 |
GAD_PQM_FUN_NULL |
& - (30. _d 0 / 8. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
110 |
GAD_PQM_FUN_NULL |
& + (15. _d 0 / 8. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
111 |
GAD_PQM_FUN_NULL |
& - ( 3. _d 0 / 8. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
113 |
GAD_PQM_FUN_NULL |
& - ( 1. _d 0 / 4. _d 0) *(ferr-fell-derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
115 |
GAD_PQM_FUN_NULL |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
116 |
GAD_PQM_FUN_NULL |
& - (15. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
117 |
GAD_PQM_FUN_NULL |
& + ( 5. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
161 |
GAD_PQM_FUN_MONO |
& (ff00-ffll) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
167 |
GAD_PQM_FUN_MONO |
fhat(2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
168 |
GAD_PQM_FUN_MONO |
fhat(3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
169 |
GAD_PQM_FUN_MONO |
fhat(4) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
170 |
GAD_PQM_FUN_MONO |
fhat(5) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
178 |
GAD_PQM_FUN_MONO |
& (fell - ff00) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
187 |
GAD_PQM_FUN_MONO |
& (ferr - ff00) .le. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
196 |
GAD_PQM_FUN_MONO |
if((dell * dfds(-1)) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
204 |
GAD_PQM_FUN_MONO |
if((derr * dfds(+1)) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
214 |
GAD_PQM_FUN_MONO |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
215 |
GAD_PQM_FUN_MONO |
& - ( 7. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
216 |
GAD_PQM_FUN_MONO |
& + ( 1. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
218 |
GAD_PQM_FUN_MONO |
& + ( 3. _d 0 / 4. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
219 |
GAD_PQM_FUN_MONO |
& - ( 1. _d 0 / 4. _d 0) *(derr+dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
221 |
GAD_PQM_FUN_MONO |
& - (30. _d 0 / 8. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
222 |
GAD_PQM_FUN_MONO |
& + (15. _d 0 / 8. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
223 |
GAD_PQM_FUN_MONO |
& - ( 3. _d 0 / 8. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
225 |
GAD_PQM_FUN_MONO |
& - ( 1. _d 0 / 4. _d 0) *(ferr-fell-derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
227 |
GAD_PQM_FUN_MONO |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
228 |
GAD_PQM_FUN_MONO |
& - (15. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
229 |
GAD_PQM_FUN_MONO |
& + ( 5. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
232 |
GAD_PQM_FUN_MONO |
aval = 12. _d 0 * fhat(5) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
233 |
GAD_PQM_FUN_MONO |
bval = 6. _d 0 * fhat(4) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
234 |
GAD_PQM_FUN_MONO |
cval = 2. _d 0 * fhat(3) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
240 |
GAD_PQM_FUN_MONO |
if ( ( iflx(1) .gt. -1. _d 0 ) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
241 |
GAD_PQM_FUN_MONO |
& .and. ( iflx(1) .lt. +1. _d 0 ) ) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
245 |
GAD_PQM_FUN_MONO |
& + iflx(1) * fhat(3) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
246 |
GAD_PQM_FUN_MONO |
& +(iflx(1) ** 2) * fhat(4) * 3. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
247 |
GAD_PQM_FUN_MONO |
& +(iflx(1) ** 3) * fhat(5) * 4. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
249 |
GAD_PQM_FUN_MONO |
if (dflx(1)*dfds(+0) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
266 |
GAD_PQM_FUN_MONO |
if ( ( iflx(2) .gt. -1. _d 0 ) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
267 |
GAD_PQM_FUN_MONO |
& .and. ( iflx(2) .lt. +1. _d 0 ) ) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
271 |
GAD_PQM_FUN_MONO |
& + iflx(2) * fhat(3) * 2. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
272 |
GAD_PQM_FUN_MONO |
& +(iflx(2) ** 2) * fhat(4) * 3. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
273 |
GAD_PQM_FUN_MONO |
& +(iflx(2) ** 3) * fhat(5) * 4. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
275 |
GAD_PQM_FUN_MONO |
if (dflx(2)*dfds(+0) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
300 |
GAD_PQM_FUN_MONO |
& -( 5. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
301 |
GAD_PQM_FUN_MONO |
& +( 3. _d 0 / 1. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
302 |
GAD_PQM_FUN_MONO |
& +( 2. _d 0 / 1. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
304 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 3. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
305 |
GAD_PQM_FUN_MONO |
& -( 1. _d 0 / 3. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
306 |
GAD_PQM_FUN_MONO |
& -( 4. _d 0 / 3. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
308 |
GAD_PQM_FUN_MONO |
if (dell*dfds(-1) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
310 |
GAD_PQM_FUN_MONO |
dell = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
313 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
314 |
GAD_PQM_FUN_MONO |
& -( 4. _d 0 / 1. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
316 |
GAD_PQM_FUN_MONO |
& +(10. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
317 |
GAD_PQM_FUN_MONO |
& -(10. _d 0 / 1. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
31 |
NO PROCEDURE |
sq = bb * bb - 4. _d 0 * aa * cc |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
321 |
GAD_PQM_FUN_MONO |
if (derr*dfds(+1) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
323 |
GAD_PQM_FUN_MONO |
derr = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
326 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
327 |
GAD_PQM_FUN_MONO |
& -( 3. _d 0 / 2. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
329 |
GAD_PQM_FUN_MONO |
& -( 5. _d 0 / 3. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
330 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 3. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
33 |
NO PROCEDURE |
if (a0 .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
342 |
GAD_PQM_FUN_MONO |
& -( 5. _d 0 / 3. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
343 |
GAD_PQM_FUN_MONO |
& +( 4. _d 0 / 3. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
344 |
GAD_PQM_FUN_MONO |
& +( 1. _d 0 / 3. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
346 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
347 |
GAD_PQM_FUN_MONO |
& -( 2. _d 0 / 1. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
348 |
GAD_PQM_FUN_MONO |
& -( 3. _d 0 / 1. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
350 |
GAD_PQM_FUN_MONO |
if (dell*dfds(-1) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
352 |
GAD_PQM_FUN_MONO |
dell = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
355 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 2. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
356 |
GAD_PQM_FUN_MONO |
& -( 3. _d 0 / 2. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
358 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 3. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
359 |
GAD_PQM_FUN_MONO |
& -( 5. _d 0 / 3. _d 0) * fell |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
35 |
NO PROCEDURE |
if (sq .ge. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
363 |
GAD_PQM_FUN_MONO |
if (derr*dfds(+1) .lt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
365 |
GAD_PQM_FUN_MONO |
derr = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
368 |
GAD_PQM_FUN_MONO |
& +( 5. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
369 |
GAD_PQM_FUN_MONO |
& -( 4. _d 0 / 1. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
371 |
GAD_PQM_FUN_MONO |
& -(10. _d 0 / 1. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
372 |
GAD_PQM_FUN_MONO |
& +(10. _d 0 / 1. _d 0) * ferr |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
384 |
GAD_PQM_FUN_MONO |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
385 |
GAD_PQM_FUN_MONO |
& - ( 7. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
386 |
GAD_PQM_FUN_MONO |
& + ( 1. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
388 |
GAD_PQM_FUN_MONO |
& + ( 3. _d 0 / 4. _d 0) *(ferr-fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
389 |
GAD_PQM_FUN_MONO |
& - ( 1. _d 0 / 4. _d 0) *(derr+dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
391 |
GAD_PQM_FUN_MONO |
& - (30. _d 0 / 8. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
392 |
GAD_PQM_FUN_MONO |
& + (15. _d 0 / 8. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
393 |
GAD_PQM_FUN_MONO |
& - ( 3. _d 0 / 8. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
395 |
GAD_PQM_FUN_MONO |
& - ( 1. _d 0 / 4. _d 0) *(ferr-fell-derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
397 |
GAD_PQM_FUN_MONO |
& + (30. _d 0 / 16. _d 0) * ff00 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
398 |
GAD_PQM_FUN_MONO |
& - (15. _d 0 / 16. _d 0) *(ferr+fell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
399 |
GAD_PQM_FUN_MONO |
& + ( 5. _d 0 / 16. _d 0) *(derr-dell) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
44 |
NO PROCEDURE |
aa = 0.5 _d 0 / aa |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
57 |
NO PROCEDURE |
if (b0 .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
130 |
GAD_PQM_HAT_R |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
78 |
GAD_PQM_HAT_R |
rhat = drF(ir) * .5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
132 |
GAD_PQM_HAT_X |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
159 |
GAD_PQM_HAT_X |
fhat(ii,ix) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
77 |
GAD_PQM_HAT_X |
if (mask(ix) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
80 |
GAD_PQM_HAT_X |
xhat = dxF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
133 |
GAD_PQM_HAT_Y |
if (fdel .gt. 1. _d -6 * fmag) then |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
160 |
GAD_PQM_HAT_Y |
fhat(ii,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
78 |
GAD_PQM_HAT_Y |
if (mask(iy) .gt. 0. _d 0) then |
|
./pkg/generic_advdiff/gad_pqm_hat_y.F |
81 |
GAD_PQM_HAT_Y |
yhat = dyF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
48 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
51 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
58 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
61 |
GAD_PQM_P5E_R |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
67 |
GAD_PQM_P5E_R |
& +( 1. _d 0/60. _d 0)*(floc(-3)+floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
68 |
GAD_PQM_P5E_R |
& -( 8. _d 0/60. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
69 |
GAD_PQM_P5E_R |
& +(37. _d 0/60. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
72 |
GAD_PQM_P5E_R |
& -( 1. _d 0/90. _d 0)*(floc(-3)-floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
73 |
GAD_PQM_P5E_R |
& +( 5. _d 0/36. _d 0)*(floc(-2)-floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_r.F |
74 |
GAD_PQM_P5E_R |
& -(49. _d 0/36. _d 0)*(floc(-1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
48 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
51 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
58 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
61 |
GAD_PQM_P5E_X |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
67 |
GAD_PQM_P5E_X |
& +( 1. _d 0/60. _d 0)*(floc(-3)+floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
68 |
GAD_PQM_P5E_X |
& -( 8. _d 0/60. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
69 |
GAD_PQM_P5E_X |
& +(37. _d 0/60. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
72 |
GAD_PQM_P5E_X |
& -( 1. _d 0/90. _d 0)*(floc(-3)-floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
73 |
GAD_PQM_P5E_X |
& +( 5. _d 0/36. _d 0)*(floc(-2)-floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_x.F |
74 |
GAD_PQM_P5E_X |
& -(49. _d 0/36. _d 0)*(floc(-1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
49 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(-1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
52 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(-2) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
59 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(+0) - floc(-1) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
62 |
GAD_PQM_P5E_Y |
ftmp = 2. _d 0 * floc(+1) - floc(+0) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
68 |
GAD_PQM_P5E_Y |
& +( 1. _d 0/60. _d 0)*(floc(-3)+floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
69 |
GAD_PQM_P5E_Y |
& -( 8. _d 0/60. _d 0)*(floc(-2)+floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
70 |
GAD_PQM_P5E_Y |
& +(37. _d 0/60. _d 0)*(floc(-1)+floc(+0)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
73 |
GAD_PQM_P5E_Y |
& -( 1. _d 0/90. _d 0)*(floc(-3)-floc(+2)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
74 |
GAD_PQM_P5E_Y |
& +( 5. _d 0/36. _d 0)*(floc(-2)-floc(+1)) |
|
./pkg/generic_advdiff/gad_pqm_p5e_y.F |
75 |
GAD_PQM_P5E_Y |
& -(49. _d 0/36. _d 0)*(floc(-1)-floc(+0)) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
110 |
GAD_SOM_ADV_R |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
148 |
GAD_SOM_ADV_R |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
163 |
GAD_SOM_ADV_R |
alp1 = 1. _d 0 - alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
195 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - aln(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
222 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - aln(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
285 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp) |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
316 |
GAD_SOM_ADV_R |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
317 |
GAD_SOM_ADV_R |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
318 |
GAD_SOM_ADV_R |
aln1 = 1. _d 0 - alfn |
|
./pkg/generic_advdiff/gad_som_adv_r.F |
324 |
GAD_SOM_ADV_R |
& - 5. _d 0*(-alpmn*alf1*sm_z(i,j,k) + alfp*alp1*fp_z(i,j,kDw) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
124 |
GAD_SOM_ADV_X |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
161 |
GAD_SOM_ADV_X |
s1max = slpmax*1.5 _d 0 |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
182 |
GAD_SOM_ADV_X |
alp1 = 1. _d 0 - alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
201 |
GAD_SOM_ADV_X |
aln1 = 1. _d 0 - aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
235 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - aln(i,j) - alp(i+1,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
266 |
GAD_SOM_ADV_X |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
267 |
GAD_SOM_ADV_X |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
268 |
GAD_SOM_ADV_X |
aln1 = 1. _d 0 - alfn |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
274 |
GAD_SOM_ADV_X |
& - 5. _d 0*(-alpmn*alf1*sm_x(i,j) + alfp*alp1*fp_x(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_x.F |
88 |
GAD_SOM_ADV_X |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
124 |
GAD_SOM_ADV_Y |
IF ( deltaTloc.GT.zeroRL ) recip_dT = 1.0 _d 0 / deltaTloc |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
161 |
GAD_SOM_ADV_Y |
s1max = slpmax*1.5 _d 0 |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
182 |
GAD_SOM_ADV_Y |
alp1 = 1. _d 0 - alp(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
202 |
GAD_SOM_ADV_Y |
aln1 = 1. _d 0 - aln(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
236 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - aln(i,j) - alp(i,j+1) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
267 |
GAD_SOM_ADV_Y |
alf1 = 1. _d 0 - alfp - alfn |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
268 |
GAD_SOM_ADV_Y |
alp1 = 1. _d 0 - alfp |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
269 |
GAD_SOM_ADV_Y |
aln1 = 1. _d 0 - alfn |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
275 |
GAD_SOM_ADV_Y |
& - 5. _d 0*(-alpmn*alf1*sm_y(i,j) + alfp*alp1*fp_y(i,j) |
|
./pkg/generic_advdiff/gad_som_adv_y.F |
88 |
GAD_SOM_ADV_Y |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
270 |
GAD_SOM_ADVECT |
& + (1. _d 0 - maskC(i,j,k,bi,bj)) |
|
./pkg/generic_advdiff/gad_som_advect.F |
481 |
GAD_SOM_ADVECT |
alp (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
482 |
GAD_SOM_ADVECT |
aln (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
483 |
GAD_SOM_ADVECT |
fp_v (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
484 |
GAD_SOM_ADVECT |
fn_v (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
485 |
GAD_SOM_ADVECT |
fp_o (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
486 |
GAD_SOM_ADVECT |
fn_o (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
487 |
GAD_SOM_ADVECT |
fp_x (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
488 |
GAD_SOM_ADVECT |
fn_x (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
489 |
GAD_SOM_ADVECT |
fp_y (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
490 |
GAD_SOM_ADVECT |
fn_y (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
491 |
GAD_SOM_ADVECT |
fp_z (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
492 |
GAD_SOM_ADVECT |
fn_z (i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
493 |
GAD_SOM_ADVECT |
fp_xx(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
494 |
GAD_SOM_ADVECT |
fn_xx(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
495 |
GAD_SOM_ADVECT |
fp_yy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
496 |
GAD_SOM_ADVECT |
fn_yy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
497 |
GAD_SOM_ADVECT |
fp_zz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
498 |
GAD_SOM_ADVECT |
fn_zz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
499 |
GAD_SOM_ADVECT |
fp_xy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
500 |
GAD_SOM_ADVECT |
fn_xy(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
501 |
GAD_SOM_ADVECT |
fp_xz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
502 |
GAD_SOM_ADVECT |
fn_xz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
503 |
GAD_SOM_ADVECT |
fp_yz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
504 |
GAD_SOM_ADVECT |
fn_yz(i,j,kDown) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
58 |
GAD_SOM_LIM_R |
PARAMETER( three = 3. _d 0 ) |
|
./pkg/generic_advdiff/gad_som_lim_r.F |
71 |
GAD_SOM_LIM_R |
s1max = slpmax*1.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
77 |
GAD_U3_ADV_R |
& rTrans(i,j)*( (tracer(i,j,k)+tracer(i,j,km1))*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
78 |
GAD_U3_ADV_R |
& -oneSixth*(Rjjm+Rjjp)*0.5 _d 0 ) |
|
./pkg/generic_advdiff/gad_u3_adv_r.F |
80 |
GAD_U3_ADV_R |
& oneSixth*(Rjjm-Rjjp)*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
72 |
GAD_U3_ADV_X |
& )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_x.F |
73 |
GAD_U3_ADV_X |
& +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
72 |
GAD_U3_ADV_Y |
& )*0.5 _d 0 |
|
./pkg/generic_advdiff/gad_u3_adv_y.F |
73 |
GAD_U3_ADV_Y |
& +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm ) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
103 |
GAD_U3C4_IMPL_R |
& 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
106 |
GAD_U3C4_IMPL_R |
IF ( flagC4 .AND. mskM*mskP.GT.0. _d 0 ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
107 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
114 |
GAD_U3C4_IMPL_R |
rHigh = (1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
116 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = (2. _d 0*rHigh )*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
120 |
GAD_U3C4_IMPL_R |
rUpwind2D(i,j) = 2. _d 0*oneSixth*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
135 |
GAD_U3C4_IMPL_R |
rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
138 |
GAD_U3C4_IMPL_R |
IF ( flagC4 .AND. mskM*mskP.GT.0. _d 0 ) THEN |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
139 |
GAD_U3C4_IMPL_R |
rUpwind= 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
146 |
GAD_U3C4_IMPL_R |
rHigh = (1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
148 |
GAD_U3C4_IMPL_R |
rUpwind= (2. _d 0*rHigh )*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
152 |
GAD_U3C4_IMPL_R |
rUpwind= 2. _d 0*oneSixth*ABS(rCenter) |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
90 |
GAD_U3C4_IMPL_R |
maskP1 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
91 |
GAD_U3C4_IMPL_R |
maskM2 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
92 |
GAD_U3C4_IMPL_R |
IF ( k.LE.2 ) maskM2 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
93 |
GAD_U3C4_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
101 |
SALT_FILL |
if(salt(i,j,1,bi,bj).lt.0.0 _d 0) |
|
./pkg/generic_advdiff/salt_fill.F |
102 |
SALT_FILL |
. salt(i,j,1,bi,bj) = 0.0 _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
75 |
SALT_FILL |
tmpFac = -1. _d 0 |
|
./pkg/generic_advdiff/salt_fill.F |
90 |
SALT_FILL |
if( salt(i,j,L,bi,bj).lt.0.0 _d 0) then |
|
./pkg/generic_advdiff/salt_fill.F |
93 |
SALT_FILL |
salt(i,j,L,bi,bj) = 0.0 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
135 |
GGL90_CALC |
p4 = 0.25 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
136 |
GGL90_CALC |
p8 = 0.125 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
137 |
GGL90_CALC |
p16 = 0.0625 _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
145 |
GGL90_CALC |
explDissFac = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
146 |
GGL90_CALC |
implDissFac = 1. _d 0 - explDissFac |
|
./pkg/ggl90/ggl90_calc.F |
156 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,km1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
157 |
GGL90_CALC |
& MIN(.5 _d 0,_hFacC(i,j,k ,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
158 |
GGL90_CALC |
recip_hFacI(I,J,K)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
159 |
GGL90_CALC |
IF ( hFac .NE. 0. _d 0 ) |
|
./pkg/ggl90/ggl90_calc.F |
160 |
GGL90_CALC |
& recip_hFacI(I,J,K)=1. _d 0/hFac |
|
./pkg/ggl90/ggl90_calc.F |
172 |
GGL90_CALC |
rMixingLength(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
mxLength_Dn(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
174 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
175 |
GGL90_CALC |
KappaE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
176 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
178 |
GGL90_CALC |
GGL90visctmp(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
180 |
GGL90_CALC |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
181 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
182 |
GGL90_CALC |
c3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
184 |
GGL90_CALC |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
185 |
GGL90_CALC |
SQRTTKE(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
191 |
GGL90_CALC |
KappaM(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
192 |
GGL90_CALC |
verticalShear(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
194 |
GGL90_CALC |
rMixingLength(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
198 |
GGL90_CALC |
xA(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
199 |
GGL90_CALC |
yA(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
200 |
GGL90_CALC |
dfx(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
201 |
GGL90_CALC |
dfy(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
202 |
GGL90_CALC |
gTKE(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
257 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
280 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
315 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
352 |
GGL90_CALC |
rMixingLength(i,j,k) = 1. _d 0 / tmpmlx |
|
./pkg/ggl90/ggl90_calc.F |
367 |
GGL90_CALC |
IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_calc.F |
374 |
GGL90_CALC |
& (min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
375 |
GGL90_CALC |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
377 |
GGL90_CALC |
& (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_calc.F |
378 |
GGL90_CALC |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_calc.F |
384 |
GGL90_CALC |
dfx(1-OLx,j)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
396 |
GGL90_CALC |
dfy(i,1-OLy)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
471 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
474 |
GGL90_CALC |
IDEMIX_RiNumber = MAX( KappaM(i,j)*Nsquare(i,j,k), 0. _d 0)/ |
|
./pkg/ggl90/ggl90_calc.F |
476 |
GGL90_CALC |
prTemp = MIN(5.*RiNumber, 6.6 _d 0*IDEMIX_RiNumber) |
|
./pkg/ggl90/ggl90_calc.F |
477 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
478 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MAX( 1. _d 0,TKEPrandtlNumber(i,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
487 |
GGL90_CALC |
RiNumber = MAX(Nsquare(i,j,k),0. _d 0) |
|
./pkg/ggl90/ggl90_calc.F |
489 |
GGL90_CALC |
prTemp = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
490 |
GGL90_CALC |
IF ( RiNumber .GE. 0.2 _d 0 ) prTemp = 5. _d 0 * RiNumber |
|
./pkg/ggl90/ggl90_calc.F |
491 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
531 |
GGL90_CALC |
IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_calc.F |
553 |
GGL90_CALC |
a3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
565 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1)) |
|
./pkg/ggl90/ggl90_calc.F |
573 |
GGL90_CALC |
c3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
585 |
GGL90_CALC |
& *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1)) |
|
./pkg/ggl90/ggl90_calc.F |
609 |
GGL90_CALC |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
619 |
GGL90_CALC |
b3d(i,j,k) = 1. _d 0 - c3d(i,j,k) - a3d(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
634 |
GGL90_CALC |
& ( .5 _d 0*( surfaceForcingU(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
636 |
GGL90_CALC |
& + ( .5 _d 0*( surfaceForcingV(i, j, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
644 |
GGL90_CALC |
a3d(i,j,kp1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
655 |
GGL90_CALC |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
727 |
GGL90_CALC |
& p4 * 2. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
757 |
GGL90_CALC |
& p4 * 2. _d 0 |
|
./pkg/ggl90/ggl90_calc_visc.F |
43 |
GGL90_CALC_VISC |
p4=0.25 _d 0 |
|
./pkg/ggl90/ggl90_calc_visc.F |
44 |
GGL90_CALC_VISC |
p8=0.125 _d 0 |
|
./pkg/ggl90/ggl90_calc_visc.F |
45 |
GGL90_CALC_VISC |
p16=0.0625 _d 0 |
|
./pkg/ggl90/ggl90_check.F |
51 |
GGL90_CHECK |
IF ( GGL90diffTKEh .NE. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_check.F |
59 |
GGL90_CHECK |
IF ( GGL90diffTKEh .NE. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_exchanges.F |
37 |
GGL90_EXCHANGES |
IF (GGL90isON .AND. GGL90diffTKEh .GT. 0. _d 0) THEN |
|
./pkg/ggl90/ggl90_idemix.F |
103 |
GGL90_IDEMIX |
dfx(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
104 |
GGL90_IDEMIX |
dfy(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
105 |
GGL90_IDEMIX |
bN0(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
106 |
GGL90_IDEMIX |
gm_forc(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
117 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
141 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
144 |
GGL90_IDEMIX |
c0(i,j,k)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
146 |
GGL90_IDEMIX |
IDEMIX_V0(i,j,k,bi,bj)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
148 |
GGL90_IDEMIX |
fxc = max( 1. _d 0 , fxa ) |
|
./pkg/ggl90/ggl90_idemix.F |
155 |
GGL90_IDEMIX |
IF ( IDEMIX_tau_h .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_idemix.F |
160 |
GGL90_IDEMIX |
fxa = sqrt( 1. _d 0/( deltaTggl90 * IDEMIX_tau_h ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
191 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
206 |
GGL90_IDEMIX |
& +.5 _d 0*(GM_EG_diss(i,j,k,bi,bj)+ |
|
./pkg/ggl90/ggl90_idemix.F |
216 |
GGL90_IDEMIX |
& +max( 0. _d 0,Kwz(i,j,k,bi,bj)*Nsquare(i,j,k) ) |
|
./pkg/ggl90/ggl90_idemix.F |
241 |
GGL90_IDEMIX |
dfx(1-OLx,j)=0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
243 |
GGL90_IDEMIX |
fxa = IDEMIX_tau_h*0.5 _d 0*( |
|
./pkg/ggl90/ggl90_idemix.F |
247 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
248 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacW(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
256 |
GGL90_IDEMIX |
dfy(i,1-OLy)=0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
260 |
GGL90_IDEMIX |
fxa = IDEMIX_tau_h*0.5 _d 0*( |
|
./pkg/ggl90/ggl90_idemix.F |
264 |
GGL90_IDEMIX |
& *(min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) + |
|
./pkg/ggl90/ggl90_idemix.F |
265 |
GGL90_IDEMIX |
& min(.5 _d 0,_hFacS(i,j,k ,bi,bj) ) ) |
|
./pkg/ggl90/ggl90_idemix.F |
306 |
GGL90_IDEMIX |
& *.5 _d 0*(c0(i,j,k)+c0(i,j,k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
312 |
GGL90_IDEMIX |
delta(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
313 |
GGL90_IDEMIX |
delta(i,j,Nr) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
315 |
GGL90_IDEMIX |
delta(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
322 |
GGL90_IDEMIX |
a3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
323 |
GGL90_IDEMIX |
a3d(i,j,2) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
353 |
GGL90_IDEMIX |
c3d(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
355 |
GGL90_IDEMIX |
c3d(i,j,kBottom) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
362 |
GGL90_IDEMIX |
b3d(i,j,1) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
369 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
389 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
397 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 + deltaTggl90*IDEMIX_tau_d(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
445 |
GGL90_IDEMIX |
& /max(1. _d -12,Nsquare(i,j,k))*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_idemix.F |
90 |
GGL90_IDEMIX |
Nsquare(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
91 |
GGL90_IDEMIX |
delta(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
92 |
GGL90_IDEMIX |
a3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
93 |
GGL90_IDEMIX |
b3d(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
94 |
GGL90_IDEMIX |
c3d(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
95 |
GGL90_IDEMIX |
osborn_diff(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
96 |
GGL90_IDEMIX |
c0(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_idemix.F |
97 |
GGL90_IDEMIX |
forc(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_fixed.F |
54 |
GGL90_INIT_FIXED |
mskCor(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
106 |
GGL90_INIT_VARIA |
IDEMIX_F_b(i,j,bi,bj) = -MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
107 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_b(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
111 |
GGL90_INIT_VARIA |
& IDEMIX_F_b(i,j,bi,bj)/1024. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
125 |
GGL90_INIT_VARIA |
IDEMIX_F_s(i,j,bi,bj) = MAX(0. _d 0, |
|
./pkg/ggl90/ggl90_init_varia.F |
126 |
GGL90_INIT_VARIA |
& MIN(1. _d 0,IDEMIX_F_s(i,j,bi,bj))) |
|
./pkg/ggl90/ggl90_init_varia.F |
50 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
51 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
52 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
79 |
GGL90_INIT_VARIA |
IDEMIX_E(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
80 |
GGL90_INIT_VARIA |
IDEMIX_V0(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
81 |
GGL90_INIT_VARIA |
IDEMIX_tau_d(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
88 |
GGL90_INIT_VARIA |
IDEMIX_F_B(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
89 |
GGL90_INIT_VARIA |
IDEMIX_F_S(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_output.F |
108 |
GGL90_OUTPUT |
IF ( GGL90taveFreq .GT. 0. _d 0 ) THEN |
|
./pkg/ggl90/ggl90_readparms.F |
100 |
GGL90_READPARMS |
GGL90alpha = 1.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
102 |
GGL90_READPARMS |
GGL90m2 = 3.75 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
103 |
GGL90_READPARMS |
GGL90TKEmin = 1.0 _d -11 |
|
./pkg/ggl90/ggl90_readparms.F |
105 |
GGL90_READPARMS |
GGL90TKEsurfMin = 1.0 _d -04 |
|
./pkg/ggl90/ggl90_readparms.F |
107 |
GGL90_READPARMS |
GGL90viscMax = 1. _d 2 |
|
./pkg/ggl90/ggl90_readparms.F |
108 |
GGL90_READPARMS |
GGL90diffMax = 1. _d 2 |
|
./pkg/ggl90/ggl90_readparms.F |
109 |
GGL90_READPARMS |
GGL90diffTKEh = 0.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
110 |
GGL90_READPARMS |
GGL90mixingLengthMin = 1.0 _d -08 |
|
./pkg/ggl90/ggl90_readparms.F |
122 |
GGL90_READPARMS |
IDEMIX_tau_v = 1.0*86400.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
123 |
GGL90_READPARMS |
IDEMIX_tau_h = 10.0*86400.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
124 |
GGL90_READPARMS |
IDEMIX_gamma = 1.57 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
125 |
GGL90_READPARMS |
IDEMIX_jstar = 10.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
126 |
GGL90_READPARMS |
IDEMIX_mu0 = 4.0 _d 0/3.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
127 |
GGL90_READPARMS |
IDEMIX_mixing_efficiency = 0.1666 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
128 |
GGL90_READPARMS |
IDEMIX_diff_max = 1.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
129 |
GGL90_READPARMS |
IDEMIX_diff_min = 1.0 _d -9 |
|
./pkg/ggl90/ggl90_readparms.F |
130 |
GGL90_READPARMS |
IDEMIX_frac_F_b = 1.0 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
131 |
GGL90_READPARMS |
IDEMIX_frac_F_s = 0.2 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
98 |
GGL90_READPARMS |
GGL90ck = 0.1 _d 0 |
|
./pkg/ggl90/ggl90_readparms.F |
99 |
GGL90_READPARMS |
GGL90ceps = 0.7 _d 0 |
|
./pkg/gmredi/GMREDI.h |
11 |
NO PROCEDURE |
PARAMETER( op5 = 0.5 _d 0 ) |
|
./pkg/gmredi/GMREDI.h |
12 |
NO PROCEDURE |
PARAMETER( op25 = 0.25 _d 0 ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
100 |
GMREDI_CALC_PSI_B |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
101 |
GMREDI_CALC_PSI_B |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
102 |
GMREDI_CALC_PSI_B |
dSigmaDrW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
103 |
GMREDI_CALC_PSI_B |
dSigmaDrS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
100 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
118 |
GMREDI_CALC_PSI_BVP |
& + SQRT(MAX( -dSigmaDrW, 0. _d 0 )) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
153 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
178 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
179 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
180 |
GMREDI_CALC_PSI_BVP |
GM_c3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
197 |
GMREDI_CALC_PSI_BVP |
& + SQRT(MAX( -dSigmaDrS, 0. _d 0 )) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
225 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
66 |
GMREDI_CALC_PSI_BVP |
PARAMETER ( rPI = 0.318309886183791 _d 0 ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
81 |
GMREDI_CALC_PSI_BVP |
wkb_cW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
82 |
GMREDI_CALC_PSI_BVP |
wkb_cS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
89 |
GMREDI_CALC_PSI_BVP |
GM_PsiX(i,j,1,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
90 |
GMREDI_CALC_PSI_BVP |
GM_PsiY(i,j,1,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
98 |
GMREDI_CALC_PSI_BVP |
GM_a3d(i,j,k) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
99 |
GMREDI_CALC_PSI_BVP |
GM_b3d(i,j,k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1031 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1054 |
GMREDI_CALC_TENSOR |
& ) ) * 0.25 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
148 |
GMREDI_CALC_TENSOR |
recipMaxSlope = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
149 |
GMREDI_CALC_TENSOR |
IF ( GM_Visbeck_maxSlope.GT.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
150 |
GMREDI_CALC_TENSOR |
recipMaxSlope = 1. _d 0 / GM_Visbeck_maxSlope |
|
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
162 |
GMREDI_CALC_TENSOR |
Cspd = 2. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
163 |
GMREDI_CALC_TENSOR |
LrhoInf = 15. _d 3 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
164 |
GMREDI_CALC_TENSOR |
LrhoSup = 100. _d 3 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
212 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
213 |
GMREDI_CALC_TENSOR |
ldd97_LrhoW(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
214 |
GMREDI_CALC_TENSOR |
ldd97_LrhoS(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
223 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
224 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
233 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
234 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
235 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
237 |
GMREDI_CALC_TENSOR |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
238 |
GMREDI_CALC_TENSOR |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
241 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
242 |
GMREDI_CALC_TENSOR |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
253 |
GMREDI_CALC_TENSOR |
baseSlope(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
254 |
GMREDI_CALC_TENSOR |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
255 |
GMREDI_CALC_TENSOR |
locMixLayer(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
300 |
GMREDI_CALC_TENSOR |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
301 |
GMREDI_CALC_TENSOR |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
302 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
303 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
304 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
305 |
GMREDI_CALC_TENSOR |
SlopeSqr(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
306 |
GMREDI_CALC_TENSOR |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
331 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
363 |
GMREDI_CALC_TENSOR |
dSigmaR = ( dSigmaDr(i,j)*4. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
368 |
GMREDI_CALC_TENSOR |
& )/( 4. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
376 |
GMREDI_CALC_TENSOR |
IF ( dSigmaH .GT. 0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
388 |
GMREDI_CALC_TENSOR |
IF ( N2loc.GT.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
391 |
GMREDI_CALC_TENSOR |
SNloc = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
394 |
GMREDI_CALC_TENSOR |
SNloc = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
477 |
GMREDI_CALC_TENSOR |
deltaH=max(deltaH, 0. _d 0) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
555 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
559 |
GMREDI_CALC_TENSOR |
& *(1. _d 0 + GM_skewflx) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
669 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
670 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
813 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
836 |
GMREDI_CALC_TENSOR |
& ) ) * 0.25 _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
887 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
888 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
50 |
GMREDI_INIT_FIXED |
GM_isoFac2d(i,j,bi,bj) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
51 |
GMREDI_INIT_FIXED |
GM_bolFac2d(i,j,bi,bj) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
71 |
GMREDI_INIT_FIXED |
GM_isoFac1d(k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_fixed.F |
72 |
GMREDI_INIT_FIXED |
GM_bolFac1d(k) = 1. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
146 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = .5 _d 0*angleSinC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_init_varia.F |
149 |
GMREDI_INIT_VARIA |
& + .5 _d 0*angleCosC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_init_varia.F |
152 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj)=max(1. _d -18, gradf(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
48 |
GMREDI_INIT_VARIA |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
49 |
GMREDI_INIT_VARIA |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
50 |
GMREDI_INIT_VARIA |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
52 |
GMREDI_INIT_VARIA |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
53 |
GMREDI_INIT_VARIA |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
56 |
GMREDI_INIT_VARIA |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
57 |
GMREDI_INIT_VARIA |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
60 |
GMREDI_INIT_VARIA |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
61 |
GMREDI_INIT_VARIA |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
64 |
GMREDI_INIT_VARIA |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
67 |
GMREDI_INIT_VARIA |
K3D(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init_varia.F |
78 |
GMREDI_INIT_VARIA |
GM_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
378 |
GMREDI_K3D |
tmpU(i,j) = 0.5 _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
380 |
GMREDI_K3D |
tmpV(i,j) = 0.5 _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
465 |
GMREDI_K3D |
Req = SQRT(BVint(i,j)/(2. _d 0*pi*gradf(i,j,bi,bj))) |
|
./pkg/gmredi/gmredi_readparms.F |
100 |
GMREDI_READPARMS |
GM_Kmin_horiz = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
101 |
GMREDI_READPARMS |
GM_Small_Number = 1. _d -20 |
|
./pkg/gmredi/gmredi_readparms.F |
102 |
GMREDI_READPARMS |
GM_slopeSqCutoff = 1. _d +48 |
|
./pkg/gmredi/gmredi_readparms.F |
107 |
GMREDI_READPARMS |
GM_Scrit = 0.004 _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
108 |
GMREDI_READPARMS |
GM_Sd = 0.001 _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
122 |
GMREDI_READPARMS |
GM_Visbeck_alpha = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
123 |
GMREDI_READPARMS |
GM_Visbeck_length = 200. _d 3 |
|
./pkg/gmredi/gmredi_readparms.F |
124 |
GMREDI_READPARMS |
GM_Visbeck_depth = 1000. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
125 |
GMREDI_READPARMS |
GM_Visbeck_minDepth = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
127 |
GMREDI_READPARMS |
GM_Visbeck_minVal_K = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
128 |
GMREDI_READPARMS |
GM_Visbeck_maxVal_K = 2500. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
133 |
GMREDI_READPARMS |
GM_BVP_cMin = 1. _d -1 |
|
./pkg/gmredi/gmredi_readparms.F |
137 |
GMREDI_READPARMS |
subMeso_invTau = 2.0 _d -6 |
|
./pkg/gmredi/gmredi_readparms.F |
138 |
GMREDI_READPARMS |
subMeso_LfMin = 1.0 _d +3 |
|
./pkg/gmredi/gmredi_readparms.F |
139 |
GMREDI_READPARMS |
subMeso_Ceff = 7.0 _d -2 |
|
./pkg/gmredi/gmredi_readparms.F |
140 |
GMREDI_READPARMS |
subMeso_Lmax = 110. _d +3 |
|
./pkg/gmredi/gmredi_readparms.F |
197 |
GMREDI_READPARMS |
if (GM_maxSlope.NE.0.) GM_rMaxSlope = 1. _d 0 / GM_maxSlope |
|
./pkg/gmredi/gmredi_readparms.F |
214 |
GMREDI_READPARMS |
GM_BVP_rModeNumber = 1. _d 0/DBLE(GM_BVP_ModeNumber) |
|
./pkg/gmredi/gmredi_readparms.F |
98 |
GMREDI_READPARMS |
GM_background_K = 0. _d 0 |
|
./pkg/gmredi/gmredi_readparms.F |
99 |
GMREDI_READPARMS |
GM_maxSlope = 1. _d -2 |
|
./pkg/gmredi/gmredi_slope_limit.F |
124 |
GMREDI_SLOPE_LIMIT |
GM_bigSlope = 1. _d +02 |
|
./pkg/gmredi/gmredi_slope_limit.F |
146 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
147 |
GMREDI_SLOPE_LIMIT |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
169 |
GMREDI_SLOPE_LIMIT |
dSigmMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
200 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
201 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
203 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0/( dSigmaDr(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
219 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
240 |
GMREDI_SLOPE_LIMIT |
SlopeX (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
241 |
GMREDI_SLOPE_LIMIT |
SlopeY (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
242 |
GMREDI_SLOPE_LIMIT |
SlopeMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
243 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
255 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
257 |
GMREDI_SLOPE_LIMIT |
SlopeX (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
258 |
GMREDI_SLOPE_LIMIT |
SlopeY (i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
259 |
GMREDI_SLOPE_LIMIT |
SlopeMod(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
260 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
274 |
GMREDI_SLOPE_LIMIT |
IF ( hTransLay(i,j).LE.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
284 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
297 |
GMREDI_SLOPE_LIMIT |
recipLambda(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
301 |
GMREDI_SLOPE_LIMIT |
rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
319 |
GMREDI_SLOPE_LIMIT |
IF ( hTransLay(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
327 |
GMREDI_SLOPE_LIMIT |
& *( 2. _d 0 + DoverLamb ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
332 |
GMREDI_SLOPE_LIMIT |
& * 2. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
333 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + DoverLamb ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
339 |
GMREDI_SLOPE_LIMIT |
& *( 2. _d 0 + DoverLamb ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
344 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j) ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
349 |
GMREDI_SLOPE_LIMIT |
& * 2. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
350 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + DoverLamb ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
355 |
GMREDI_SLOPE_LIMIT |
& *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j)*2. _d 0 ) |
|
./pkg/gmredi/gmredi_slope_limit.F |
408 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
411 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
427 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
473 |
GMREDI_SLOPE_LIMIT |
SlopeX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
478 |
GMREDI_SLOPE_LIMIT |
SlopeY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
481 |
GMREDI_SLOPE_LIMIT |
dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
499 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
502 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
517 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
535 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
551 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
554 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
566 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
569 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
571 |
GMREDI_SLOPE_LIMIT |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_limit.F |
572 |
GMREDI_SLOPE_LIMIT |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
574 |
GMREDI_SLOPE_LIMIT |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
593 |
GMREDI_SLOPE_LIMIT |
slopeMax= 2. _d -3 |
|
./pkg/gmredi/gmredi_slope_limit.F |
610 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
107 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
135 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
144 |
GMREDI_SLOPE_PSI |
dSigmaDrLtd(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
170 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
207 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
218 |
GMREDI_SLOPE_PSI |
taperX(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
241 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
252 |
GMREDI_SLOPE_PSI |
taperY(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
312 |
GMREDI_SLOPE_PSI |
taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
318 |
GMREDI_SLOPE_PSI |
taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
330 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
336 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
337 |
GMREDI_SLOPE_PSI |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
339 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
350 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
356 |
GMREDI_SLOPE_PSI |
IF ( Rnondim.GE.1. _d 0 ) THEN |
|
./pkg/gmredi/gmredi_slope_psi.F |
357 |
GMREDI_SLOPE_PSI |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
359 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
377 |
GMREDI_SLOPE_PSI |
slopeMaxSpec=1. _d -4 |
|
./pkg/gmredi/submeso_calc_psi.F |
105 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
111 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
122 |
SUBMESO_CALC_PSI |
& + dzLoc*MAX( -sigmaR(i,j,k), 0. _d 0 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
158 |
SUBMESO_CALC_PSI |
& *2. _d 0/(lengthScaleF(i-1,j)+lengthScaleF(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
159 |
SUBMESO_CALC_PSI |
& *2. _d 0/(fcorLoc(i-1,j)+fcorLoc(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
166 |
SUBMESO_CALC_PSI |
IF ( mixLayerU(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
167 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerU(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
169 |
SUBMESO_CALC_PSI |
z2H = 0. _d 0 |
|
./pkg/gmredi/submeso_calc_psi.F |
171 |
SUBMESO_CALC_PSI |
mu_z = ( z2H + 1. _d 0 )*( z2H + 1. _d 0 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
172 |
SUBMESO_CALC_PSI |
mu_z = ( 1. _d 0 - mu_z )*(1. _d 0 + mu_z*five_ov21 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
173 |
SUBMESO_CALC_PSI |
mu_z = MAX( 0. _d 0, mu_z ) |
|
./pkg/gmredi/submeso_calc_psi.F |
201 |
SUBMESO_CALC_PSI |
& *2. _d 0/(lengthScaleF(i,j-1)+lengthScaleF(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
202 |
SUBMESO_CALC_PSI |
& *2. _d 0/(fcorLoc(i,j-1)+fcorLoc(i,j)) |
|
./pkg/gmredi/submeso_calc_psi.F |
209 |
SUBMESO_CALC_PSI |
IF ( mixLayerV(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
210 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerV(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
212 |
SUBMESO_CALC_PSI |
z2H = 0. _d 0 |
|
./pkg/gmredi/submeso_calc_psi.F |
214 |
SUBMESO_CALC_PSI |
mu_z = ( z2H + 1. _d 0 )*( z2H + 1. _d 0 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
215 |
SUBMESO_CALC_PSI |
mu_z = ( 1. _d 0 - mu_z )*(1. _d 0 + mu_z*five_ov21 ) |
|
./pkg/gmredi/submeso_calc_psi.F |
216 |
SUBMESO_CALC_PSI |
mu_z = MAX( 0. _d 0, mu_z ) |
|
./pkg/gmredi/submeso_calc_psi.F |
65 |
SUBMESO_CALC_PSI |
PARAMETER( five_ov21 = 5. _d 0 / 21. _d 0 ) |
|
./pkg/grdchk/grdchk_getadxx.F |
94 |
GRDCHK_GETADXX |
dumtime = 0. _d 0 |
|
./pkg/grdchk/grdchk_getxx.F |
685 |
GRDCHK_GETXX |
xx_comp_ref=0. _d 0 |
|
./pkg/grdchk/grdchk_getxx.F |
686 |
GRDCHK_GETXX |
xx_comp_pert=0. _d 0 |
|
./pkg/grdchk/grdchk_getxx.F |
98 |
GRDCHK_GETXX |
dumtime = 0. _d 0 |
|
./model/src/adams_bashforth2.F |
65 |
ADAMS_BASHFORTH2 |
abFac = 0. _d 0 |
|
./model/src/adams_bashforth2.F |
67 |
ADAMS_BASHFORTH2 |
abFac = 0.5 _d 0 + abEps |
|
./pkg/grdchk/grdchk_main.F |
182 |
GRDCHK_MAIN |
tmpplot1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
183 |
GRDCHK_MAIN |
tmpplot2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
184 |
GRDCHK_MAIN |
tmpplot3(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
192 |
GRDCHK_MAIN |
grdchk_epsfac = 2. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
194 |
GRDCHK_MAIN |
grdchk_epsfac = 1. _d 0 |
|
./pkg/grdchk/grdchk_main.F |
277 |
GRDCHK_MAIN |
localEps = 1. _d 0 |
|
./pkg/grdchk/grdchk_readparms.F |
107 |
GRDCHK_READPARMS |
grdchk_eps = 1. _d 0 |
|
./pkg/grdchk/grdchk_setxx.F |
95 |
GRDCHK_SETXX |
dumtime = 0. _d 0 |
|
./model/src/adams_bashforth3.F |
88 |
ADAMS_BASHFORTH3 |
ab0 = 0. _d 0 |
|
./model/src/adams_bashforth3.F |
89 |
ADAMS_BASHFORTH3 |
ab1 = 0. _d 0 |
|
./model/src/adams_bashforth3.F |
90 |
ADAMS_BASHFORTH3 |
ab2 = 0. _d 0 |
|
./model/src/adams_bashforth3.F |
95 |
ADAMS_BASHFORTH3 |
ab2 = 0. _d 0 |
|
./pkg/gridalt/gridalt_update.F |
76 |
GRIDALT_UPDATE |
temparr(i,j,L,bi,bj) = dpphys(i,j,L,bi,bj) * 1. _d -2 |
|
./pkg/icefront/icefront_init_fixed.F |
113 |
ICEFRONT_INIT_FIXED |
IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/icefront/icefront_init_varia.F |
39 |
ICEFRONT_INIT_VARIA |
icefront_TendT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_init_varia.F |
40 |
ICEFRONT_INIT_VARIA |
icefront_TendS (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/icefront/icefront_readparms.F |
104 |
ICEFRONT_READPARMS |
SGRunOffperiod = 0.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
105 |
ICEFRONT_READPARMS |
SGRunOffconst = 0.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
106 |
ICEFRONT_READPARMS |
SGRunOff_remov_intercept = 0.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
107 |
ICEFRONT_READPARMS |
SGRunOff_remov_slope = 0.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
108 |
ICEFRONT_READPARMS |
SGRunOff_inscal = 1.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
151 |
ICEFRONT_READPARMS |
IF ( ICEFRONTlatentHeat .NE. 0. _d 0 ) |
|
./pkg/icefront/icefront_readparms.F |
152 |
ICEFRONT_READPARMS |
& recip_ICEFRONTlatentHeat = 1. _d 0/ICEFRONTlatentHeat |
|
./pkg/icefront/icefront_readparms.F |
87 |
ICEFRONT_READPARMS |
ICEFRONTlatentHeat = 334.0 _d 3 |
|
./pkg/icefront/icefront_readparms.F |
88 |
ICEFRONT_READPARMS |
ICEFRONTHeatCapacity_Cp = 2000.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
89 |
ICEFRONT_READPARMS |
rhoIcefront = 917.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
90 |
ICEFRONT_READPARMS |
ICEFRONTkappa = 1.54 _d -06 |
|
./pkg/icefront/icefront_readparms.F |
91 |
ICEFRONT_READPARMS |
ICEFRONTthetaSurface = - 20.0 _d 0 |
|
./pkg/icefront/icefront_readparms.F |
94 |
ICEFRONT_READPARMS |
recip_ICEFRONTlatentHeat = 0.0 _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
109 |
ICEFRONT_THERMODYNAMICS |
recip_aqe = 0.5 _d 0/aqe |
|
./pkg/icefront/icefront_thermodynamics.F |
114 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
136 |
ICEFRONT_THERMODYNAMICS |
discrim = bqe*bqe - 4. _d 0*aqe*cqe |
|
./pkg/icefront/icefront_thermodynamics.F |
138 |
ICEFRONT_THERMODYNAMICS |
IF ( saltFreeze .LT. 0. _d 0 ) |
|
./pkg/icefront/icefront_thermodynamics.F |
181 |
ICEFRONT_THERMODYNAMICS |
HeatFlux (I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
182 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
80 |
ICEFRONT_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
81 |
ICEFRONT_THERMODYNAMICS |
c0 = 0.0901 _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
82 |
ICEFRONT_THERMODYNAMICS |
b = -7.61 _d -4 |
|
./pkg/icefront/icefront_thermodynamics.F |
92 |
ICEFRONT_THERMODYNAMICS |
IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
94 |
ICEFRONT_THERMODYNAMICS |
ICEFRONTheatTransCoeff(I,J) = 1.0 _d -02 |
|
./pkg/icefront/icefront_thermodynamics.F |
96 |
ICEFRONT_THERMODYNAMICS |
& *sqrt(1.5 _d -03) |
|
./pkg/icefront/icefront_thermodynamics.F |
98 |
ICEFRONT_THERMODYNAMICS |
& (ICEFRONTheatTransCoeff(I,J),1. _d -04) |
|
./pkg/icefront/icefront_thermodynamics.F |
99 |
ICEFRONT_THERMODYNAMICS |
ICEFRONTsaltTransCoeff(I,J) = 5.05 _d -3 |
|
./pkg/kl10/kl10_calc.F |
130 |
KL10_CALC |
& (rhoS(1) - rhoS(2))*recip_drC(2),0. _d 0) |
|
./pkg/kl10/kl10_calc.F |
147 |
KL10_CALC |
buoyFreqf = MAX(buoyFreqf,0. _d 0) ! not < 0 |
|
./model/src/apply_forcing.F |
461 |
APPLY_FORCING_T |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
484 |
APPLY_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./model/src/apply_forcing.F |
516 |
APPLY_FORCING_T |
& .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN |
|
./model/src/apply_forcing.F |
592 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./model/src/apply_forcing.F |
605 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./model/src/apply_forcing.F |
685 |
APPLY_FORCING_T |
swfracb(2)=0. _d 0 |
|
./model/src/apply_forcing.F |
827 |
APPLY_FORCING_S |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/apply_forcing.F |
881 |
APPLY_FORCING_S |
& .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN |
|
./pkg/kl10/kl10_output.F |
105 |
KL10_OUTPUT |
IF ( KLtaveFreq.GT.0. _d 0 ) THEN |
|
./pkg/kl10/kl10_readparms.F |
62 |
KL10_READPARMS |
KLviscMax = 300. _d 0 |
|
./model/src/calc_3d_diffusivity.F |
277 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_3d_diffusivity.F |
324 |
CALC_3D_DIFFUSIVITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_3d_diffusivity.F |
86 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
89 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./pkg/kpp/kpp_calc.F |
417 |
KPP_CALC |
temp2(i,j,1) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
419 |
KPP_CALC |
temp1(i,j,k) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
420 |
KPP_CALC |
temp2(i,j,k) = 0. _d 0 |
|
./pkg/kpp/kpp_calc.F |
666 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j) |
|
./pkg/kpp/kpp_calc.F |
672 |
KPP_CALC |
KPPplumefrac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/kpp/kpp_forcing_surf.F |
163 |
KPP_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/kpp/kpp_forcing_surf.F |
244 |
KPP_FORCING_SURF |
boplume(I,J,k) = 0. _d 0 |
|
./pkg/kpp/kpp_init_fixed.F |
121 |
KPP_INIT_FIXED |
p25 = 0.25 _d 0 |
|
./pkg/kpp/kpp_init_fixed.F |
122 |
KPP_INIT_FIXED |
p33 = 1. _d 0 / 3. _d 0 |
|
./pkg/kpp/kpp_init_fixed.F |
128 |
KPP_INIT_FIXED |
Vtc = concv * SQRT(0.2 _d 0 /concs/epsilon) / vonk**2 / Ricr |
|
./pkg/kpp/kpp_init_fixed.F |
153 |
KPP_INIT_FIXED |
wst(i,j) = vonk*usta*SQRT(1. _d 0 - conc3*zeta) |
|
./model/src/calc_adv_flow.F |
120 |
CALC_ADV_FLOW |
maskUp(i,j) = 0. _d 0 |
|
./model/src/calc_adv_flow.F |
121 |
CALC_ADV_FLOW |
rTrans(i,j) = 0. _d 0 |
|
./model/src/calc_adv_flow.F |
86 |
CALC_ADV_FLOW |
rTransKp(i,j) = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
203 |
KPP_OUTPUT |
IF ( KPP_taveFreq .GT. 0. _d 0 ) THEN |
|
./pkg/kpp/kpp_output.F |
224 |
KPP_OUTPUT |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_output.F |
226 |
KPP_OUTPUT |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
382 |
KPP_OUTPUT |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_output.F |
384 |
KPP_OUTPUT |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
390 |
KPP_OUTPUT |
tmpLoc(i,j,1) = 0. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
100 |
KPP_READPARMS |
dB_dz = 5.2 _d -5 |
|
./pkg/kpp/kpp_readparms.F |
101 |
KPP_READPARMS |
conc1 = 5. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
102 |
KPP_READPARMS |
conam = 1.257 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
103 |
KPP_READPARMS |
concm = 8.380 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
104 |
KPP_READPARMS |
conc2 = 16. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
105 |
KPP_READPARMS |
zetam = -0.2 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
106 |
KPP_READPARMS |
conas = -28.86 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
107 |
KPP_READPARMS |
concs = 98.96 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
108 |
KPP_READPARMS |
conc3 = 16. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
109 |
KPP_READPARMS |
zetas = -1. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
113 |
KPP_READPARMS |
Ricr = 0.3 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
114 |
KPP_READPARMS |
cekman = 0.7 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
115 |
KPP_READPARMS |
cmonob = 1. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
116 |
KPP_READPARMS |
concv = 1.8 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
117 |
KPP_READPARMS |
hbf = 1. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
122 |
KPP_READPARMS |
zmin = -4. _d -7 |
|
./pkg/kpp/kpp_readparms.F |
123 |
KPP_READPARMS |
zmax = 0. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
124 |
KPP_READPARMS |
umin = 0. _d 0 |
|
./pkg/kpp/kpp_readparms.F |
125 |
KPP_READPARMS |
umax = 4. _d -2 |
|
./pkg/kpp/kpp_readparms.F |
130 |
KPP_READPARMS |
Riinfty = 0.7 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
131 |
KPP_READPARMS |
BVSQcon = -0.2 _d -4 |
|
./pkg/kpp/kpp_readparms.F |
133 |
KPP_READPARMS |
difm0 = 5. _d -3 |
|
./pkg/kpp/kpp_readparms.F |
134 |
KPP_READPARMS |
difs0 = 5. _d -3 |
|
./pkg/kpp/kpp_readparms.F |
135 |
KPP_READPARMS |
dift0 = 5. _d -3 |
|
./pkg/kpp/kpp_readparms.F |
137 |
KPP_READPARMS |
difmcon = 0.1 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
138 |
KPP_READPARMS |
difscon = 0.1 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
139 |
KPP_READPARMS |
diftcon = 0.1 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
143 |
KPP_READPARMS |
Rrho0 = 1.9 _d 0 |
|
./pkg/kpp/kpp_readparms.F |
144 |
KPP_READPARMS |
dsfmax = 10. _d -3 |
|
./pkg/kpp/kpp_readparms.F |
96 |
KPP_READPARMS |
epsln = 1. _d -20 |
|
./pkg/kpp/kpp_readparms.F |
97 |
KPP_READPARMS |
phepsi = 1. _d -10 |
|
./pkg/kpp/kpp_readparms.F |
98 |
KPP_READPARMS |
epsilon = 1. _d -1 |
|
./pkg/kpp/kpp_readparms.F |
99 |
KPP_READPARMS |
vonk = 0.4 _d 0 |
|
./pkg/kpp/kpp_routines.F |
1005 |
RI_IWMIX |
c1 = 1. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1006 |
RI_IWMIX |
c0 = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1910 |
KPP_DOUBLEDIFF |
numol = 1.5 _d -06 |
|
./pkg/kpp/kpp_routines.F |
1911 |
KPP_DOUBLEDIFF |
rFac = 1. _d 0 / (Rrho0 - 1. _d 0 ) |
|
./pkg/kpp/kpp_routines.F |
1927 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ABS( TTALPHA(I,J,Km1) + TTALPHA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1929 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ( SSBETA(I,J,Km1) + SSBETA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1930 |
KPP_DOUBLEDIFF |
nuddt(I,J) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1931 |
KPP_DOUBLEDIFF |
nudds(I,J) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1937 |
KPP_DOUBLEDIFF |
Rrho = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1942 |
KPP_DOUBLEDIFF |
& .AND. betaDS(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/kpp/kpp_routines.F |
1946 |
KPP_DOUBLEDIFF |
nutmp = ( 1. _d 0 - (Rrho - 1. _d 0) * rFac ) |
|
./pkg/kpp/kpp_routines.F |
1949 |
KPP_DOUBLEDIFF |
nuddt(I,J) = 0.7 _d 0 * nudds(I,J) |
|
./pkg/kpp/kpp_routines.F |
1950 |
KPP_DOUBLEDIFF |
ELSEIF ( alphaDT(I,J) .LT. 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1951 |
KPP_DOUBLEDIFF |
& .AND. betaDS(I,J) .LT. 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1959 |
KPP_DOUBLEDIFF |
nuddt(I,J) = numol * 0.909 _d 0 |
|
./pkg/kpp/kpp_routines.F |
1960 |
KPP_DOUBLEDIFF |
& * exp ( 4.6 _d 0 * exp ( |
|
./pkg/kpp/kpp_routines.F |
1961 |
KPP_DOUBLEDIFF |
& - 5.4 _d 0 * ( 1. _d 0/Rrho - 1. _d 0 ) ) ) |
|
./pkg/kpp/kpp_routines.F |
1966 |
KPP_DOUBLEDIFF |
nudds(I,J) = nuddt(I,J) * MAX( 0.15 _d 0 * Rrho, |
|
./pkg/kpp/kpp_routines.F |
1967 |
KPP_DOUBLEDIFF |
& 1.85 _d 0 * Rrho - 0.85 _d 0 ) |
|
./pkg/kpp/kpp_routines.F |
283 |
KPPMIX |
ghat(i,k) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
436 |
BLDEPTH |
Rib(i,1) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
446 |
BLDEPTH |
KPPBFSFC(i,kl) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
447 |
BLDEPTH |
KPPRi(i,kl) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
551 |
BLDEPTH |
if (bvsq .eq. 0. _d 0) then |
|
./pkg/kpp/kpp_routines.F |
552 |
BLDEPTH |
vtsq = 0. _d 0 |
|
./pkg/kpp/kpp_transport_ptr.F |
101 |
KPP_TRANSPORT_PTR |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_transport_ptr.F |
99 |
KPP_TRANSPORT_PTR |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_transport_s.F |
78 |
KPP_TRANSPORT_S |
tmpFac1 = 1. _d 0 |
|
./pkg/kpp/kpp_transport_s.F |
80 |
KPP_TRANSPORT_S |
tmpFac1 = 0. _d 0 |
|
./pkg/kpp/kpp_transport_s.F |
83 |
KPP_TRANSPORT_S |
tmpFac1 = 0. _d 0 |
|
./pkg/kpp/kpp_transport_s.F |
90 |
KPP_TRANSPORT_S |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_transport_s.F |
92 |
KPP_TRANSPORT_S |
tmpFac = 0. _d 0 |
|
./pkg/kpp/kpp_transport_t.F |
68 |
KPP_TRANSPORT_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/kpp/kpp_transport_t.F |
73 |
KPP_TRANSPORT_T |
tmpFac = 1. _d 0 |
|
./pkg/kpp/kpp_transport_t.F |
75 |
KPP_TRANSPORT_T |
tmpFac = 0. _d 0 |
|
./model/src/calc_div_ghat.F |
116 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
159 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj) |
|
./pkg/land/land_albedo.F |
67 |
LAND_ALBEDO |
ageSnow = land_snowAge(i,j,bi,bj)/86400. _d 0 |
|
./pkg/land/land_albedo.F |
74 |
LAND_ALBEDO |
IF ( tempSnowAlbL.LT.0. _d 0 ) THEN |
|
./pkg/land/land_albedo.F |
77 |
LAND_ALBEDO |
& *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlbL, 1. _d 0) ) |
|
./pkg/land/land_albedo.F |
83 |
LAND_ALBEDO |
& +(albSnow-albOldSnow)*exp(-0.2 _d 0*ageSnow) |
|
./pkg/land/land_impl_temp.F |
140 |
LAND_IMPL_TEMP |
beta = 1. _d 0/(1. _d 0+alpha*bLoc) |
|
./pkg/land/land_impl_temp.F |
145 |
LAND_IMPL_TEMP |
mW(k) = MAX( mW(k), 0. _d 0 ) |
|
./pkg/land/land_impl_temp.F |
176 |
LAND_IMPL_TEMP |
IF ( tg(2)*land_groundT(i,j,2,bi,bj) .LE. 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
177 |
LAND_IMPL_TEMP |
& .AND. tmpFlag .AND. tSurf*mSnow .LE. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
186 |
LAND_IMPL_TEMP |
tg(1) = MIN( temp_bf, MAX(temp_af, 0. _d 0) ) |
|
./pkg/land/land_impl_temp.F |
188 |
LAND_IMPL_TEMP |
IF ( tSurf*mSnow .LE. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
222 |
LAND_IMPL_TEMP |
IF ( tg(1)*land_groundT(i,j,1,bi,bj) .LE. 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
223 |
LAND_IMPL_TEMP |
& .AND. tmpFlag .AND. tSurf*mSnow .LE. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
229 |
LAND_IMPL_TEMP |
IF ( tSurf*mSnow .LE. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
233 |
LAND_IMPL_TEMP |
IF ( eg(1)*mSnow .GT. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
279 |
LAND_IMPL_TEMP |
IF ( tmpFlag .AND. tSurf*mSnow .GT. 0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
286 |
LAND_IMPL_TEMP |
tSurf = 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
294 |
LAND_IMPL_TEMP |
IF ( eLoc .GT. 0. _d 0 .OR. mSnow.LT.mSnEpsil ) THEN |
|
./pkg/land/land_impl_temp.F |
298 |
LAND_IMPL_TEMP |
tg(1) = 0. _d 0 |
|
./pkg/land/land_impl_temp.F |
306 |
LAND_IMPL_TEMP |
IF ( tg(2)*land_groundT(i,j,2,bi,bj).LE.0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
309 |
LAND_IMPL_TEMP |
ELSEIF ( tg(1)*land_groundT(i,j,1,bi,bj).LE.0. _d 0 ) THEN |
|
./pkg/land/land_impl_temp.F |
321 |
LAND_IMPL_TEMP |
dMsn = MIN( MAX(dMsn, 0. _d 0), mSnow ) |
|
./pkg/land/land_impl_temp.F |
99 |
LAND_IMPL_TEMP |
DATA mSnEpsil / 1. _d -6 / |
|
./pkg/land/land_ini_vars.F |
143 |
LAND_INI_VARS |
IF (land_groundT(i,j,k,bi,bj).LT. 0. _d 0) |
|
./pkg/land/land_ini_vars.F |
164 |
LAND_INI_VARS |
& MIN( temp_bf, MAX(temp_af, 0. _d 0) ) |
|
./pkg/land/land_ini_vars.F |
65 |
LAND_INI_VARS |
land_groundT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
66 |
LAND_INI_VARS |
land_enthalp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
67 |
LAND_INI_VARS |
land_groundW(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
75 |
LAND_INI_VARS |
land_skinT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
76 |
LAND_INI_VARS |
land_hSnow (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
77 |
LAND_INI_VARS |
land_snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
78 |
LAND_INI_VARS |
land_runOff (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
79 |
LAND_INI_VARS |
land_enRnOf (i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
80 |
LAND_INI_VARS |
land_HeatFLx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
81 |
LAND_INI_VARS |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_ini_vars.F |
82 |
LAND_INI_VARS |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_readparms.F |
142 |
LAND_READPARMS |
land_grdLambda= 0.42 _d 0 |
|
./pkg/land/land_readparms.F |
143 |
LAND_READPARMS |
land_heatCs = 1.13 _d 6 |
|
./pkg/land/land_readparms.F |
144 |
LAND_READPARMS |
land_CpWater = 4.2 _d 3 |
|
./pkg/land/land_readparms.F |
146 |
LAND_READPARMS |
land_wTauDiff = 48. _d 0*3600. _d 0 |
|
./pkg/land/land_readparms.F |
147 |
LAND_READPARMS |
land_waterCap = 0.24 _d 0 |
|
./pkg/land/land_readparms.F |
148 |
LAND_READPARMS |
land_fractRunOff = 0.5 _d 0 |
|
./pkg/land/land_readparms.F |
151 |
LAND_READPARMS |
land_rhoSnow = 330. _d 0 |
|
./pkg/land/land_readparms.F |
152 |
LAND_READPARMS |
land_Lfreez = 334. _d 3 |
|
./pkg/land/land_readparms.F |
153 |
LAND_READPARMS |
land_hMaxSnow = 1. _d 3 |
|
./pkg/land/land_readparms.F |
154 |
LAND_READPARMS |
diffKsnow = 0.30 _d 0 |
|
./pkg/land/land_readparms.F |
155 |
LAND_READPARMS |
timeSnowAge = 50. _d 0 * 86400. _d 0 |
|
./pkg/land/land_readparms.F |
156 |
LAND_READPARMS |
hNewSnowAge = 2. _d -3 |
|
./pkg/land/land_readparms.F |
157 |
LAND_READPARMS |
albColdSnow = 0.85 _d 0 |
|
./pkg/land/land_readparms.F |
158 |
LAND_READPARMS |
albWarmSnow = 0.70 _d 0 |
|
./pkg/land/land_readparms.F |
159 |
LAND_READPARMS |
tempSnowAlbL = -10. _d 0 |
|
./pkg/land/land_readparms.F |
160 |
LAND_READPARMS |
albOldSnow = 0.55 _d 0 |
|
./pkg/land/land_readparms.F |
161 |
LAND_READPARMS |
hAlbSnow = 0.30 _d 0 |
|
./pkg/land/land_readparms.F |
200 |
LAND_READPARMS |
tmpvar = 0. _d 0 |
|
./pkg/land/land_readparms.F |
203 |
LAND_READPARMS |
IF (tmpvar.GT.0. _d 0) land_rec_dzC(k) = 2. _d 0 / tmpvar |
|
./pkg/land/land_readparms.F |
206 |
LAND_READPARMS |
IF ( land_Lfreez.NE. 0. _d 0 ) THEN |
|
./pkg/land/land_readparms.F |
207 |
LAND_READPARMS |
recip_Lfreez = 1. _d 0 / land_Lfreez |
|
./pkg/land/land_readparms.F |
209 |
LAND_READPARMS |
recip_Lfreez = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
137 |
LAND_STEPFWD |
land_runOff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
138 |
LAND_STEPFWD |
land_enRnOf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
155 |
LAND_STEPFWD |
mWater = MAX( mWater, 0. _d 0 ) |
|
./pkg/land/land_stepfwd.F |
161 |
LAND_STEPFWD |
& MIN( temp_bf, MAX(temp_af, 0. _d 0) ) |
|
./pkg/land/land_stepfwd.F |
176 |
LAND_STEPFWD |
ageFac = 1. _d 0 - land_deltaT/timeSnowAge |
|
./pkg/land/land_stepfwd.F |
195 |
LAND_STEPFWD |
snowPrec = -enWfx -MAX( enGr1/land_deltaT, 0. _d 0 ) |
|
./pkg/land/land_stepfwd.F |
197 |
LAND_STEPFWD |
snowPrec = MAX( 0. _d 0 , |
|
./pkg/land/land_stepfwd.F |
208 |
LAND_STEPFWD |
dhSnowMx = MAX( 0. _d 0, |
|
./pkg/land/land_stepfwd.F |
229 |
LAND_STEPFWD |
land_hSnow(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
232 |
LAND_STEPFWD |
flxEngU(i,j) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
246 |
LAND_STEPFWD |
IF ( land_hSnow(i,j,bi,bj).LE. 0. _d 0 ) |
|
./pkg/land/land_stepfwd.F |
247 |
LAND_STEPFWD |
& land_snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
261 |
LAND_STEPFWD |
flxEngU(i,j) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
274 |
LAND_STEPFWD |
fractRunOff = 1. _d 0 |
|
./pkg/land/land_stepfwd.F |
292 |
LAND_STEPFWD |
IF ( land_groundT(i,j,k,bi,bj).LT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
294 |
LAND_STEPFWD |
IF ( flxkup(i,j) .LT. 0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
309 |
LAND_STEPFWD |
flxkup(i,j) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
310 |
LAND_STEPFWD |
flxEngU(i,j) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
317 |
LAND_STEPFWD |
& land_groundT(i,j,kp1,bi,bj).LT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
320 |
LAND_STEPFWD |
flxkdw(i,j) = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
321 |
LAND_STEPFWD |
flxEngL = 0. _d 0 |
|
./pkg/land/land_stepfwd.F |
348 |
LAND_STEPFWD |
land_groundW(i,j,k,bi,bj) = MIN(1. _d 0, groundWnp1) |
|
./pkg/land/land_stepfwd.F |
349 |
LAND_STEPFWD |
grdWexcess = ( groundWnp1 - MIN(1. _d 0, groundWnp1) ) |
|
./pkg/land/land_stepfwd.F |
357 |
LAND_STEPFWD |
& + (1. _d 0-fractRunOff)*grdWexcess |
|
./pkg/land/land_stepfwd.F |
371 |
LAND_STEPFWD |
& + (1. _d 0-fractRunOff)*grdWexcess*enthalpGrdW |
|
./pkg/land/land_stepfwd.F |
403 |
LAND_STEPFWD |
mWater = MAX( mWater, 0. _d 0 ) |
|
./pkg/land/land_stepfwd.F |
415 |
LAND_STEPFWD |
& MIN( temp_bf, MAX(temp_af, 0. _d 0) ) |
|
./pkg/land/land_stepfwd.F |
424 |
LAND_STEPFWD |
IF ( land_hSnow(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/land/land_stepfwd.F |
425 |
LAND_STEPFWD |
land_skinT(i,j,bi,bj) = MIN(land_skinT(i,j,bi,bj), 0. _d 0) |
|
./model/src/calc_grad_phi_fv.F |
71 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = 0. _d 0 |
|
./model/src/calc_grad_phi_fv.F |
72 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
168 |
LAYERS_CALC |
rhoShift = rhoConst - 1000. _d 0 |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
445 |
LAYERS_CALC |
layers_surfflux(i,j,1,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
451 |
LAYERS_CALC |
layers_dfx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
452 |
LAYERS_CALC |
layers_dfy (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
453 |
LAYERS_CALC |
layers_dfr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
454 |
LAYERS_CALC |
layers_afx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
455 |
LAYERS_CALC |
layers_afy (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
456 |
LAYERS_CALC |
layers_afr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
457 |
LAYERS_CALC |
layers_tottend (i,j,k,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_calc.F |
459 |
LAYERS_CALC |
layers_sw (i,j,k,1 ,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
124 |
LAYERS_FLUXCALC |
mSteps = int(log10(dble(Nlayers))/log10(2. _d 0))+1 |
|
./pkg/layers/layers_fluxcalc.F |
146 |
LAYERS_FLUXCALC |
UH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
148 |
LAYERS_FLUXCALC |
Hw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
149 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
150 |
LAYERS_FLUXCALC |
Uw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
154 |
LAYERS_FLUXCALC |
VH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
156 |
LAYERS_FLUXCALC |
Hs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
157 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
158 |
LAYERS_FLUXCALC |
Vs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
181 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
182 |
LAYERS_FLUXCALC |
& (1. _d 0 -MapFact(kk)) * |
|
./pkg/layers/layers_fluxcalc.F |
183 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i-1,j,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
226 |
LAYERS_FLUXCALC |
delPsi = 0.25 _d 0 *( |
|
./pkg/layers/layers_fluxcalc.F |
261 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,k,bi,bj)+tracer(i,j,k,bi,bj)) + |
|
./pkg/layers/layers_fluxcalc.F |
262 |
LAYERS_FLUXCALC |
& (1. _d 0 -MapFact(kk)) * |
|
./pkg/layers/layers_fluxcalc.F |
263 |
LAYERS_FLUXCALC |
& 0.5 _d 0 * (tracer(i,j-1,kp1,bi,bj)+tracer(i,j,kp1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
315 |
LAYERS_FLUXCALC |
delPsi = 0.25 _d 0 *( |
|
./pkg/layers/layers_fluxcalc.F |
352 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
359 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
466 |
LAYERS_DIAPYCNAL |
Tfac = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
467 |
LAYERS_DIAPYCNAL |
Sfac = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
471 |
LAYERS_DIAPYCNAL |
mSteps = int(log10(dble(Nlayers))/log10(2. _d 0))+1 |
|
./pkg/layers/layers_fluxcalc.F |
495 |
LAYERS_DIAPYCNAL |
TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
496 |
LAYERS_DIAPYCNAL |
TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
497 |
LAYERS_DIAPYCNAL |
TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
498 |
LAYERS_DIAPYCNAL |
TtendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
499 |
LAYERS_DIAPYCNAL |
TtendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
500 |
LAYERS_DIAPYCNAL |
Ttendtot(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
501 |
LAYERS_DIAPYCNAL |
StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
502 |
LAYERS_DIAPYCNAL |
StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
503 |
LAYERS_DIAPYCNAL |
StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
504 |
LAYERS_DIAPYCNAL |
StendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
505 |
LAYERS_DIAPYCNAL |
StendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
506 |
LAYERS_DIAPYCNAL |
Stendtot(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
507 |
LAYERS_DIAPYCNAL |
Hcw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
515 |
LAYERS_DIAPYCNAL |
Hc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
516 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
531 |
LAYERS_DIAPYCNAL |
& (1. _d 0 -MapFact(kk)) * tracer(i,j,kp1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
696 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_init_fixed.F |
102 |
LAYERS_INIT_FIXED |
MapFact(kk) = 0.0 _d 0 |
|
./pkg/layers/layers_init_fixed.F |
158 |
LAYERS_INIT_FIXED |
layers_bounds_w(k,iLa) = 0.5 _d 0 * ( |
|
./pkg/layers/layers_init_fixed.F |
163 |
LAYERS_INIT_FIXED |
layers_recip_delta(k,iLa) = 1.0 _d 0 / ( |
|
./pkg/layers/layers_init_fixed.F |
75 |
LAYERS_INIT_FIXED |
Zf(1) = 0. _d 0 |
|
./pkg/layers/layers_init_fixed.F |
84 |
LAYERS_INIT_FIXED |
ZZf(1) = 0. _d 0 |
|
./pkg/layers/layers_init_fixed.F |
85 |
LAYERS_INIT_FIXED |
ZZc(1) = 0.5 _d 0 * dZZf(1) |
|
./pkg/layers/layers_init_fixed.F |
89 |
LAYERS_INIT_FIXED |
ZZc(kk-1) = 0.5 _d 0 * (ZZf(kk) + ZZf(kk-1)) |
|
./pkg/layers/layers_init_fixed.F |
98 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 _d 0 |
|
./pkg/layers/layers_init_varia.F |
42 |
LAYERS_INIT_VARIA |
layers_Hc (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
43 |
LAYERS_INIT_VARIA |
layers_PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
50 |
LAYERS_INIT_VARIA |
layers_Hc (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
51 |
LAYERS_INIT_VARIA |
layers_TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
52 |
LAYERS_INIT_VARIA |
layers_TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
53 |
LAYERS_INIT_VARIA |
layers_TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
54 |
LAYERS_INIT_VARIA |
layers_TtendAdvh (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
55 |
LAYERS_INIT_VARIA |
layers_TtendAdvr (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
56 |
LAYERS_INIT_VARIA |
layers_StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
57 |
LAYERS_INIT_VARIA |
layers_StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
58 |
LAYERS_INIT_VARIA |
layers_StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
59 |
LAYERS_INIT_VARIA |
layers_StendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
60 |
LAYERS_INIT_VARIA |
layers_StendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
68 |
LAYERS_INIT_VARIA |
layers_alpha(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
69 |
LAYERS_INIT_VARIA |
layers_beta(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
78 |
LAYERS_INIT_VARIA |
layers_surfflux(i,j,1,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
84 |
LAYERS_INIT_VARIA |
layers_tottend (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
85 |
LAYERS_INIT_VARIA |
layers_dfx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
86 |
LAYERS_INIT_VARIA |
layers_dfy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
87 |
LAYERS_INIT_VARIA |
layers_dfr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
88 |
LAYERS_INIT_VARIA |
layers_afx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
89 |
LAYERS_INIT_VARIA |
layers_afy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
90 |
LAYERS_INIT_VARIA |
layers_afr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
92 |
LAYERS_INIT_VARIA |
layers_sw (i,j,kg,1 ,bi,bj) = 0. _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
103 |
CALC_GRAD_PHI_HYD |
ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN |
|
./model/src/calc_grad_phi_hyd.F |
107 |
CALC_GRAD_PHI_HYD |
& /(1. _d 0 -factPI) |
|
./model/src/calc_grad_phi_hyd.F |
145 |
CALC_GRAD_PHI_HYD |
dPhiHydX(i,j) = 0. _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
146 |
CALC_GRAD_PHI_HYD |
dPhiHydY(i,j) = 0. _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
167 |
CALC_GRAD_PHI_HYD |
factorZ = gravity*recip_rhoConst*recip_rhoFacC(k)*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
171 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
192 |
CALC_GRAD_PHI_HYD |
factorP = 0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
216 |
CALC_GRAD_PHI_HYD |
factorP = (atm_Rd/rC(k))*factorP*0.5 _d 0 |
|
./pkg/layers/layers_thermodynamics.F |
100 |
LAYERS_CALC_RHS |
downfac = 1. _d 0 |
|
./pkg/layers/layers_thermodynamics.F |
149 |
LAYERS_CALC_RHS |
swfracb(2)=0. _d 0 |
|
./pkg/layers/layers_thermodynamics.F |
98 |
LAYERS_CALC_RHS |
downfac = 0. _d 0 |
|
./pkg/longstep/longstep_average.F |
132 |
LONGSTEP_AVERAGE |
IF ( ivdc_kappa .NE. 0. _d 0 ) |
|
./pkg/longstep/longstep_average.F |
162 |
LONGSTEP_AVERAGE |
IF ( ivdc_kappa .NE. 0. _d 0 ) |
|
./pkg/longstep/longstep_average.F |
189 |
LONGSTEP_AVERAGE |
IF ( ivdc_kappa .NE. 0. _d 0 .AND. .NOT. useKPP ) |
|
./pkg/longstep/longstep_average.F |
61 |
LONGSTEP_AVERAGE |
IF ( ivdc_kappa .NE. 0. _d 0 ) |
|
./pkg/longstep/longstep_average.F |
95 |
LONGSTEP_AVERAGE |
IF ( ivdc_kappa .NE. 0. _d 0 ) |
|
./pkg/longstep/longstep_average_3d.F |
50 |
LONGSTEP_AVERAGE_3D |
IF (lsCnt(bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/longstep/longstep_average_3d_fac.F |
56 |
LONGSTEP_AVERAGE_3D_FAC |
IF (factor.NE.zeroRL) factor = 1. _d 0 / factor |
|
./pkg/longstep/longstep_diagnostics_init.F |
79 |
LONGSTEP_DIAGNOSTICS_INIT |
IF ( ivdc_kappa .NE. 0. _d 0 ) THEN |
|
./pkg/longstep/longstep_forcing_surf.F |
64 |
LONGSTEP_FORCING_SURF |
& 0. _d 0 |
|
./pkg/longstep/longstep_init_varia.F |
51 |
LONGSTEP_INIT_VARIA |
IF ( ivdc_kappa .NE. 0. _d 0 ) |
|
./pkg/longstep/longstep_reset_3d.F |
51 |
LONGSTEP_RESET_3D |
lsFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
133 |
LONGSTEP_THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./pkg/longstep/longstep_thermodynamics.F |
158 |
LONGSTEP_THERMODYNAMICS |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./pkg/longstep/longstep_thermodynamics.F |
171 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/calc_grid_angles.F |
84 |
CALC_GRID_ANGLES |
IF ( uNorm .NE. 0. _d 0 ) uNorm = 1. _d 0/uNorm |
|
./pkg/matrix/matrix_init_varia.F |
43 |
MATRIX_INIT_VARIA |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./pkg/matrix/matrix_init_varia.F |
44 |
MATRIX_INIT_VARIA |
MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0 |
|
./pkg/matrix/matrix_readparms.F |
50 |
MATRIX_READPARMS |
expMatrixWriteTime = 10. _d 10 |
|
./pkg/matrix/matrix_readparms.F |
51 |
MATRIX_READPARMS |
impMatrixWriteTime = 10. _d 10 |
|
./pkg/matrix/matrix_write_tendency.F |
100 |
MATRIX_WRITE_TENDENCY |
recipImpMatrixCounter = 1. _d 0 / recipImpMatrixCounter |
|
./pkg/matrix/matrix_write_tendency.F |
145 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0 |
|
./pkg/matrix/matrix_write_tendency.F |
41 |
MATRIX_WRITE_TENDENCY |
recipExpDeltaTtracer = 1. _d 0 / recipExpDeltaTtracer |
|
./pkg/matrix/matrix_write_tendency.F |
86 |
MATRIX_WRITE_TENDENCY |
MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0 |
|
./model/src/calc_gw.F |
168 |
CALC_GW |
del2w(i,j) = 0. _d 0 |
|
./model/src/calc_gw.F |
199 |
CALC_GW |
recip_rThickC(i,j) = 1. _d 0 / |
|
./model/src/calc_gw.F |
247 |
CALC_GW |
recip_rThickC(i,j) = 1. _d 0 / |
|
./model/src/calc_gw.F |
412 |
CALC_GW |
& )*0.125 _d 0 |
|
./model/src/calc_gw.F |
430 |
CALC_GW |
& )*0.25 _d 0 |
|
./model/src/calc_gw.F |
577 |
CALC_GW |
& + wVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mdsio/mdsio_gl.F |
1306 |
MDSWRITEFIELD_2D_GL |
DATA dummyRL(1) / 0. _d 0 / |
|
./pkg/mdsio/mdsio_gl.F |
518 |
MDSWRITEFIELD_3D_GL |
DATA dummyRL(1) / 0. _d 0 / |
|
./pkg/mdsio/mdsio_gl_slice.F |
579 |
MDSWRITEFIELD_XZ_GL |
DATA dummyRL(1) / 0. _d 0 / |
|
./pkg/mdsio/mdsio_gl_slice.F |
820 |
MDSWRITEFIELD_YZ_GL |
DATA dummyRL(1) / 0. _d 0 / |
|
./model/src/calc_ivdc.F |
51 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/calc_ivdc.F |
53 |
CALC_IVDC |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/calc_oce_mxlayer.F |
169 |
CALC_OCE_MXLAYER |
tmpFac = 0. _d 0 |
|
./model/src/calc_oce_mxlayer.F |
170 |
CALC_OCE_MXLAYER |
IF ( sigmAv.GT.0. _d 0 ) THEN |
|
./model/src/calc_oce_mxlayer.F |
172 |
CALC_OCE_MXLAYER |
IF ( tmpFac .GT. 1. _d 0 ) THEN |
|
./model/src/calc_oce_mxlayer.F |
173 |
CALC_OCE_MXLAYER |
tmpFac = 1. _d 0 |
|
./model/src/calc_oce_mxlayer.F |
174 |
CALC_OCE_MXLAYER |
& + ( tmpFac - 1. _d 0 )/( hMixCriteria - 1. _d 0 ) |
|
./model/src/calc_oce_mxlayer.F |
176 |
CALC_OCE_MXLAYER |
tmpFac = MAX( 0. _d 0, MIN( tmpFac, 2. _d 0 ) ) |
|
./model/src/calc_oce_mxlayer.F |
179 |
CALC_OCE_MXLAYER |
& - drF(k)*tmpFac*0.5 _d 0 |
|
./model/src/calc_oce_mxlayer.F |
191 |
CALC_OCE_MXLAYER |
IF ( hMixSmooth .GT. 0. _d 0 ) THEN |
|
./model/src/calc_oce_mxlayer.F |
192 |
CALC_OCE_MXLAYER |
tmpFac = (1. _d 0 - hMixSmooth ) / 4. _d 0 |
|
./model/src/calc_oce_mxlayer.F |
95 |
CALC_OCE_MXLAYER |
rhoBigNb = rhoConst*1. _d 10 |
|
./pkg/mdsio/mdsio_write_field.F |
141 |
MDS_WRITE_FIELD |
DATA dummyRL(1) / 0. _d 0 / |
|
./model/src/calc_phi_hyd.F |
188 |
CALC_PHI_HYD |
IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0 |
|
./model/src/calc_phi_hyd.F |
556 |
CALC_PHI_HYD |
phiHydC(i,j) = ddRloc*recip_drF(k)*2. _d 0 |
|
./pkg/mdsio/mdsio_write_tape.F |
89 |
MDS_WRITE_TAPE |
DATA dummyRL(1) / 0. _d 0 / |
|
./pkg/mdsio/mdsio_writelocal.F |
130 |
MDS_WRITELOCAL |
DATA dummyRL(1) / 0. _d 0 / |
|
./pkg/mdsio/mdsio_writevec_loc.F |
91 |
MDS_WRITEVEC_LOC |
DATA dummyRL(1) / 0. _d 0 / |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj) |
|
./model/src/calc_r_star.F |
135 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj)*rA(i,j-1,bi,bj) |
|
./model/src/calc_r_star.F |
151 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
163 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) ) |
|
./model/src/calc_r_star.F |
328 |
CALC_R_STAR |
pStarFacK(i,j,bi,bj) = 1. _d 0 |
|
./model/src/calc_r_star.F |
65 |
CALC_R_STAR |
maxhFacC = 0. _d 0 |
|
./pkg/mnc/mnc_readparms.F |
108 |
MNC_READPARMS |
mnc_max_fsize = 2.1 _d 9 |
|
./pkg/mnc/mnc_var.F |
530 |
MNC_VAR_WRITE_REAL |
DATA dummyR8 / 0. _d 0 / |
|
./pkg/mnc/mnc_var.F |
557 |
MNC_VAR_WRITE_INT |
DATA dummyR8 / 0. _d 0 / |
|
./pkg/mnc/mnc_var.F |
613 |
MNC_VAR_APPEND_REAL |
DATA dummyR8 / 0. _d 0 / |
|
./pkg/mnc/mnc_var.F |
641 |
MNC_VAR_APPEND_INT |
DATA dummyR8 / 0. _d 0 / |
|
./model/src/calc_viscosity.F |
170 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_viscosity.F |
213 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_viscosity.F |
260 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./model/src/calc_viscosity.F |
304 |
CALC_VISCOSITY |
tmpFac(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
123 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
124 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
205 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
206 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
218 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - uVel( i , j ,k-1 ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
228 |
MOM_CALC_3D_STRAIN |
& *( 0. _d 0 - vVel( i , j ,k-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
66 |
MOM_CALC_3D_STRAIN |
str11(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
70 |
MOM_CALC_3D_STRAIN |
str22(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
74 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
75 |
MOM_CALC_3D_STRAIN |
str13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
79 |
MOM_CALC_3D_STRAIN |
str12(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
80 |
MOM_CALC_3D_STRAIN |
str23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
155 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
157 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_hfacz.F |
200 |
MOM_CALC_HFACZ |
hFacZ(i,j) = 0.25 _d 0 * hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
219 |
MOM_CALC_HFACZ |
hFacZ(i,j) = 0.5 _d 0 * hFacZOpen |
|
./pkg/mom_common/mom_calc_hfacz.F |
277 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
307 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
337 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
361 |
MOM_CALC_HFACZ |
hFacZ(i,j) = hFacZOpen / 3. _d 0 |
|
./pkg/mom_common/mom_calc_hfacz.F |
375 |
MOM_CALC_HFACZ |
r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j) |
|
./pkg/mom_common/mom_calc_relvort3.F |
48 |
MOM_CALC_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
103 |
MOM_CALC_SMAG_3D |
S66(i,j,n) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
104 |
MOM_CALC_SMAG_3D |
S12(i,j,n) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
166 |
MOM_CALC_SMAG_3D |
viscAh3d_13(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
167 |
MOM_CALC_SMAG_3D |
viscAh3d_23(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_smag_3d.F |
87 |
MOM_CALC_SMAG_3D |
twoThird = 2. _d 0 / 3. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
168 |
MOM_CALC_VISC |
recip_dt = 1. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
169 |
MOM_CALC_VISC |
IF ( deltaTMom.NE.0. ) recip_dt = 1. _d 0/deltaTMom |
|
./pkg/mom_common/mom_calc_visc.F |
174 |
MOM_CALC_VISC |
viscAhRe_max=SQRT(2. _d 0)/viscAhReMax |
|
./pkg/mom_common/mom_calc_visc.F |
176 |
MOM_CALC_VISC |
viscAhRe_max=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
180 |
MOM_CALC_VISC |
viscA4Re_max=0.125 _d 0*SQRT(2. _d 0)/viscA4ReMax |
|
./pkg/mom_common/mom_calc_visc.F |
182 |
MOM_CALC_VISC |
viscA4Re_max=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
197 |
MOM_CALC_VISC |
smag4fac=0.125 _d 0*(viscC4smag/pi)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
199 |
MOM_CALC_VISC |
smag2fac=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
200 |
MOM_CALC_VISC |
smag4fac=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
207 |
MOM_CALC_VISC |
leith4fac =0.015625 _d 0*(viscC4leith /pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
208 |
MOM_CALC_VISC |
leithD4fac=0.015625 _d 0*(viscC4leithD/pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
212 |
MOM_CALC_VISC |
leith4fac =0.125 _d 0*(viscC4leith /pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
213 |
MOM_CALC_VISC |
leithD4fac=0.125 _d 0*(viscC4leithD/pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
216 |
MOM_CALC_VISC |
leith2fac=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
217 |
MOM_CALC_VISC |
leith4fac=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
218 |
MOM_CALC_VISC |
leithD2fac=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
219 |
MOM_CALC_VISC |
leithD4fac=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
230 |
MOM_CALC_VISC |
visca4_zsmg(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
231 |
MOM_CALC_VISC |
viscah_zsmg(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
233 |
MOM_CALC_VISC |
viscAh_Dlth(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
234 |
MOM_CALC_VISC |
viscA4_Dlth(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
235 |
MOM_CALC_VISC |
viscAh_DlthD(i,j)= 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
236 |
MOM_CALC_VISC |
viscA4_DlthD(i,j)= 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
238 |
MOM_CALC_VISC |
viscAh_DSmg(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
239 |
MOM_CALC_VISC |
viscA4_DSmg(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
241 |
MOM_CALC_VISC |
viscAh_ZLth(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
242 |
MOM_CALC_VISC |
viscA4_ZLth(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
243 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)= 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
244 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)= 0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
330 |
MOM_CALC_VISC |
L2rdt = 0.25 _d 0*recip_dt*L2 |
|
./pkg/mom_common/mom_calc_visc.F |
352 |
MOM_CALC_VISC |
grdVrt=0.25 _d 0*( (vrtDx(i,j+1)*vrtDx(i,j+1) |
|
./pkg/mom_common/mom_calc_visc.F |
359 |
MOM_CALC_VISC |
grdDiv=0.25 _d 0*( (divDx(i+1,j)*divDx(i+1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
388 |
MOM_CALC_VISC |
viscAh_Dlth(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
389 |
MOM_CALC_VISC |
viscA4_Dlth(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
390 |
MOM_CALC_VISC |
viscAh_DlthD(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
391 |
MOM_CALC_VISC |
viscA4_DlthD(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
397 |
MOM_CALC_VISC |
& +0.25 _d 0*(strain(i+1, j )**2+strain( i ,j+1)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
402 |
MOM_CALC_VISC |
viscAh_DSmg(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
403 |
MOM_CALC_VISC |
viscA4_DSmg(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
438 |
MOM_CALC_VISC |
L2rdt = 0.25 _d 0*recip_dt*L2 |
|
./pkg/mom_common/mom_calc_visc.F |
446 |
MOM_CALC_VISC |
keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1)) |
|
./pkg/mom_common/mom_calc_visc.F |
464 |
MOM_CALC_VISC |
grdVrt=0.25 _d 0*( (vrtDx(i-1,j)*vrtDx(i-1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
470 |
MOM_CALC_VISC |
grdDiv=0.25 _d 0*( (divDx(i,j-1)*divDx(i,j-1) |
|
./pkg/mom_common/mom_calc_visc.F |
499 |
MOM_CALC_VISC |
viscAh_ZLth(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
500 |
MOM_CALC_VISC |
viscA4_ZLth(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
501 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
502 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
508 |
MOM_CALC_VISC |
& +0.25 _d 0*(tension( i , j )**2+tension( i ,j-1)**2 |
|
./pkg/mom_common/mom_init_fixed.F |
112 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
121 |
MOM_INIT_FIXED |
L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_init_fixed.F |
38 |
MOM_INIT_FIXED |
twoThird = 2. _d 0 / 3. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
39 |
MOM_INIT_FIXED |
recip_dt = 1. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
40 |
MOM_INIT_FIXED |
IF ( deltaTmom.NE.0. ) recip_dt = 1. _d 0/deltaTmom |
|
./pkg/mom_common/mom_init_fixed.F |
49 |
MOM_INIT_FIXED |
viscAhDfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
50 |
MOM_INIT_FIXED |
viscAhZfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
59 |
MOM_INIT_FIXED |
viscA4Dfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
60 |
MOM_INIT_FIXED |
viscA4Zfld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
88 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = 2. _d 0 |
|
./pkg/mom_common/mom_init_fixed.F |
97 |
MOM_INIT_FIXED |
L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt |
|
./pkg/mom_common/mom_quasihydrostatic.F |
106 |
MOM_QUASIHYDROSTATIC |
& )* 0.5 _d 0 * recip_rSphere*recip_deepFacC(k) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
88 |
MOM_QUASIHYDROSTATIC |
& ( angleCosC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_quasihydrostatic.F |
90 |
MOM_QUASIHYDROSTATIC |
& -angleSinC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
170 |
MOM_U_BOTDRAG_IMPL |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
75 |
MOM_U_BOTDRAG_IMPL |
dragFac = 1. _d 0 |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
95 |
MOM_U_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_u_bottomdrag.F |
156 |
MOM_U_BOTTOMDRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
71 |
MOM_U_BOTTOMDRAG |
dragFac = 1. _d 0 |
|
./pkg/mom_common/mom_u_bottomdrag.F |
91 |
MOM_U_BOTTOMDRAG |
& * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
121 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - ( b5d(i,j,k) + d5d(i,j,k) ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
148 |
MOM_U_IMPLICIT_R |
rTrans(i,j) = 0.5 _d 0 * ( |
|
./pkg/mom_common/mom_u_implicit_r.F |
160 |
MOM_U_IMPLICIT_R |
upwindFac = 1. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
162 |
MOM_U_IMPLICIT_R |
upwindFac = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
166 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_u_implicit_r.F |
191 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_u_implicit_r.F |
222 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
224 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
292 |
MOM_U_IMPLICIT_R |
vf(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
78 |
MOM_U_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
79 |
MOM_U_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_u_implicit_r.F |
80 |
MOM_U_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_u_rviscflux.F |
54 |
MOM_U_RVISCFLUX |
rViscFluxU(i,j) = 0. _d 0 |
|
./model/src/cg2d.F |
112 |
CG2D |
minResidualSq = -1. _d 0 |
|
./model/src/cg2d.F |
113 |
CG2D |
eta_qrNM1 = 1. _d 0 |
|
./model/src/cg2d.F |
116 |
CG2D |
rhsMax = 0. _d 0 |
|
./model/src/cg2d.F |
131 |
CG2D |
rhsNorm = 1. _d 0 |
|
./model/src/cg2d.F |
132 |
CG2D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d.F |
164 |
CG2D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
165 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
222 |
CG2D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
279 |
CG2D |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
316 |
CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
170 |
MOM_V_BOTDRAG_IMPL |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
75 |
MOM_V_BOTDRAG_IMPL |
dragFac = 1. _d 0 |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
95 |
MOM_V_BOTDRAG_IMPL |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_v_bottomdrag.F |
156 |
MOM_V_BOTTOMDRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
71 |
MOM_V_BOTTOMDRAG |
dragFac = 1. _d 0 |
|
./pkg/mom_common/mom_v_bottomdrag.F |
91 |
MOM_V_BOTTOMDRAG |
& * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
121 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 - ( b5d(i,j,k) + d5d(i,j,k) ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
148 |
MOM_V_IMPLICIT_R |
rTrans(i,j) = 0.5 _d 0 * ( |
|
./pkg/mom_common/mom_v_implicit_r.F |
160 |
MOM_V_IMPLICIT_R |
upwindFac = 1. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
162 |
MOM_V_IMPLICIT_R |
upwindFac = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
166 |
MOM_V_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_v_implicit_r.F |
191 |
MOM_V_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTMom*rTrans(i,j) |
|
./pkg/mom_common/mom_v_implicit_r.F |
222 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
224 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
292 |
MOM_V_IMPLICIT_R |
vf(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
78 |
MOM_V_IMPLICIT_R |
b5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
79 |
MOM_V_IMPLICIT_R |
c5d(i,j,k) = 1. _d 0 |
|
./pkg/mom_common/mom_v_implicit_r.F |
80 |
MOM_V_IMPLICIT_R |
d5d(i,j,k) = 0. _d 0 |
|
./pkg/mom_common/mom_v_rviscflux.F |
54 |
MOM_V_RVISCFLUX |
rViscFluxV(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
60 |
MOM_W_CORIOLIS_NH |
& )*0.25 _d 0 |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
64 |
MOM_W_CORIOLIS_NH |
& )*0.25 _d 0 |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
71 |
MOM_W_CORIOLIS_NH |
wCoriolisTerm(i,j) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
105 |
CG2D_EX0 |
rhsMax = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
111 |
CG2D_EX0 |
minResTile(bi,bj) = -1. _d 0 |
|
./model/src/cg2d_ex0.F |
112 |
CG2D_EX0 |
eta_qrNM1(bi,bj) = 1. _d 0 |
|
./model/src/cg2d_ex0.F |
113 |
CG2D_EX0 |
rhsMaxLoc = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
120 |
CG2D_EX0 |
rhsNorm(bi,bj) = 1. _d 0 |
|
./model/src/cg2d_ex0.F |
121 |
CG2D_EX0 |
IF ( rhsMaxLoc .NE. 0. ) rhsNorm(bi,bj) = 1. _d 0 / rhsMaxLoc |
|
./model/src/cg2d_ex0.F |
156 |
CG2D_EX0 |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
157 |
CG2D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
202 |
CG2D_EX0 |
err_sq = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
210 |
CG2D_EX0 |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
245 |
CG2D_EX0 |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
265 |
CG2D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/mom_common/mom_w_metric_nh.F |
64 |
MOM_W_METRIC_NH |
& ) )*0.25 _d 0 |
|
./pkg/mom_common/mom_w_metric_nh.F |
70 |
MOM_W_METRIC_NH |
wMetricTerms(i,j) = 0. _d 0 |
|
./pkg/mom_common/mom_w_sidedrag.F |
74 |
MOM_W_SIDEDRAG |
heightStepW = MAX( 0. _d 0, rThickC(i,j) - rThickC(i-1,j) ) |
|
./pkg/mom_common/mom_w_sidedrag.F |
75 |
MOM_W_SIDEDRAG |
heightStepE = MAX( 0. _d 0, rThickC(i,j) - rThickC(i+1,j) ) |
|
./pkg/mom_common/mom_w_sidedrag.F |
76 |
MOM_W_SIDEDRAG |
heightStepS = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j-1) ) |
|
./pkg/mom_common/mom_w_sidedrag.F |
77 |
MOM_W_SIDEDRAG |
heightStepN = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j+1) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
100 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
104 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
129 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
131 |
MOM_CALC_RTRANS |
& 0.5 _d 0*(dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj)) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
158 |
MOM_CALC_RTRANS |
& + (dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
160 |
MOM_CALC_RTRANS |
& + (dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
78 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
81 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
252 |
MOM_FLUXFORM |
sideMaskFac = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
442 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
469 |
MOM_FLUXFORM |
& - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
490 |
MOM_FLUXFORM |
& + uVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
503 |
MOM_FLUXFORM |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
539 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
675 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
702 |
MOM_FLUXFORM |
& - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf |
|
./pkg/mom_fluxform/mom_fluxform.F |
723 |
MOM_FLUXFORM |
& + vVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
736 |
MOM_FLUXFORM |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
771 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
84 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)*_maskW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
87 |
MOM_U_ADV_WU |
& 0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) ) |
|
./model/src/cg2d_nsa.F |
141 |
CG2D_NSA |
minResidualSq = -1. _d 0 |
|
./model/src/cg2d_nsa.F |
142 |
CG2D_NSA |
eta_qrNM1 = 1. _d 0 |
|
./model/src/cg2d_nsa.F |
143 |
CG2D_NSA |
recip_eta_qrNM1= 1. _d 0 |
|
./model/src/cg2d_nsa.F |
146 |
CG2D_NSA |
rhsMax = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
162 |
CG2D_NSA |
rhsNorm = 1. _d 0 |
|
./model/src/cg2d_nsa.F |
163 |
CG2D_NSA |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d_nsa.F |
188 |
CG2D_NSA |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
189 |
CG2D_NSA |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
258 |
CG2D_NSA |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
284 |
CG2D_NSA |
recip_eta_qrNM1 = 1. _d 0/eta_qrN |
|
./model/src/cg2d_nsa.F |
311 |
CG2D_NSA |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
338 |
CG2D_NSA |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
46 |
MOM_U_CORIOLIS |
PARAMETER( one = 1. _d 0 ) |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
82 |
MOM_U_CORIOLIS |
& *4. _d 0/MAX( one, |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
52 |
MOM_U_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
117 |
MOM_UV_BOUNDARY |
tmpVar = 1. _d 0 / tmpVar |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
141 |
MOM_UV_BOUNDARY |
& )*2. _d 0 |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
155 |
MOM_UV_BOUNDARY |
& )*2. _d 0 |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
85 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
88 |
MOM_V_ADV_WV |
& 0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) ) |
|
./model/src/cg2d_sr.F |
117 |
CG2D_SR |
minResidualSq = -1. _d 0 |
|
./model/src/cg2d_sr.F |
118 |
CG2D_SR |
eta_qrNM1 = 1. _d 0 |
|
./model/src/cg2d_sr.F |
121 |
CG2D_SR |
rhsMax = 0. _d 0 |
|
./model/src/cg2d_sr.F |
136 |
CG2D_SR |
rhsNorm = 1. _d 0 |
|
./model/src/cg2d_sr.F |
137 |
CG2D_SR |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d_sr.F |
169 |
CG2D_SR |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
170 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
220 |
CG2D_SR |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
249 |
CG2D_SR |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
321 |
CG2D_SR |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
322 |
CG2D_SR |
deltaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
323 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg2d_sr.F |
411 |
CG2D_SR |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
46 |
MOM_V_CORIOLIS |
PARAMETER( one = 1. _d 0 ) |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
80 |
MOM_V_CORIOLIS |
& *4. _d 0/MAX( one, |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
52 |
MOM_V_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
209 |
MOM_VECINV |
strain(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
210 |
MOM_VECINV |
strainBC(i,j)= 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
211 |
MOM_VECINV |
tension(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
213 |
MOM_VECINV |
hFacZ(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
229 |
MOM_VECINV |
sideMaskFac = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
652 |
MOM_VECINV |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
653 |
MOM_VECINV |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
37 |
MOM_VI_CORIOLIS |
epsil = 1. _d -9 |
|
./model/src/cg3d.F |
134 |
CG3D |
eta_qrNM1 = 1. _d 0 |
|
./model/src/cg3d.F |
137 |
CG3D |
rhsMax = 0. _d 0 |
|
./model/src/cg3d.F |
152 |
CG3D |
rhsNorm = 1. _d 0 |
|
./model/src/cg3d.F |
153 |
CG3D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg3d.F |
173 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
174 |
CG3D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
204 |
CG3D |
maskM1 = 1. _d 0 |
|
./model/src/cg3d.F |
205 |
CG3D |
maskP1 = 1. _d 0 |
|
./model/src/cg3d.F |
206 |
CG3D |
IF ( k .EQ. 1 ) maskM1 = 0. _d 0 |
|
./model/src/cg3d.F |
207 |
CG3D |
IF ( k .EQ. Nr) maskP1 = 0. _d 0 |
|
./model/src/cg3d.F |
272 |
CG3D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
356 |
CG3D |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d.F |
482 |
CG3D |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
133 |
MOM_VI_U_CORIOLIS |
& )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
175 |
MOM_VI_U_CORIOLIS |
& *0.25 _d 0 *recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
193 |
MOM_VI_U_CORIOLIS |
& * 4. _d 0 * _hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
57 |
MOM_VI_U_CORIOLIS |
epsil = 1. _d -9 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
58 |
MOM_VI_U_CORIOLIS |
tmpFac = 1. _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
60 |
MOM_VI_U_CORIOLIS |
oneThird = 1. _d 0 / 3. _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
100 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i+1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
105 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i-1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
110 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i+1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
115 |
MOM_VI_U_CORIOLIS_C4 |
vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i-1,j) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
133 |
MOM_VI_V_CORIOLIS |
& )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
175 |
MOM_VI_V_CORIOLIS |
& *0.25 _d 0 *recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
193 |
MOM_VI_V_CORIOLIS |
& * 4. _d 0 * _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
57 |
MOM_VI_V_CORIOLIS |
epsil = 1. _d -9 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
58 |
MOM_VI_V_CORIOLIS |
tmpFac = 1. _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
60 |
MOM_VI_V_CORIOLIS |
oneThird = 1. _d 0 / 3. _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
100 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j+1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
105 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j+1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
110 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j-1) )*0.5 _d 0 |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
115 |
MOM_VI_V_CORIOLIS_C4 |
vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j-1) )*0.5 _d 0 |
|
./model/src/cg3d_ex0.F |
126 |
CG3D_EX0 |
rhsMax = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
131 |
CG3D_EX0 |
eta_qrNM1(bi,bj) = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
132 |
CG3D_EX0 |
rhsMaxLoc = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
142 |
CG3D_EX0 |
rhsNorm(bi,bj) = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
143 |
CG3D_EX0 |
IF ( rhsMaxLoc .NE. 0. ) rhsNorm(bi,bj) = 1. _d 0 / rhsMaxLoc |
|
./model/src/cg3d_ex0.F |
166 |
CG3D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
167 |
CG3D_EX0 |
sumRHStile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
197 |
CG3D_EX0 |
maskM1 = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
198 |
CG3D_EX0 |
maskP1 = 1. _d 0 |
|
./model/src/cg3d_ex0.F |
199 |
CG3D_EX0 |
IF ( k .EQ. 1 ) maskM1 = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
200 |
CG3D_EX0 |
IF ( k .EQ. Nr) maskP1 = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
257 |
CG3D_EX0 |
err_sq = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
269 |
CG3D_EX0 |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
340 |
CG3D_EX0 |
alphaTile(bi,bj) = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
457 |
CG3D_EX0 |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_calc_stats_rl.F |
125 |
MON_CALC_STATS_RL |
IF ( theVol.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rl.F |
143 |
MON_CALC_STATS_RL |
IF ( tmpMask.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rl.F |
73 |
MON_CALC_STATS_RL |
IF ( tmpMask.GT.0. _d 0 .AND. noPnts ) THEN |
|
./pkg/monitor/mon_calc_stats_rl.F |
78 |
MON_CALC_STATS_RL |
IF ( tmpMask.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rl.F |
91 |
MON_CALC_STATS_RL |
IF ( ddx.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rl.F |
96 |
MON_CALC_STATS_RL |
IF ( ddy.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rs.F |
125 |
MON_CALC_STATS_RS |
IF ( theVol.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rs.F |
143 |
MON_CALC_STATS_RS |
IF ( tmpMask.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rs.F |
73 |
MON_CALC_STATS_RS |
IF ( tmpMask.GT.0. _d 0 .AND. noPnts ) THEN |
|
./pkg/monitor/mon_calc_stats_rs.F |
78 |
MON_CALC_STATS_RS |
IF ( tmpMask.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rs.F |
91 |
MON_CALC_STATS_RS |
IF ( ddx.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rs.F |
96 |
MON_CALC_STATS_RS |
IF ( ddy.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_init.F |
44 |
MON_INIT |
monSolutionMaxRange = 1. _d +4 |
|
./pkg/monitor/mon_init.F |
45 |
MON_INIT |
IF ( fluidIsWater ) monSolutionMaxRange = 1. _d +3 |
|
./pkg/monitor/mon_ke.F |
137 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
173 |
MON_KE |
abFac1 = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
174 |
MON_KE |
abFac2 = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
181 |
MON_KE |
IF ( myIter.GE.1 ) abFac1 = -( 0.5 _d 0 + abEps ) |
|
./pkg/monitor/mon_ke.F |
186 |
MON_KE |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
216 |
MON_KE |
tileAMu(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
225 |
MON_KE |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
292 |
MON_KE |
& )*0.25 _d 0 |
|
./pkg/monitor/mon_ke.F |
303 |
MON_KE |
tileAMs(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
66 |
MON_KE |
tileVol(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
67 |
MON_KE |
tileMean(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
68 |
MON_KE |
tileVlAv(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_ke.F |
69 |
MON_KE |
tilePEav(bi,bj) = 0. _d 0 |
|
./model/src/check_pickup.F |
94 |
CHECK_PICKUP |
& .AND. implicitNHPress.EQ.1. _d 0 ) THEN |
|
./pkg/monitor/mon_stats_rl.F |
116 |
MON_STATS_RL |
rNumPnts=1. _d 0/tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
87 |
MON_STATS_RS |
rNumPnts=1. _d 0/tmpVal |
|
./pkg/monitor/mon_surfcor.F |
133 |
MON_SURFCOR |
& *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0 |
|
./pkg/monitor/mon_vort3.F |
111 |
MON_VORT3 |
hFacZ(i,j) = 1. + 0.125 _d 0* |
|
./pkg/monitor/mon_vort3.F |
129 |
MON_VORT3 |
& 0.25 _d 0*( _hFacW(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
195 |
MON_VORT3 |
& )/3. _d 0 |
|
./pkg/monitor/mon_vort3.F |
210 |
MON_VORT3 |
& )/3. _d 0 |
|
./pkg/monitor/mon_vort3.F |
225 |
MON_VORT3 |
& )/3. _d 0 |
|
./pkg/monitor/mon_vort3.F |
240 |
MON_VORT3 |
& )/3. _d 0 |
|
./pkg/monitor/mon_vort3.F |
289 |
MON_VORT3 |
IF (hFacZ(i,j).GT.0. _d 0) THEN |
|
./pkg/monitor/mon_vort3.F |
60 |
MON_VORT3 |
theMin = 1. _d 20 |
|
./pkg/monitor/mon_vort3.F |
61 |
MON_VORT3 |
theMax =-1. _d 20 |
|
./pkg/monitor/mon_vort3.F |
62 |
MON_VORT3 |
theArea= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
63 |
MON_VORT3 |
theMean= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
64 |
MON_VORT3 |
theVar = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
65 |
MON_VORT3 |
theVol = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
66 |
MON_VORT3 |
volMean= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
67 |
MON_VORT3 |
volVar = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
68 |
MON_VORT3 |
theSD = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
69 |
MON_VORT3 |
AZcorner = 1. _d 0 |
|
./pkg/monitor/mon_vort3.F |
73 |
MON_VORT3 |
tileArea(bi,bj)= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
74 |
MON_VORT3 |
tileVol(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
75 |
MON_VORT3 |
tileSum(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
76 |
MON_VORT3 |
tileVar(bi,bj) = 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
77 |
MON_VORT3 |
tileVSum(bi,bj)= 0. _d 0 |
|
./pkg/monitor/mon_vort3.F |
78 |
MON_VORT3 |
tileVSq(bi,bj) = 0. _d 0 |
|
./model/src/config_check.F |
654 |
CONFIG_CHECK |
& .AND. implicDiv2DFlow.EQ.0. _d 0 |
|
./pkg/my82/my82_calc.F |
107 |
MY82_CALC |
RiFlux =( btmp - SQRT(btmp*btmp - 4. _d 0 *beta2*beta3*RiTmp) ) |
|
./pkg/my82/my82_calc.F |
108 |
MY82_CALC |
& /(2. _d 0*beta2) |
|
./pkg/my82/my82_calc.F |
110 |
MY82_CALC |
SHtmp = (alpha1-alpha2*RiFlux)/(1. _d 0-RiFlux) |
|
./pkg/my82/my82_calc.F |
114 |
MY82_CALC |
tkesquare = MAX( 0. _d 0, |
|
./pkg/my82/my82_calc.F |
130 |
MY82_CALC |
GH(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
131 |
MY82_CALC |
GM(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
150 |
MY82_CALC |
IF ( GH(I,J) .EQ. 0. _d 0 ) THEN |
|
./pkg/my82/my82_calc.F |
151 |
MY82_CALC |
MYhbl(I,J,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
81 |
MY82_CALC |
GH(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
82 |
MY82_CALC |
GM(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
88 |
MY82_CALC |
SH(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
89 |
MY82_CALC |
SM(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
90 |
MY82_CALC |
tke(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc_visc.F |
43 |
MY82_CALC_VISC |
& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/my82/my82_calc_visc.F |
51 |
MY82_CALC_VISC |
& 0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/my82/my82_init_varia.F |
35 |
MY82_INIT_VARIA |
gam1 = 1. _d 0/3. _d 0 - 2. _d 0 *A1/B1 |
|
./pkg/my82/my82_init_varia.F |
36 |
MY82_INIT_VARIA |
gam2 = (B2+6. _d 0*A1)/B1 |
|
./pkg/my82/my82_init_varia.F |
37 |
MY82_INIT_VARIA |
alpha1 = 3. _d 0 *A2*gam1 |
|
./pkg/my82/my82_init_varia.F |
38 |
MY82_INIT_VARIA |
alpha2 = 3. _d 0 *A2*(gam1+gam2) |
|
./pkg/my82/my82_init_varia.F |
40 |
MY82_INIT_VARIA |
beta2 = A1*(B1*(gam1-C1) + 6. _d 0 *A1 + 3. _d 0 *A2) |
|
./pkg/my82/my82_init_varia.F |
42 |
MY82_INIT_VARIA |
beta4 = A2*(B1*(gam1+gam2) - 3. _d 0 *A1) |
|
./pkg/my82/my82_init_varia.F |
53 |
MY82_INIT_VARIA |
MYhbl (i,j ,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_output.F |
134 |
MY82_OUTPUT |
IF ( MYtaveFreq.GT.0. _d 0 ) THEN |
|
./pkg/my82/my82_readparms.F |
65 |
MY82_READPARMS |
MYviscMax = 1. _d 0 |
|
./pkg/my82/my82_readparms.F |
66 |
MY82_READPARMS |
MYdiffMax = 1. _d 0 |
|
./pkg/my82/my82_readparms.F |
67 |
MY82_READPARMS |
MYhblScale = 0.1 _d 0 |
|
./pkg/my82/my82_readparms.F |
68 |
MY82_READPARMS |
RiMax = 0.1950 _d 0 |
|
./pkg/my82/my82_ri_number.F |
104 |
MY82_RI_NUMBER |
tempu= .5 _d 0*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
107 |
MY82_RI_NUMBER |
tempv= .5 _d 0*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/mypackage/mypackage_init_varia.F |
44 |
MYPACKAGE_INIT_VARIA |
myPa_StatScal1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
45 |
MYPACKAGE_INIT_VARIA |
myPa_StatScal2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
46 |
MYPACKAGE_INIT_VARIA |
myPa_StatVelU (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
47 |
MYPACKAGE_INIT_VARIA |
myPa_StatVelV (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
50 |
MYPACKAGE_INIT_VARIA |
myPa_TendScal1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
51 |
MYPACKAGE_INIT_VARIA |
myPa_TendScal2(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
52 |
MYPACKAGE_INIT_VARIA |
myPa_TendVelU (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
53 |
MYPACKAGE_INIT_VARIA |
myPa_TendVelV (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
63 |
MYPACKAGE_INIT_VARIA |
myPa_Surf1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_init_varia.F |
64 |
MYPACKAGE_INIT_VARIA |
myPa_Surf2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/mypackage/mypackage_readparms.F |
73 |
MYPACKAGE_READPARMS |
myPa_param1 = 0. _d 0 |
|
./pkg/mypackage/mypackage_readparms.F |
74 |
MYPACKAGE_READPARMS |
myPa_param2 = 0. _d 0 |
|
./pkg/mypackage/mypackage_tendency_apply.F |
138 |
MYPACKAGE_TENDENCY_APPLY_V |
& )*0.5 _d 0 |
|
./pkg/mypackage/mypackage_tendency_apply.F |
70 |
MYPACKAGE_TENDENCY_APPLY_U |
& )*0.5 _d 0 |
|
./pkg/obcs/obcs_adjust_uvice.F |
124 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
132 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
170 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
178 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
220 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
228 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
74 |
OBCS_ADJUST_UVICE |
& vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
82 |
OBCS_ADJUST_UVICE |
& uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_r_star.F |
108 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
111 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
125 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
128 |
OBCS_APPLY_R_STAR |
rStarFldW(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
72 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
75 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
89 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_r_star.F |
92 |
OBCS_APPLY_R_STAR |
rStarFldS(i,j,bi,bj) = 1. _d 0 |
|
./pkg/obcs/obcs_apply_seaice.F |
138 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
144 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
150 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
157 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
177 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
183 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
189 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
196 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
216 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
222 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
228 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
235 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
255 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
261 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
267 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_apply_seaice.F |
274 |
OBCS_APPLY_SEAICE |
edge_val = 0.5 _d 0 * |
|
./pkg/obcs/obcs_balance_flow.F |
136 |
OBCS_BALANCE_FLOW |
areaW = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
137 |
OBCS_BALANCE_FLOW |
flowW = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
185 |
OBCS_BALANCE_FLOW |
areaN = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
186 |
OBCS_BALANCE_FLOW |
flowN = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
234 |
OBCS_BALANCE_FLOW |
areaS = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
235 |
OBCS_BALANCE_FLOW |
flowS = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
77 |
OBCS_BALANCE_FLOW |
areaOB = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
78 |
OBCS_BALANCE_FLOW |
inFlow = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
87 |
OBCS_BALANCE_FLOW |
areaE = 0. _d 0 |
|
./pkg/obcs/obcs_balance_flow.F |
88 |
OBCS_BALANCE_FLOW |
flowE = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
135 |
OBCS_CALC_STEVENS |
aFac = 1. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
136 |
OBCS_CALC_STEVENS |
IF (.NOT. useStevensAdvection ) aFac = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
137 |
OBCS_CALC_STEVENS |
pFac = 1. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
138 |
OBCS_CALC_STEVENS |
IF (.NOT. useStevensPhaseVel ) pFac = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
139 |
OBCS_CALC_STEVENS |
gammat = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
140 |
OBCS_CALC_STEVENS |
IF (TrelaxStevens .GT. 0. _d 0) gammat = 1./TrelaxStevens |
|
./pkg/obcs/obcs_calc_stevens.F |
141 |
OBCS_CALC_STEVENS |
gammas = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
142 |
OBCS_CALC_STEVENS |
IF (SrelaxStevens .GT. 0. _d 0) gammas = 1./SrelaxStevens |
|
./pkg/obcs/obcs_calc_stevens.F |
178 |
OBCS_CALC_STEVENS |
drFbar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
179 |
OBCS_CALC_STEVENS |
uMerBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
181 |
OBCS_CALC_STEVENS |
uMerPri(K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
192 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) uMerBar = uMerBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
202 |
OBCS_CALC_STEVENS |
drFbar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
203 |
OBCS_CALC_STEVENS |
uMerBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
209 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) uMerBar = uMerBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
239 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
244 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
245 |
OBCS_CALC_STEVENS |
gFacM (J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
305 |
OBCS_CALC_STEVENS |
drFBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
306 |
OBCS_CALC_STEVENS |
uMerBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
308 |
OBCS_CALC_STEVENS |
uMerPri(K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
319 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) uMerBar = uMerBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
329 |
OBCS_CALC_STEVENS |
drFBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
330 |
OBCS_CALC_STEVENS |
uMerBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
336 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) uMerBar = uMerBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
366 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I+2,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
371 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
372 |
OBCS_CALC_STEVENS |
gFacM (J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
416 |
OBCS_CALC_STEVENS |
drFBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
417 |
OBCS_CALC_STEVENS |
vZonBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
419 |
OBCS_CALC_STEVENS |
vZonPri(K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
430 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) vZonBar = vZonBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
440 |
OBCS_CALC_STEVENS |
drFBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
441 |
OBCS_CALC_STEVENS |
vZonBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
447 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) vZonBar = vZonBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
477 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J-1,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
482 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
483 |
OBCS_CALC_STEVENS |
gFacZ (I,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
528 |
OBCS_CALC_STEVENS |
drFBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
529 |
OBCS_CALC_STEVENS |
vZonBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
531 |
OBCS_CALC_STEVENS |
vZonPri(K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
542 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) vZonBar = vZonBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
552 |
OBCS_CALC_STEVENS |
drFBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
553 |
OBCS_CALC_STEVENS |
vZonBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
559 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) vZonBar = vZonBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
589 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J+2,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
594 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
595 |
OBCS_CALC_STEVENS |
gFacZ (I,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
637 |
OBCS_CALC_STEVENS |
uMerBar=0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
660 |
OBCS_CALC_STEVENS |
print *, 'ml-obcs: OBE = ', uPhase*1 _d -6, ' Sv' |
|
./pkg/obcs/obcs_calc_stevens.F |
661 |
OBCS_CALC_STEVENS |
print *, 'ml-obcs: OBW = ', vPhase*1 _d -6, ' Sv' |
|
./pkg/obcs/obcs_calc_stevens.F |
733 |
OBCS_STEVENS_CALC_TRACER_EAST |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
815 |
OBCS_STEVENS_CALC_TRACER_WEST |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
897 |
OBCS_STEVENS_CALC_TRACER_NORTH |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
978 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
IF ( dTracSpace .NE. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_diag_balance.F |
78 |
OBCS_DIAG_BALANCE |
areaOB(n)= 0. _d 0 |
|
./pkg/obcs/obcs_diag_balance.F |
79 |
OBCS_DIAG_BALANCE |
inFlow(n)= 0. _d 0 |
|
./pkg/obcs/obcs_exf_load.F |
287 |
OBCS_EXF_READ_XZ |
IF ( useCAL .AND. obcsPeriod .EQ. -12. _d 0 ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
296 |
OBCS_EXF_READ_XZ |
ELSEIF ( obcsPeriod .LT. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
367 |
OBCS_EXF_READ_XZ |
IF ( useCAL .AND. siobPeriod .EQ. -12. _d 0 ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
376 |
OBCS_EXF_READ_XZ |
ELSEIF ( siobPeriod .LT. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
562 |
OBCS_EXF_READ_YZ |
IF ( useCAL .AND. obcsPeriod .EQ. -12. _d 0 ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
571 |
OBCS_EXF_READ_YZ |
ELSEIF ( obcsPeriod .LT. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
642 |
OBCS_EXF_READ_YZ |
IF ( useCAL .AND. siobPeriod .EQ. -12. _d 0 ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
651 |
OBCS_EXF_READ_YZ |
ELSEIF ( siobPeriod .LT. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
346 |
OBCS_FIELDS_LOAD |
aWght = 0. _d 0 |
|
./pkg/obcs/obcs_fields_load.F |
347 |
OBCS_FIELDS_LOAD |
bWght = 1. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
100 |
OBCS_INIT_VARIABLES |
OBSv1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
101 |
OBCS_INIT_VARIABLES |
OBSt1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
102 |
OBCS_INIT_VARIABLES |
OBSs1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
105 |
OBCS_INIT_VARIABLES |
OBSvStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
106 |
OBCS_INIT_VARIABLES |
OBStStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
107 |
OBCS_INIT_VARIABLES |
OBSsStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
114 |
OBCS_INIT_VARIABLES |
OBEu(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
115 |
OBCS_INIT_VARIABLES |
OBEv(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
116 |
OBCS_INIT_VARIABLES |
OBEt(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
117 |
OBCS_INIT_VARIABLES |
OBEs(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
119 |
OBCS_INIT_VARIABLES |
OBEu0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
120 |
OBCS_INIT_VARIABLES |
OBEv0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
121 |
OBCS_INIT_VARIABLES |
OBEt0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
122 |
OBCS_INIT_VARIABLES |
OBEs0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
123 |
OBCS_INIT_VARIABLES |
OBEu1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
124 |
OBCS_INIT_VARIABLES |
OBEv1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
125 |
OBCS_INIT_VARIABLES |
OBEt1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
126 |
OBCS_INIT_VARIABLES |
OBEs1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
129 |
OBCS_INIT_VARIABLES |
OBEuStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
130 |
OBCS_INIT_VARIABLES |
OBEtStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
131 |
OBCS_INIT_VARIABLES |
OBEsStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
136 |
OBCS_INIT_VARIABLES |
OBWu(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
137 |
OBCS_INIT_VARIABLES |
OBWv(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
138 |
OBCS_INIT_VARIABLES |
OBWt(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
139 |
OBCS_INIT_VARIABLES |
OBWs(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
141 |
OBCS_INIT_VARIABLES |
OBWu0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
142 |
OBCS_INIT_VARIABLES |
OBWv0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
143 |
OBCS_INIT_VARIABLES |
OBWt0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
144 |
OBCS_INIT_VARIABLES |
OBWs0(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
145 |
OBCS_INIT_VARIABLES |
OBWu1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
146 |
OBCS_INIT_VARIABLES |
OBWv1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
147 |
OBCS_INIT_VARIABLES |
OBWt1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
148 |
OBCS_INIT_VARIABLES |
OBWs1(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
151 |
OBCS_INIT_VARIABLES |
OBWuStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
152 |
OBCS_INIT_VARIABLES |
OBWtStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
153 |
OBCS_INIT_VARIABLES |
OBWsStevens(j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
162 |
OBCS_INIT_VARIABLES |
OBNw (i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
163 |
OBCS_INIT_VARIABLES |
OBSw (i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
165 |
OBCS_INIT_VARIABLES |
OBNw0(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
166 |
OBCS_INIT_VARIABLES |
OBSw0(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
167 |
OBCS_INIT_VARIABLES |
OBNw1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
168 |
OBCS_INIT_VARIABLES |
OBSw1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
172 |
OBCS_INIT_VARIABLES |
OBEw (j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
173 |
OBCS_INIT_VARIABLES |
OBWw (j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
175 |
OBCS_INIT_VARIABLES |
OBEw0(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
176 |
OBCS_INIT_VARIABLES |
OBWw0(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
177 |
OBCS_INIT_VARIABLES |
OBEw1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
178 |
OBCS_INIT_VARIABLES |
OBWw1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
186 |
OBCS_INIT_VARIABLES |
OBNeta (i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
187 |
OBCS_INIT_VARIABLES |
OBSeta (i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
189 |
OBCS_INIT_VARIABLES |
OBNeta0(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
190 |
OBCS_INIT_VARIABLES |
OBSeta0(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
191 |
OBCS_INIT_VARIABLES |
OBNeta1(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
192 |
OBCS_INIT_VARIABLES |
OBSeta1(i,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
196 |
OBCS_INIT_VARIABLES |
OBEeta (j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
197 |
OBCS_INIT_VARIABLES |
OBWeta (j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
199 |
OBCS_INIT_VARIABLES |
OBEeta0(j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
200 |
OBCS_INIT_VARIABLES |
OBWeta0(j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
201 |
OBCS_INIT_VARIABLES |
OBEeta1(j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
202 |
OBCS_INIT_VARIABLES |
OBWeta1(j,bi,bj) = 0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
212 |
OBCS_INIT_VARIABLES |
OBNa (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
213 |
OBCS_INIT_VARIABLES |
OBNh (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
214 |
OBCS_INIT_VARIABLES |
OBNa0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
215 |
OBCS_INIT_VARIABLES |
OBNh0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
216 |
OBCS_INIT_VARIABLES |
OBNa1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
217 |
OBCS_INIT_VARIABLES |
OBNh1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
218 |
OBCS_INIT_VARIABLES |
OBNsl (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
219 |
OBCS_INIT_VARIABLES |
OBNsn (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
220 |
OBCS_INIT_VARIABLES |
OBNsl0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
221 |
OBCS_INIT_VARIABLES |
OBNsn0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
222 |
OBCS_INIT_VARIABLES |
OBNsl1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
223 |
OBCS_INIT_VARIABLES |
OBNsn1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
224 |
OBCS_INIT_VARIABLES |
OBNuice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
225 |
OBCS_INIT_VARIABLES |
OBNvice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
226 |
OBCS_INIT_VARIABLES |
OBNuice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
227 |
OBCS_INIT_VARIABLES |
OBNvice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
228 |
OBCS_INIT_VARIABLES |
OBNuice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
229 |
OBCS_INIT_VARIABLES |
OBNvice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
232 |
OBCS_INIT_VARIABLES |
OBSa (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
233 |
OBCS_INIT_VARIABLES |
OBSh (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
234 |
OBCS_INIT_VARIABLES |
OBSa0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
235 |
OBCS_INIT_VARIABLES |
OBSh0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
236 |
OBCS_INIT_VARIABLES |
OBSa1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
237 |
OBCS_INIT_VARIABLES |
OBSh1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
238 |
OBCS_INIT_VARIABLES |
OBSsl (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
239 |
OBCS_INIT_VARIABLES |
OBSsn (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
240 |
OBCS_INIT_VARIABLES |
OBSsl0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
241 |
OBCS_INIT_VARIABLES |
OBSsn0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
242 |
OBCS_INIT_VARIABLES |
OBSsl1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
243 |
OBCS_INIT_VARIABLES |
OBSsn1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
244 |
OBCS_INIT_VARIABLES |
OBSuice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
245 |
OBCS_INIT_VARIABLES |
OBSvice (i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
246 |
OBCS_INIT_VARIABLES |
OBSuice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
247 |
OBCS_INIT_VARIABLES |
OBSvice0(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
248 |
OBCS_INIT_VARIABLES |
OBSuice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
249 |
OBCS_INIT_VARIABLES |
OBSvice1(i,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
254 |
OBCS_INIT_VARIABLES |
OBEa (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
255 |
OBCS_INIT_VARIABLES |
OBEh (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
256 |
OBCS_INIT_VARIABLES |
OBEa0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
257 |
OBCS_INIT_VARIABLES |
OBEh0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
258 |
OBCS_INIT_VARIABLES |
OBEa1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
259 |
OBCS_INIT_VARIABLES |
OBEh1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
260 |
OBCS_INIT_VARIABLES |
OBEsl (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
261 |
OBCS_INIT_VARIABLES |
OBEsn (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
262 |
OBCS_INIT_VARIABLES |
OBEsl0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
263 |
OBCS_INIT_VARIABLES |
OBEsn0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
264 |
OBCS_INIT_VARIABLES |
OBEsl1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
265 |
OBCS_INIT_VARIABLES |
OBEsn1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
266 |
OBCS_INIT_VARIABLES |
OBEuice (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
267 |
OBCS_INIT_VARIABLES |
OBEvice (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
268 |
OBCS_INIT_VARIABLES |
OBEuice0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
269 |
OBCS_INIT_VARIABLES |
OBEvice0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
270 |
OBCS_INIT_VARIABLES |
OBEuice1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
271 |
OBCS_INIT_VARIABLES |
OBEvice1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
274 |
OBCS_INIT_VARIABLES |
OBWa (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
275 |
OBCS_INIT_VARIABLES |
OBWh (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
276 |
OBCS_INIT_VARIABLES |
OBWa0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
277 |
OBCS_INIT_VARIABLES |
OBWh0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
278 |
OBCS_INIT_VARIABLES |
OBWa1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
279 |
OBCS_INIT_VARIABLES |
OBWh1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
280 |
OBCS_INIT_VARIABLES |
OBWsl (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
281 |
OBCS_INIT_VARIABLES |
OBWsn (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
282 |
OBCS_INIT_VARIABLES |
OBWsl0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
283 |
OBCS_INIT_VARIABLES |
OBWsn0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
284 |
OBCS_INIT_VARIABLES |
OBWsl1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
285 |
OBCS_INIT_VARIABLES |
OBWsn1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
286 |
OBCS_INIT_VARIABLES |
OBWuice (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
287 |
OBCS_INIT_VARIABLES |
OBWvice (j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
288 |
OBCS_INIT_VARIABLES |
OBWuice0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
289 |
OBCS_INIT_VARIABLES |
OBWvice0(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
290 |
OBCS_INIT_VARIABLES |
OBWuice1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
291 |
OBCS_INIT_VARIABLES |
OBWvice1(j,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
304 |
OBCS_INIT_VARIABLES |
OBNptr (i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
306 |
OBCS_INIT_VARIABLES |
OBNptr0(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
307 |
OBCS_INIT_VARIABLES |
OBNptr1(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
312 |
OBCS_INIT_VARIABLES |
OBSptr (i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
314 |
OBCS_INIT_VARIABLES |
OBSptr0(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
315 |
OBCS_INIT_VARIABLES |
OBSptr1(i,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
322 |
OBCS_INIT_VARIABLES |
OBEptr (j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
324 |
OBCS_INIT_VARIABLES |
OBEptr0(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
325 |
OBCS_INIT_VARIABLES |
OBEptr1(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
330 |
OBCS_INIT_VARIABLES |
OBWptr (j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
332 |
OBCS_INIT_VARIABLES |
OBWptr0(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
333 |
OBCS_INIT_VARIABLES |
OBWptr1(j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
365 |
OBCS_INIT_VARIABLES |
OBNam (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
366 |
OBCS_INIT_VARIABLES |
OBNph (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
369 |
OBCS_INIT_VARIABLES |
OBSam (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
370 |
OBCS_INIT_VARIABLES |
OBSph (i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
375 |
OBCS_INIT_VARIABLES |
OBEam (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
376 |
OBCS_INIT_VARIABLES |
OBEph (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
379 |
OBCS_INIT_VARIABLES |
OBWam (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
380 |
OBCS_INIT_VARIABLES |
OBWph (j,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
68 |
OBCS_INIT_VARIABLES |
OBNu(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
69 |
OBCS_INIT_VARIABLES |
OBNv(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
70 |
OBCS_INIT_VARIABLES |
OBNt(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
71 |
OBCS_INIT_VARIABLES |
OBNs(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
73 |
OBCS_INIT_VARIABLES |
OBNu0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
74 |
OBCS_INIT_VARIABLES |
OBNv0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
75 |
OBCS_INIT_VARIABLES |
OBNt0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
76 |
OBCS_INIT_VARIABLES |
OBNs0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
77 |
OBCS_INIT_VARIABLES |
OBNu1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
78 |
OBCS_INIT_VARIABLES |
OBNv1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
79 |
OBCS_INIT_VARIABLES |
OBNt1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
80 |
OBCS_INIT_VARIABLES |
OBNs1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
83 |
OBCS_INIT_VARIABLES |
OBNvStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
84 |
OBCS_INIT_VARIABLES |
OBNtStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
85 |
OBCS_INIT_VARIABLES |
OBNsStevens(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
90 |
OBCS_INIT_VARIABLES |
OBSu(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
91 |
OBCS_INIT_VARIABLES |
OBSv(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
92 |
OBCS_INIT_VARIABLES |
OBSt(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
93 |
OBCS_INIT_VARIABLES |
OBSs(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
95 |
OBCS_INIT_VARIABLES |
OBSu0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
96 |
OBCS_INIT_VARIABLES |
OBSv0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
97 |
OBCS_INIT_VARIABLES |
OBSt0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
98 |
OBCS_INIT_VARIABLES |
OBSs0(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_init_variables.F |
99 |
OBCS_INIT_VARIABLES |
OBSu1(i,k,bi,bj)=0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
121 |
OBCS_MON_STATS_EW_RL |
IF ( tmpMask.GT.0. _d 0 ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
165 |
OBCS_MON_STATS_EW_RL |
arrStats(k,2) = 0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
193 |
OBCS_MON_STATS_EW_RL |
IF ( tmpMask.GT.0. _d 0 ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
325 |
OBCS_MON_STATS_NS_RL |
arrStats(k,1) = 0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
353 |
OBCS_MON_STATS_NS_RL |
IF ( tmpMask.GT.0. _d 0 ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
397 |
OBCS_MON_STATS_NS_RL |
arrStats(k,2) = 0. _d 0 |
|
./pkg/obcs/obcs_mon_stats.F |
425 |
OBCS_MON_STATS_NS_RL |
IF ( tmpMask.GT.0. _d 0 ) THEN |
|
./pkg/obcs/obcs_mon_stats.F |
93 |
OBCS_MON_STATS_EW_RL |
arrStats(k,1) = 0. _d 0 |
|
./pkg/obcs/obcs_monitor.F |
254 |
OBCS_MON_WRITESTATS |
IF ( arrStats(0,j).GT.0. _d 0 ) THEN |
|
./pkg/obcs/obcs_monitor.F |
258 |
OBCS_MON_WRITESTATS |
IF ( theSD.GT.0. _d 0 ) theSD = SQRT(theSD) |
|
./pkg/obcs/obcs_monitor.F |
272 |
OBCS_MON_WRITESTATS |
IF ( arrStats(0,j).GT.0. _d 0 ) THEN |
|
./pkg/obcs/obcs_monitor.F |
276 |
OBCS_MON_WRITESTATS |
IF ( theSD.GT.0. _d 0 ) theSD = SQRT(theSD) |
|
./pkg/obcs/obcs_monitor.F |
290 |
OBCS_MON_WRITESTATS |
IF ( arrStats(0,j).GT.0. _d 0 ) THEN |
|
./pkg/obcs/obcs_monitor.F |
294 |
OBCS_MON_WRITESTATS |
IF ( theSD.GT.0. _d 0 ) theSD = SQRT(theSD) |
|
./pkg/obcs/obcs_monitor.F |
308 |
OBCS_MON_WRITESTATS |
IF ( arrStats(0,j).GT.0. _d 0 ) THEN |
|
./pkg/obcs/obcs_monitor.F |
312 |
OBCS_MON_WRITESTATS |
IF ( theSD.GT.0. _d 0 ) theSD = SQRT(theSD) |
|
./pkg/obcs/obcs_readparms.F |
273 |
OBCS_READPARMS |
OBCS_balanceFacN = 1. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
274 |
OBCS_READPARMS |
OBCS_balanceFacS = 1. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
275 |
OBCS_READPARMS |
OBCS_balanceFacE = 1. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
276 |
OBCS_READPARMS |
OBCS_balanceFacW = 1. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
281 |
OBCS_READPARMS |
OBCS_uvApplyFac = 1. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
353 |
OBCS_READPARMS |
tidalPeriod(i) = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
386 |
OBCS_READPARMS |
CMAX = 0.45 _d 0 /* maximum allowable phase speed-CFL for AB-II */ |
|
./pkg/obcs/obcs_readparms.F |
387 |
OBCS_READPARMS |
cvelTimeScale = 2000.0 _d 0 /* Averaging period for phase speed (s) */ |
|
./pkg/obcs/obcs_readparms.F |
388 |
OBCS_READPARMS |
CFIX = 0.8 _d 0 /* Fixed boundary phase speed in m/s */ |
|
./pkg/obcs/obcs_readparms.F |
402 |
OBCS_READPARMS |
Urelaxobcsinner = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
403 |
OBCS_READPARMS |
Urelaxobcsbound = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
404 |
OBCS_READPARMS |
Vrelaxobcsinner = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
405 |
OBCS_READPARMS |
Vrelaxobcsbound = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
416 |
OBCS_READPARMS |
TrelaxStevens = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
417 |
OBCS_READPARMS |
SrelaxStevens = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
426 |
OBCS_READPARMS |
Arelaxobcsinner = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
427 |
OBCS_READPARMS |
Arelaxobcsbound = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
428 |
OBCS_READPARMS |
Hrelaxobcsinner = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
429 |
OBCS_READPARMS |
Hrelaxobcsbound = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
430 |
OBCS_READPARMS |
SLrelaxobcsinner = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
431 |
OBCS_READPARMS |
SLrelaxobcsbound = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
432 |
OBCS_READPARMS |
SNrelaxobcsinner = 0. _d 0 |
|
./pkg/obcs/obcs_readparms.F |
433 |
OBCS_READPARMS |
SNrelaxobcsbound = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
122 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
149 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
225 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
252 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
279 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
306 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
382 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
409 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
436 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
463 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
539 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
566 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
593 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
620 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
68 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
95 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
116 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
118 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
151 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
153 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
186 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
188 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
275 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
277 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
310 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
312 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
345 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
347 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
380 |
OBCS_SPONGE_V |
lambda_obcs_v = 1. _d 0 / lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
382 |
OBCS_SPONGE_V |
lambda_obcs_v = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
491 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
493 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
531 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
533 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
571 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
573 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
611 |
OBCS_SPONGE_T |
lambda_obcs_t = 1. _d 0 / lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
613 |
OBCS_SPONGE_T |
lambda_obcs_t = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
723 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
725 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
763 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
765 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
803 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
805 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
81 |
OBCS_SPONGE_U |
lambda_obcs_u = 1. _d 0 / lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
83 |
OBCS_SPONGE_U |
lambda_obcs_u = 0. _d 0 |
|
./pkg/obcs/obcs_sponge.F |
843 |
OBCS_SPONGE_S |
lambda_obcs_s = 1. _d 0 / lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
845 |
OBCS_SPONGE_S |
lambda_obcs_s = 0. _d 0 |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
104 |
OBCS_U1_ADV_TRACER |
IF ( tmpVar.GT. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
106 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
107 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
118 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i-1,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
119 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
134 |
OBCS_U1_ADV_TRACER |
IF ( tmpVar.GT. 0. _d 0 ) THEN |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
136 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
137 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
148 |
OBCS_U1_ADV_TRACER |
vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1) |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
149 |
OBCS_U1_ADV_TRACER |
& + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j) |
|
./pkg/obcs/orlanski_east.F |
96 |
ORLANSKI_EAST |
ab1 = 1.5 _d 0 + abEps /* Adams-Bashforth coefficients */ |
|
./pkg/obcs/orlanski_east.F |
97 |
ORLANSKI_EAST |
ab2 = -0.5 _d 0 - abEps |
|
./pkg/obcs/orlanski_north.F |
87 |
ORLANSKI_NORTH |
ab1 = 1.5 _d 0 + abEps /* Adams-Bashforth coefficients */ |
|
./pkg/obcs/orlanski_north.F |
88 |
ORLANSKI_NORTH |
ab2 = -0.5 _d 0 - abEps |
|
./pkg/obcs/orlanski_south.F |
87 |
ORLANSKI_SOUTH |
ab1 = 1.5 _d 0 + abEps /* Adams-Bashforth coefficients */ |
|
./pkg/obcs/orlanski_south.F |
88 |
ORLANSKI_SOUTH |
ab2 = -0.5 _d 0 - abEps |
|
./pkg/obcs/orlanski_west.F |
98 |
ORLANSKI_WEST |
ab1 = 1.5 _d 0 + abEps /* Adams-Bashforth coefficients */ |
|
./pkg/obcs/orlanski_west.F |
99 |
ORLANSKI_WEST |
ab2 = -0.5 _d 0 - abEps |
|
./pkg/ocn_compon_interf/cpl_diagnostics_fill.F |
94 |
CPL_DIAGNOSTICS_FILL |
tmpFac = 1. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
62 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = -1. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
67 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = -1. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
72 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = -1. _d 0 |
|
./model/src/diags_oceanic_surf_flux.F |
77 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = -1. _d 0 |
|
./model/src/diags_phi_hyd.F |
103 |
DIAGS_PHI_HYD |
& + MAX( dPhiRef, 0. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
104 |
DIAGS_PHI_HYD |
& *( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
115 |
DIAGS_PHI_HYD |
& + MAX( dPhiRef, 0. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
116 |
DIAGS_PHI_HYD |
& *( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_hyd.F |
88 |
DIAGS_PHI_HYD |
& + MAX( dPhiRef, 0. _d 0 )*( facP - 1. _d 0 ) |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
75 |
OCN_CHECK_CPLCONFIG |
atm_waterOnly = 0. _d 0 |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
76 |
OCN_CHECK_CPLCONFIG |
atm_landOnly = 1. _d 0 |
|
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
77 |
OCN_CHECK_CPLCONFIG |
depth_noWater = 0. _d 0 |
|
./pkg/ocn_compon_interf/ocn_export_data.F |
75 |
OCN_EXPORT_DATA |
IF ( cpl_taveFreq.GT.0. _d 0 ) THEN |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
105 |
OCN_STORE_MY_DATA |
& )*0.5 _d 0 |
|
./model/src/diags_phi_rlow.F |
150 |
DIAGS_PHI_RLOW |
& + MAX( dPhiRef, zeroRL )*( facP - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
163 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
176 |
DIAGS_PHI_RLOW |
& + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 ) |
|
./model/src/diags_phi_rlow.F |
78 |
DIAGS_PHI_RLOW |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
32 |
OFFLINE_INIT_VARIA |
offline_Wght(1,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
33 |
OFFLINE_INIT_VARIA |
offline_Wght(2,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
37 |
OFFLINE_INIT_VARIA |
uvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
38 |
OFFLINE_INIT_VARIA |
uvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
39 |
OFFLINE_INIT_VARIA |
vvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
40 |
OFFLINE_INIT_VARIA |
vvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
41 |
OFFLINE_INIT_VARIA |
wvel0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
42 |
OFFLINE_INIT_VARIA |
wvel1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
43 |
OFFLINE_INIT_VARIA |
tave0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
44 |
OFFLINE_INIT_VARIA |
tave1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
45 |
OFFLINE_INIT_VARIA |
save0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
46 |
OFFLINE_INIT_VARIA |
save1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
47 |
OFFLINE_INIT_VARIA |
gmkx0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
48 |
OFFLINE_INIT_VARIA |
gmkx1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
49 |
OFFLINE_INIT_VARIA |
gmky0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
50 |
OFFLINE_INIT_VARIA |
gmky1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
51 |
OFFLINE_INIT_VARIA |
gmkz0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
52 |
OFFLINE_INIT_VARIA |
gmkz1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
53 |
OFFLINE_INIT_VARIA |
conv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
54 |
OFFLINE_INIT_VARIA |
conv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
55 |
OFFLINE_INIT_VARIA |
kdfs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
56 |
OFFLINE_INIT_VARIA |
kdfs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
57 |
OFFLINE_INIT_VARIA |
kght0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
58 |
OFFLINE_INIT_VARIA |
kght1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
66 |
OFFLINE_INIT_VARIA |
sflx0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/offline/offline_init_varia.F |
67 |
OFFLINE_INIT_VARIA |
sflx1(i,j,bi,bj) = 0. _d 0 |
|
./model/src/diags_rho.F |
159 |
DIAGS_RHO_G |
tmpFac = 1. _d 0 |
|
./model/src/diags_rho.F |
171 |
DIAGS_RHO_G |
& *0.5 _d 0 |
|
./model/src/diags_rho.F |
188 |
DIAGS_RHO_G |
& *0.5 _d 0 |
|
./model/src/diags_rho.F |
212 |
DIAGS_RHO_G |
& *0.5 _d 0 |
|
./pkg/openad/seawater.F |
160 |
SW_ADTG |
sref = 35. _d 0 |
|
./pkg/openad/seawater.F |
161 |
SW_ADTG |
a0 = 3.5803 _d -5 |
|
./pkg/openad/seawater.F |
162 |
SW_ADTG |
a1 = +8.5258 _d -6 |
|
./pkg/openad/seawater.F |
163 |
SW_ADTG |
a2 = -6.836 _d -8 |
|
./pkg/openad/seawater.F |
164 |
SW_ADTG |
a3 = 6.6228 _d -10 |
|
./pkg/openad/seawater.F |
166 |
SW_ADTG |
b0 = +1.8932 _d -6 |
|
./pkg/openad/seawater.F |
167 |
SW_ADTG |
b1 = -4.2393 _d -8 |
|
./pkg/openad/seawater.F |
169 |
SW_ADTG |
c0 = +1.8741 _d -8 |
|
./pkg/openad/seawater.F |
170 |
SW_ADTG |
c1 = -6.7795 _d -10 |
|
./pkg/openad/seawater.F |
171 |
SW_ADTG |
c2 = +8.733 _d -12 |
|
./pkg/openad/seawater.F |
172 |
SW_ADTG |
c3 = -5.4481 _d -14 |
|
./pkg/openad/seawater.F |
174 |
SW_ADTG |
d0 = -1.1351 _d -10 |
|
./pkg/openad/seawater.F |
175 |
SW_ADTG |
d1 = 2.7759 _d -12 |
|
./pkg/openad/seawater.F |
177 |
SW_ADTG |
e0 = -4.6206 _d -13 |
|
./pkg/openad/seawater.F |
178 |
SW_ADTG |
e1 = +1.8676 _d -14 |
|
./pkg/openad/seawater.F |
179 |
SW_ADTG |
e2 = -2.1687 _d -16 |
|
./pkg/openad/seawater.F |
51 |
SW_PTMP |
PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./pkg/opps/opps_calc.F |
328 |
OPPS_CALC |
IF ( Wd(K2) .NE. 0. _d 0 ) dt = min(dt,drF(k2)/Wd(k2)) |
|
./pkg/opps/opps_calc.F |
421 |
OPPS_CALC |
& OPPSconvectCount(I,J,K,bi,bj) + 1. _d 0 |
|
./pkg/opps/opps_init.F |
42 |
OPPS_INIT |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_interface.F |
84 |
OPPS_INTERFACE |
tMax = -1. _d 23 |
|
./pkg/opps/opps_interface.F |
85 |
OPPS_INTERFACE |
tMin = 1. _d 23 |
|
./pkg/opps/opps_interface.F |
86 |
OPPS_INTERFACE |
sMax = -1. _d 23 |
|
./pkg/opps/opps_interface.F |
87 |
OPPS_INTERFACE |
sMin = 1. _d 23 |
|
./pkg/opps/opps_interface.F |
88 |
OPPS_INTERFACE |
tMaxNew = -1. _d 23 |
|
./pkg/opps/opps_interface.F |
89 |
OPPS_INTERFACE |
tMinNew = 1. _d 23 |
|
./pkg/opps/opps_interface.F |
90 |
OPPS_INTERFACE |
sMaxNew = -1. _d 23 |
|
./pkg/opps/opps_interface.F |
91 |
OPPS_INTERFACE |
sMinNew = 1. _d 23 |
|
./pkg/opps/opps_interface.F |
92 |
OPPS_INTERFACE |
tMinNew = 1. _d 23 |
|
./pkg/opps/opps_interface.F |
97 |
OPPS_INTERFACE |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_output.F |
98 |
OPPS_OUTPUT |
IF ( OPPStaveFreq.GT.0. _d 0 ) THEN |
|
./pkg/opps/opps_readparms.F |
72 |
OPPS_READPARMS |
PlumeRadius = 100. _d 0 |
|
./pkg/opps/opps_readparms.F |
73 |
OPPS_READPARMS |
STABILITY_THRESHOLD = -1. _d -4 |
|
./pkg/opps/opps_readparms.F |
74 |
OPPS_READPARMS |
FRACTIONAL_AREA = .1 _d 0 |
|
./pkg/opps/opps_readparms.F |
75 |
OPPS_READPARMS |
MAX_FRACTIONAL_AREA = .8 _d 0 |
|
./pkg/opps/opps_readparms.F |
76 |
OPPS_READPARMS |
VERTICAL_VELOCITY = .03 _d 0 |
|
./pkg/opps/opps_readparms.F |
77 |
OPPS_READPARMS |
ENTRAINMENT_RATE = -.05 _d 0 |
|
./model/src/do_oceanic_phys.F |
1064 |
DO_OCEANIC_PHYS |
IF ( taveFreq.GT. 0. _d 0 ) THEN |
|
./model/src/do_oceanic_phys.F |
292 |
DO_OCEANIC_PHYS |
saltPlumeDepth(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
293 |
DO_OCEANIC_PHYS |
saltPlumeFlux(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
306 |
DO_OCEANIC_PHYS |
sigmaRfield(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
643 |
DO_OCEANIC_PHYS |
sigmaX(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
644 |
DO_OCEANIC_PHYS |
sigmaY(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
645 |
DO_OCEANIC_PHYS |
sigmaR(i,j,k) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
653 |
DO_OCEANIC_PHYS |
rhoKm1 (i,j) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
654 |
DO_OCEANIC_PHYS |
rhoKp1 (i,j) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
664 |
DO_OCEANIC_PHYS |
GGL90viscArU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
665 |
DO_OCEANIC_PHYS |
GGL90viscArV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
666 |
DO_OCEANIC_PHYS |
GGL90diffKr(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
670 |
DO_OCEANIC_PHYS |
SPforcingS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
671 |
DO_OCEANIC_PHYS |
SPforcingT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
695 |
DO_OCEANIC_PHYS |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
696 |
DO_OCEANIC_PHYS |
Kwy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
697 |
DO_OCEANIC_PHYS |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
699 |
DO_OCEANIC_PHYS |
Kux(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
700 |
DO_OCEANIC_PHYS |
Kvy(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
703 |
DO_OCEANIC_PHYS |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
704 |
DO_OCEANIC_PHYS |
Kvz(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
707 |
DO_OCEANIC_PHYS |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
708 |
DO_OCEANIC_PHYS |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
711 |
DO_OCEANIC_PHYS |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
725 |
DO_OCEANIC_PHYS |
KPPdiffKzS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
726 |
DO_OCEANIC_PHYS |
KPPdiffKzT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/pp81/pp81_output.F |
102 |
PP81_OUTPUT |
IF ( PPtaveFreq.GT.0. _d 0 ) THEN |
|
./pkg/pp81/pp81_readparms.F |
125 |
PP81_READPARMS |
& ((PPnu0+viscArNr(1))/PPviscMax)**(1. _d 0/RiLimit) |
|
./pkg/pp81/pp81_readparms.F |
126 |
PP81_READPARMS |
& -1. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
69 |
PP81_READPARMS |
PPviscMin = 0. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
70 |
PP81_READPARMS |
PPdiffMin = 0. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
71 |
PP81_READPARMS |
PPviscMax = 1. _d 0 |
|
./pkg/pp81/pp81_readparms.F |
72 |
PP81_READPARMS |
PPnu0 = 1. _d -02 |
|
./pkg/pp81/pp81_readparms.F |
73 |
PP81_READPARMS |
PPalpha = 5. _d 0 |
|
./pkg/profiles/active_file_control_profiles.F |
154 |
ACTIVE_READ_PROFILE_RL |
active_var(i) = 0. _d 0 |
|
./pkg/profiles/active_file_control_profiles.F |
188 |
ACTIVE_READ_PROFILE_RL |
active_var(i) = 0. _d 0 |
|
./pkg/profiles/active_file_control_profiles.F |
380 |
ACTIVE_WRITE_PROFILE_RL |
active_data_t(i) = 0. _d 0 |
|
./pkg/profiles/active_file_control_profiles.F |
409 |
ACTIVE_WRITE_PROFILE_RL |
active_data_t(i) = 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
111 |
COST_PROFILES |
& = 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
113 |
COST_PROFILES |
& = 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
115 |
COST_PROFILES |
& = 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
117 |
COST_PROFILES |
& = 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
123 |
COST_PROFILES |
recip_profiles_mean_indsamples(num_var) = 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
124 |
COST_PROFILES |
IF(profiles_mean_indsamples(num_var).GT. 0. _d 0) THEN |
|
./pkg/profiles/cost_profiles.F |
125 |
COST_PROFILES |
recip_profiles_mean_indsamples(num_var) = 1. _d 0 / |
|
./pkg/profiles/cost_profiles.F |
161 |
COST_PROFILES |
& prof_depth_comb(k2,bi,bj).GE.0. _d 0.AND. |
|
./pkg/profiles/cost_profiles.F |
188 |
COST_PROFILES |
if(ix9 .GE. 0. _d 0 .AND. iy9 .GE. 0. _d 0) then |
|
./pkg/profiles/cost_profiles.F |
208 |
COST_PROFILES |
if (prof_weights1D(K).GT.0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
209 |
COST_PROFILES |
& .AND. prof_mask1D_cur(K,bi,bj).NE. 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
227 |
COST_PROFILES |
& + 1. _d 0 /prof_weights1D(k) |
|
./pkg/profiles/cost_profiles.F |
233 |
COST_PROFILES |
& + 1. _d 0 |
|
./pkg/profiles/cost_profiles.F |
297 |
COST_PROFILES |
tmp_recip_count = 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
299 |
COST_PROFILES |
tmp_recip_count = 1. _d 0 / |
|
./pkg/profiles/cost_profiles.F |
328 |
COST_PROFILES |
if(prof_weights1D_all_mean(iavgbin,ikzz,num_var).NE.0. _d 0) |
|
./pkg/profiles/cost_profiles.F |
330 |
COST_PROFILES |
& 1. _d 0 /prof_weights1D_all_mean(iavgbin,ikzz,num_var) |
|
./pkg/profiles/cost_profiles.F |
493 |
COST_PROFILES |
& .AND. prof_data1D_mean(K).NE. 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
550 |
COST_PROFILES |
& .AND. prof_data1D_mean(1).NE. 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
551 |
COST_PROFILES |
& .AND. prof_traj1D_mean(1).NE. 0. _d 0 |
|
./pkg/profiles/cost_profiles.F |
567 |
COST_PROFILES |
& +1. _d 0 |
|
./pkg/profiles/cost_profiles.F |
580 |
COST_PROFILES |
& +1. _d 0/numberOfProcs |
|
./pkg/profiles/profiles_init_fixed.F |
156 |
PROFILES_INIT_FIXED |
profiles_data_buff(m,l,k,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
157 |
PROFILES_INIT_FIXED |
profiles_weight_buff(m,l,k,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
281 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
282 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
283 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
291 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
293 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
294 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
295 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
296 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
407 |
PROFILES_INIT_FIXED |
tmp_lon=xC(sNx+1,1,bi,bj)+360. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
419 |
PROFILES_INIT_FIXED |
& (xC(1,1,bi,bj).LE.tmp_lon2(k)+360. _d 0).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
420 |
PROFILES_INIT_FIXED |
& (tmp_lon.GT.tmp_lon2(k)+360. _d 0).AND. |
|
./pkg/profiles/profiles_init_fixed.F |
424 |
PROFILES_INIT_FIXED |
lon_cur=tmp_lon2(k)+360. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
514 |
PROFILES_INIT_FIXED |
if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 _d 0 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
515 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 _d 0) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
516 |
PROFILES_INIT_FIXED |
& ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 _d 0 ) .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
517 |
PROFILES_INIT_FIXED |
& ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 _d 0 ) |
|
./pkg/profiles/profiles_init_fixed.F |
530 |
PROFILES_INIT_FIXED |
tmp_sum_weights=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
551 |
PROFILES_INIT_FIXED |
if ( tmp_weights(k,q) .NE. 0. _d 0) then |
|
./pkg/profiles/profiles_init_fixed.F |
565 |
PROFILES_INIT_FIXED |
if ( (tmp_weights(k,q).LT.0. _d 0).OR. |
|
./pkg/profiles/profiles_init_fixed.F |
566 |
PROFILES_INIT_FIXED |
& (tmp_weights(k,q).GT.1. _d 0) ) then |
|
./pkg/profiles/profiles_init_fixed.F |
577 |
PROFILES_INIT_FIXED |
if ( abs(tmp_sum_weights -1. _d 0 ) .GT. 0.0001 _d 0) then |
|
./pkg/profiles/profiles_init_fixed.F |
758 |
PROFILES_INIT_FIXED |
prof_time(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
759 |
PROFILES_INIT_FIXED |
prof_lon(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
760 |
PROFILES_INIT_FIXED |
prof_lat(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
768 |
PROFILES_INIT_FIXED |
prof_interp_weights(num_file,k,q,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
770 |
PROFILES_INIT_FIXED |
prof_interp_xC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
771 |
PROFILES_INIT_FIXED |
prof_interp_yC11(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
772 |
PROFILES_INIT_FIXED |
prof_interp_xCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
773 |
PROFILES_INIT_FIXED |
prof_interp_yCNINJ(num_file,k,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
787 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
800 |
PROFILES_INIT_FIXED |
if(prof_depth_comb(l,bi,bj) .ne. -999. _d 0) then |
|
./pkg/profiles/profiles_init_fixed.F |
832 |
PROFILES_INIT_FIXED |
& prof_depth_comb(l+1,bi,bj).eq.-999. _d 0) then |
|
./pkg/profiles/profiles_init_fixed.F |
847 |
PROFILES_INIT_FIXED |
prof_depth_comb(NLEVELCOMBMAX,bi,bj) = -999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
851 |
PROFILES_INIT_FIXED |
if(prof_depth_comb(m,bi,bj) .GE. 0. _d 0 |
|
./pkg/profiles/profiles_init_ncfile.F |
57 |
PROFILES_INIT_NCFILE |
& NF_DOUBLE,1, 0. _d 0 ) |
|
./pkg/profiles/profiles_init_ncfile.F |
61 |
PROFILES_INIT_NCFILE |
& NF_DOUBLE,1, 0. _d 0) |
|
./pkg/profiles/profiles_init_varia.F |
61 |
PROFILES_INIT_VARIA |
objf_profiles(num_file,num_var,bi,bj)= 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
62 |
PROFILES_INIT_VARIA |
num_profiles(num_file,num_var,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
63 |
PROFILES_INIT_VARIA |
profiles_dummy(num_file,num_var,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
67 |
PROFILES_INIT_VARIA |
objf_profiles_mean(num_var,bi,bj)= 0. _d 0 |
|
./pkg/profiles/profiles_init_varia.F |
68 |
PROFILES_INIT_VARIA |
num_profiles_mean(num_var,bi,bj) = 0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
105 |
PROFILES_INTERP |
tab_coeffs1(q)=0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
114 |
PROFILES_INTERP |
traj_cur(k)=0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
115 |
PROFILES_INTERP |
mask_cur(k)=1. _d 0 |
|
./pkg/profiles/profiles_interp.F |
121 |
PROFILES_INTERP |
traj_cur(k)=0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
122 |
PROFILES_INTERP |
mask_cur(k)=0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
83 |
PROFILES_INTERP |
pondsSUM=0. _d 0 |
|
./pkg/profiles/profiles_interp.F |
94 |
PROFILES_INTERP |
tab_coeffs1(q)=0. _d 0 |
|
./pkg/profiles/profiles_readparms.F |
103 |
PROFILES_READPARMS |
mult_profiles_mean(num_var) = 1. _d 0 |
|
./pkg/profiles/profiles_readparms.F |
92 |
PROFILES_READPARMS |
mult_profiles(num_file,num_var) = 1. _d 0 |
|
./pkg/profiles/profiles_readparms.F |
93 |
PROFILES_READPARMS |
prof_facmod(num_file,num_var) = 1. _d 0 |
|
./pkg/profiles/profiles_readvector.F |
110 |
PROFILES_READVECTOR |
if(vec_tmp3((kk-1)*vec_count(1)+k).LE.-990. _d 0) |
|
./pkg/profiles/profiles_readvector.F |
111 |
PROFILES_READVECTOR |
& profiles_weight_buff(k,kk,kkk,bi,bj) = 0. _d 0 |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
54 |
PTRACERS_CALC_WSURF_TR |
totSurfCorPTr(iTr) = 0.0 _d 0 |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
55 |
PTRACERS_CALC_WSURF_TR |
meanSurfCorPTr(iTr) = 0.0 _d 0 |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
56 |
PTRACERS_CALC_WSURF_TR |
wT_mean(iTr) = 0.0 _d 0 |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
120 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
128 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
153 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
160 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
87 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
95 |
PTRACERS_DIAGNOSTICS_STATE |
& 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
111 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
|
./pkg/ptracers/ptracers_forcing_surf.F |
69 |
PTRACERS_FORCING_SURF |
surfaceForcingPTr(i,j,bi,bj,iTrc) = 0. _d 0 |
|
./pkg/ptracers/ptracers_forcing_surf.F |
81 |
PTRACERS_FORCING_SURF |
epsil = 1. _d -10 |
|
./pkg/ptracers/ptracers_forcing_surf.F |
82 |
PTRACERS_FORCING_SURF |
cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks) |
|
./pkg/ptracers/ptracers_init_varia.F |
118 |
PTRACERS_INIT_VARIA |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
66 |
PTRACERS_INIT_VARIA |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
72 |
PTRACERS_INIT_VARIA |
surfaceForcingPTr(i,j,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_init_varia.F |
83 |
PTRACERS_INIT_VARIA |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
157 |
PTRACERS_INTEGRATE |
gTracer(i,j,k) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
205 |
PTRACERS_INTEGRATE |
fVer(i,j,1) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
206 |
PTRACERS_INTEGRATE |
fVer(i,j,2) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
213 |
PTRACERS_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./pkg/ptracers/ptracers_integrate.F |
296 |
PTRACERS_INTEGRATE |
gTrForc(i,j) = 0. _d 0 |
|
./pkg/ptracers/ptracers_readparms.F |
120 |
PTRACERS_READPARMS |
PTRACERS_ref (k,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
121 |
PTRACERS_RESET |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
76 |
PTRACERS_RESET |
gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_reset.F |
99 |
PTRACERS_RESET |
& pTracer(i,j,k,bi,bj,iTracer)=0. _d 0 |
|
./pkg/ptracers/ptracers_timeave.F |
70 |
PTRACERS_TIMEAVE |
IF ( PTRACERS_taveFreq.GT.0. _d 0 ) THEN |
|
./model/src/dynamics.F |
305 |
DYNAMICS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
306 |
DYNAMICS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
313 |
DYNAMICS |
fVerU (i,j,1) = 0. _d 0 |
|
./model/src/dynamics.F |
314 |
DYNAMICS |
fVerU (i,j,2) = 0. _d 0 |
|
./model/src/dynamics.F |
315 |
DYNAMICS |
fVerV (i,j,1) = 0. _d 0 |
|
./model/src/dynamics.F |
316 |
DYNAMICS |
fVerV (i,j,2) = 0. _d 0 |
|
./model/src/dynamics.F |
317 |
DYNAMICS |
phiHydF (i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
318 |
DYNAMICS |
phiHydC (i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
320 |
DYNAMICS |
dPhiHydX(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
321 |
DYNAMICS |
dPhiHydY(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
323 |
DYNAMICS |
phiSurfX(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
324 |
DYNAMICS |
phiSurfY(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
325 |
DYNAMICS |
guDissip(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
326 |
DYNAMICS |
gvDissip(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
328 |
DYNAMICS |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
331 |
DYNAMICS |
dWtransC(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
332 |
DYNAMICS |
dWtransU(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
333 |
DYNAMICS |
dWtransV(i,j,bi,bj) = 0. _d 0 |
|
./model/src/dynamics.F |
372 |
DYNAMICS |
kappaRU(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
373 |
DYNAMICS |
kappaRV(i,j,k) = 0. _d 0 |
|
./model/src/dynamics.F |
489 |
DYNAMICS |
tmpFac = -1. _d 0 |
|
./model/src/dynamics.F |
503 |
DYNAMICS |
guDissip(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
504 |
DYNAMICS |
gvDissip(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
692 |
DYNAMICS |
tmpFac = 1. _d 0 |
|
./pkg/rbcs/rbcs_add_tendency.F |
61 |
RBCS_ADD_TENDENCY |
IF ( rbcsVanishingTime.GT.0. _d 0 ) THEN |
|
./pkg/rbcs/rbcs_add_tendency.F |
63 |
RBCS_ADD_TENDENCY |
& MAX( 0. _d 0 , 1. _d 0 - myTime / rbcsVanishingTime ) |
|
./pkg/rbcs/rbcs_add_tendency.F |
65 |
RBCS_ADD_TENDENCY |
rbcsVanishingFac = 1. _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
75 |
RBCS_FIELDS_LOAD |
IF (rbcsForcingPeriod.GT.0. _d 0) THEN |
|
./pkg/rbcs/rbcs_fields_load.F |
95 |
RBCS_FIELDS_LOAD |
aWght = .5 _d 0 |
|
./pkg/rbcs/rbcs_fields_load.F |
96 |
RBCS_FIELDS_LOAD |
bWght = .5 _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
200 |
RBCS_INIT_FIXED |
RBC_maskU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
201 |
RBCS_INIT_FIXED |
RBC_maskV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
220 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
269 |
RBCS_INIT_FIXED |
& + RBC_mask( i ,j,k,bi,bj,1) )*0.5 _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
286 |
RBCS_INIT_FIXED |
& + RBC_mask(i, j ,k,bi,bj,1) )*0.5 _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
46 |
RBCS_INIT_VARIA |
rbcu0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
47 |
RBCS_INIT_VARIA |
rbcv0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
48 |
RBCS_INIT_VARIA |
rbcu1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
49 |
RBCS_INIT_VARIA |
rbcv1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
50 |
RBCS_INIT_VARIA |
RBCuVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
51 |
RBCS_INIT_VARIA |
RBCvVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
53 |
RBCS_INIT_VARIA |
rbct0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
54 |
RBCS_INIT_VARIA |
rbcs0(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
55 |
RBCS_INIT_VARIA |
rbct1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
56 |
RBCS_INIT_VARIA |
rbcs1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
57 |
RBCS_INIT_VARIA |
RBCtemp(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
58 |
RBCS_INIT_VARIA |
RBCsalt(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
73 |
RBCS_INIT_VARIA |
rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
74 |
RBCS_INIT_VARIA |
rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_varia.F |
75 |
RBCS_INIT_VARIA |
RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0 |
|
./pkg/rbcs/rbcs_readparms.F |
122 |
RBCS_READPARMS |
rbcsForcingPeriod = 0. _d 0 |
|
./pkg/rbcs/rbcs_readparms.F |
123 |
RBCS_READPARMS |
rbcsForcingCycle = 0. _d 0 |
|
./pkg/rbcs/rbcs_readparms.F |
124 |
RBCS_READPARMS |
rbcsForcingOffset = 0. _d 0 |
|
./pkg/rbcs/rbcs_readparms.F |
125 |
RBCS_READPARMS |
rbcsVanishingTime = 0. _d 0 |
|
./model/src/external_forcing.F |
361 |
EXTERNAL_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./model/src/external_forcing.F |
388 |
EXTERNAL_FORCING_T |
& .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN |
|
./model/src/external_forcing.F |
464 |
EXTERNAL_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./model/src/external_forcing.F |
477 |
EXTERNAL_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./model/src/external_forcing.F |
542 |
EXTERNAL_FORCING_T |
swfracb(2)=0. _d 0 |
|
./model/src/external_forcing.F |
710 |
EXTERNAL_FORCING_S |
& .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN |
|
./model/src/external_forcing_surf.F |
140 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./model/src/external_forcing_surf.F |
141 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./model/src/external_forcing_surf.F |
77 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./model/src/find_alpha.F |
146 |
FIND_ALPHA |
s3o2 = 0. _d 0 |
|
./model/src/find_alpha.F |
149 |
FIND_ALPHA |
IF ( s1 .GT. 0. _d 0 ) THEN |
|
./model/src/find_alpha.F |
152 |
FIND_ALPHA |
s1 = 0. _d 0 |
|
./model/src/find_alpha.F |
153 |
FIND_ALPHA |
s3o2 = 0. _d 0 |
|
./model/src/find_alpha.F |
250 |
FIND_ALPHA |
sp5 = 0. _d 0 |
|
./model/src/find_alpha.F |
252 |
FIND_ALPHA |
IF ( s1 .GT. 0. _d 0 ) THEN |
|
./model/src/find_alpha.F |
255 |
FIND_ALPHA |
s1 = 0. _d 0 |
|
./model/src/find_alpha.F |
256 |
FIND_ALPHA |
sp5 = 0. _d 0 |
|
./model/src/find_alpha.F |
301 |
FIND_ALPHA |
sqrtsa = 0. _d 0 |
|
./model/src/find_alpha.F |
303 |
FIND_ALPHA |
IF ( sa .GT. 0. _d 0 ) THEN |
|
./model/src/find_alpha.F |
306 |
FIND_ALPHA |
sa = 0. _d 0 |
|
./model/src/find_alpha.F |
307 |
FIND_ALPHA |
sqrtsa = 0. _d 0 |
|
./model/src/find_alpha.F |
475 |
FIND_BETA |
s3o2 = 0. _d 0 |
|
./model/src/find_alpha.F |
477 |
FIND_BETA |
IF ( s1 .GT. 0. _d 0 ) THEN |
|
./model/src/find_alpha.F |
480 |
FIND_BETA |
s1 = 0. _d 0 |
|
./model/src/find_alpha.F |
481 |
FIND_BETA |
s3o2 = 0. _d 0 |
|
./model/src/find_alpha.F |
488 |
FIND_BETA |
drhoP0dS = 0. _d 0 |
|
./model/src/find_alpha.F |
504 |
FIND_BETA |
dKdS = 0. _d 0 |
|
./model/src/find_alpha.F |
564 |
FIND_BETA |
sp5 = 0. _d 0 |
|
./model/src/find_alpha.F |
566 |
FIND_BETA |
IF ( s1 .GT. 0. _d 0 ) THEN |
|
./model/src/find_alpha.F |
569 |
FIND_BETA |
s1 = 0. _d 0 |
|
./model/src/find_alpha.F |
570 |
FIND_BETA |
sp5 = 0. _d 0 |
|
./model/src/find_alpha.F |
608 |
FIND_BETA |
sqrtsa = 0. _d 0 |
|
./model/src/find_alpha.F |
610 |
FIND_BETA |
IF ( sa .GT. 0. _d 0 ) THEN |
|
./model/src/find_alpha.F |
613 |
FIND_BETA |
sa = 0. _d 0 |
|
./model/src/find_alpha.F |
614 |
FIND_BETA |
sqrtsa = 0. _d 0 |
|
./pkg/rw/rw_get_suffix.F |
43 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') NINT( myTime*100. _d 0 ) |
|
./pkg/rw/rw_get_suffix.F |
49 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') NINT( myTime/360. _d 0 ) |
|
./pkg/rw/rw_get_suffix.F |
52 |
RW_GET_SUFFIX |
WRITE(suff,'(I10.10)') NINT( myTime/3600. _d 0 ) |
|
./model/src/find_rho.F |
1092 |
FIND_RHO_SCALAR |
rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) |
|
./model/src/find_rho.F |
1129 |
FIND_RHO_SCALAR |
IF ( sa .GT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
1132 |
FIND_RHO_SCALAR |
sa = 0. _d 0 |
|
./model/src/find_rho.F |
1133 |
FIND_RHO_SCALAR |
sqrtsa = 0. _d 0 |
|
./model/src/find_rho.F |
1226 |
LOOK_FOR_NEG_SALINITY |
IF ( sFld(i,j) .LT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
1228 |
LOOK_FOR_NEG_SALINITY |
sFld(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
179 |
FIND_RHO_2D |
& /(1. _d 0 - |
|
./model/src/find_rho.F |
343 |
FIND_RHOP0 |
s3o2 = 0. _d 0 |
|
./model/src/find_rho.F |
346 |
FIND_RHOP0 |
IF ( s .GT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
349 |
FIND_RHOP0 |
s = 0. _d 0 |
|
./model/src/find_rho.F |
350 |
FIND_RHOP0 |
s3o2 = 0. _d 0 |
|
./model/src/find_rho.F |
496 |
FIND_BULKMOD |
s3o2 = 0. _d 0 |
|
./model/src/find_rho.F |
499 |
FIND_BULKMOD |
IF ( s .GT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
502 |
FIND_BULKMOD |
s = 0. _d 0 |
|
./model/src/find_rho.F |
503 |
FIND_BULKMOD |
s3o2 = 0. _d 0 |
|
./model/src/find_rho.F |
697 |
FIND_RHODEN |
parameter ( epsln = 0. _d 0 ) |
|
./model/src/find_rho.F |
707 |
FIND_RHODEN |
sp5 = 0. _d 0 |
|
./model/src/find_rho.F |
709 |
FIND_RHODEN |
IF ( s1 .GT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
712 |
FIND_RHODEN |
s1 = 0. _d 0 |
|
./model/src/find_rho.F |
713 |
FIND_RHODEN |
sp5 = 0. _d 0 |
|
./model/src/find_rho.F |
781 |
FIND_RHOTEOS |
parameter ( epsln = 0. _d 0 ) |
|
./model/src/find_rho.F |
790 |
FIND_RHOTEOS |
sqrtsa = 0. _d 0 |
|
./model/src/find_rho.F |
792 |
FIND_RHOTEOS |
IF ( sa .GT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
795 |
FIND_RHOTEOS |
sa = 0. _d 0 |
|
./model/src/find_rho.F |
796 |
FIND_RHOTEOS |
sqrtsa = 0. _d 0 |
|
./model/src/find_rho.F |
80 |
FIND_RHO_2D |
rhoLoc(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
81 |
FIND_RHO_2D |
rhoP0(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
82 |
FIND_RHO_2D |
bulkMod(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
867 |
FIND_RHO_SCALAR |
PARAMETER ( epsln = 0. _d 0 ) |
|
./model/src/find_rho.F |
910 |
FIND_RHO_SCALAR |
rhoLoc = 0. _d 0 |
|
./model/src/find_rho.F |
911 |
FIND_RHO_SCALAR |
rhoP0 = 0. _d 0 |
|
./model/src/find_rho.F |
912 |
FIND_RHO_SCALAR |
bulkMod = 0. _d 0 |
|
./model/src/find_rho.F |
913 |
FIND_RHO_SCALAR |
rfresh = 0. _d 0 |
|
./model/src/find_rho.F |
914 |
FIND_RHO_SCALAR |
rsalt = 0. _d 0 |
|
./model/src/find_rho.F |
915 |
FIND_RHO_SCALAR |
bMfresh = 0. _d 0 |
|
./model/src/find_rho.F |
916 |
FIND_RHO_SCALAR |
bMsalt = 0. _d 0 |
|
./model/src/find_rho.F |
917 |
FIND_RHO_SCALAR |
bMpres = 0. _d 0 |
|
./model/src/find_rho.F |
918 |
FIND_RHO_SCALAR |
rhoNum = 0. _d 0 |
|
./model/src/find_rho.F |
919 |
FIND_RHO_SCALAR |
rhoDen = 0. _d 0 |
|
./model/src/find_rho.F |
920 |
FIND_RHO_SCALAR |
den = 0. _d 0 |
|
./model/src/find_rho.F |
928 |
FIND_RHO_SCALAR |
IF ( s1 .LT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
934 |
FIND_RHO_SCALAR |
s1 = 0. _d 0 |
|
./model/src/find_rho.F |
957 |
FIND_RHO_SCALAR |
rhoLoc = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
104 |
SALT_PLUME_APPLY |
SEAICE_Tfrz = -1.96 _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
153 |
SALT_PLUME_APPLY |
plumetend(i,j,k) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
160 |
SALT_PLUME_APPLY |
work(i,j,Nrp1) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
176 |
SALT_PLUME_APPLY |
SPforcingT(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
185 |
SALT_PLUME_APPLY |
SPforcingS(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
144 |
SALT_PLUME_CALC_DEPTH |
SPIND(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
83 |
SALT_PLUME_CALC_DEPTH |
SPIND(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
84 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
85 |
SALT_PLUME_CALC_DEPTH |
rhoMxL(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
92 |
SALT_PLUME_CALC_DEPTH |
rhoBigNb = rhoConst*1. _d 10 |
|
./pkg/salt_plume/salt_plume_check.F |
38 |
SALT_PLUME_CHECK |
IF ( (SPsalFRAC(1) .LT. 0. _d 0).OR. |
|
./pkg/salt_plume/salt_plume_check.F |
39 |
SALT_PLUME_CHECK |
& (SPsalFRAC(1) .GT. 1. _d 0) ) then |
|
./pkg/salt_plume/salt_plume_check.F |
45 |
SALT_PLUME_CHECK |
IF ( (SPsalFRAC(2) .LT. 0. _d 0).OR. |
|
./pkg/salt_plume/salt_plume_check.F |
46 |
SALT_PLUME_CHECK |
& (SPsalFRAC(2) .GT. 1. _d 0) ) then |
|
./pkg/salt_plume/salt_plume_check.F |
53 |
SALT_PLUME_CHECK |
IF ( (SPsalFRAC .LT. 0. _d 0).OR.(SPsalFRAC .GT. 1. _d 0) ) then |
|
./pkg/salt_plume/salt_plume_check.F |
62 |
SALT_PLUME_CHECK |
IF ( (SPinflectionPoint .LT. 0. _d 0).OR. |
|
./pkg/salt_plume/salt_plume_check.F |
63 |
SALT_PLUME_CHECK |
& (SPinflectionPoint .GT. 1. _d 0) ) then |
|
./pkg/salt_plume/salt_plume_check.F |
71 |
SALT_PLUME_CHECK |
IF ( (SPbrineSconst .LT. 0. _d 0).OR. |
|
./model/src/forcing_surf_relax.F |
135 |
FORCING_SURF_RELAX |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/forcing_surf_relax.F |
140 |
FORCING_SURF_RELAX |
& *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/forcing_surf_relax.F |
173 |
FORCING_SURF_RELAX |
sumTile(bi,bj) = 0. _d 0 |
|
./model/src/forcing_surf_relax.F |
209 |
FORCING_SURF_RELAX |
sumTile(bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_frac.F |
160 |
SALT_PLUME_FRAC |
So = 1. _d 0/dd20 |
|
./pkg/salt_plume/salt_plume_frac.F |
78 |
SALT_PLUME_FRAC |
parameter( one = 1. _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./pkg/salt_plume/salt_plume_frac.F |
79 |
SALT_PLUME_FRAC |
parameter( zero = 0. _d 0 ) |
|
./pkg/salt_plume/salt_plume_init_varia.F |
41 |
SALT_PLUME_INIT_VARIA |
SaltPlumeDepth (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
42 |
SALT_PLUME_INIT_VARIA |
saltPlumeFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
44 |
SALT_PLUME_INIT_VARIA |
SPbrineVolFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
45 |
SALT_PLUME_INIT_VARIA |
SPforcS1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
47 |
SALT_PLUME_INIT_VARIA |
dSPvolSurf2kLev (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
48 |
SALT_PLUME_INIT_VARIA |
dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
49 |
SALT_PLUME_INIT_VARIA |
SPforcingS (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
50 |
SALT_PLUME_INIT_VARIA |
SPforcingT (i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
51 |
SALT_PLUME_INIT_VARIA |
SPplumek (i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
53 |
SALT_PLUME_INIT_VARIA |
dSPvolkLev2Above (i,j,Nrp1,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_init_varia.F |
54 |
SALT_PLUME_INIT_VARIA |
SPplumek (i,j,Nrp1,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
108 |
SALT_PLUME_READPARMS |
SaltPlumeCriterion = 0.4 _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
110 |
SALT_PLUME_READPARMS |
SaltPlumeCriterion = 0.005 _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
66 |
SALT_PLUME_READPARMS |
SPovershoot = 1.0 _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
71 |
SALT_PLUME_READPARMS |
SPsalFRAC(1) = 1.0 _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
72 |
SALT_PLUME_READPARMS |
SPsalFRAC(2) = 1.0 _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
75 |
SALT_PLUME_READPARMS |
SPsalFRAC = 1.0 _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
78 |
SALT_PLUME_READPARMS |
SPinflectionPoint = 0.8 _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
81 |
SALT_PLUME_READPARMS |
SPbrineSconst = 45. _d 0 |
|
./pkg/salt_plume/salt_plume_readparms.F |
82 |
SALT_PLUME_READPARMS |
SPbrineSaltmax = 100. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
114 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
115 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
125 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
152 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
153 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
64 |
SALT_PLUME_TENDENCY_APPLY_T |
plumeEtend(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
120 |
SALT_PLUME_VOLFRAC |
dMbdt(i,j)=0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
77 |
SALT_PLUME_VOLFRAC |
dSPvolSurf2kLev(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
78 |
SALT_PLUME_VOLFRAC |
dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
79 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
85 |
SALT_PLUME_VOLFRAC |
SPplumek(i,j,Nrp1,bi,bj) = 1. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
86 |
SALT_PLUME_VOLFRAC |
SPbrineVolFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/sbo/sbo_calc.F |
109 |
SBO_CALC |
PARAMETER ( ae = 6.3710 _d 6 ) |
|
./pkg/sbo/sbo_calc.F |
110 |
SBO_CALC |
PARAMETER ( sbo_omega = 7.292115 _d -5 ) |
|
./model/src/freesurf_rescale_g.F |
57 |
FREESURF_RESCALE_G |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./pkg/seaice/SEAICE_PARAMS.h |
580 |
NO PROCEDURE |
PARAMETER ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |
|
./pkg/seaice/SEAICE_PARAMS.h |
582 |
NO PROCEDURE |
PARAMETER ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |
|
./pkg/seaice/SEAICE_PARAMS.h |
584 |
NO PROCEDURE |
PARAMETER ( siEps = 1. _d -5 ) |
|
./pkg/seaice/SEAICE_PARAMS.h |
590 |
NO PROCEDURE |
PARAMETER ( MCPHEE_TAPER_FAC = 12.5 _d 0 , STANTON_NUMBER = |
|
./pkg/seaice/SEAICE_PARAMS.h |
591 |
NO PROCEDURE |
& 0.0056 _d 0, USTAR_BASE = 0.0125 _d 0 ) |
|
./pkg/seaice/advect.F |
111 |
ADVECT |
afx(i,j) = 0. _d 0 |
|
./pkg/seaice/advect.F |
112 |
ADVECT |
afy(i,j) = 0. _d 0 |
|
./pkg/seaice/advect.F |
152 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i-1,j,bi,bj)) |
|
./pkg/seaice/advect.F |
154 |
ADVECT |
& * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i,j-1,bi,bj)) |
|
./pkg/seaice/advect.F |
174 |
ADVECT |
IF ( DIFF1.GT.0. _d 0 ) THEN |
|
./pkg/seaice/cost_ice_test.F |
150 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
151 |
COST_ICE_TEST |
& drF(1) * 3996. _d 0 * 1026. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
152 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
166 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
167 |
COST_ICE_TEST |
& drF(1) * 3996. _d 0 * 1026. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
181 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
182 |
COST_ICE_TEST |
& drF(1) * 3996. _d 0 * 1026. _d 0 + |
|
./pkg/seaice/cost_ice_test.F |
183 |
COST_ICE_TEST |
& (TICES(i,j,1,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
184 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
185 |
COST_ICE_TEST |
& HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
186 |
COST_ICE_TEST |
& HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
202 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
203 |
COST_ICE_TEST |
& ( AREA(i,j,bi,bj) - 0.5 _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
86 |
COST_ICE_TEST |
tempVar = 1. _d 0/ |
|
./pkg/seaice/cost_ice_test.F |
87 |
COST_ICE_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./pkg/seaice/diffus.F |
108 |
DIFFUS |
tmpFld(i,j) = 0.0 _d 0 |
|
./pkg/seaice/diffus.F |
61 |
DIFFUS |
dfx(i,j) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
62 |
DIFFUS |
dfy(i,j) = 0. _d 0 |
|
./pkg/seaice/diffus.F |
90 |
DIFFUS |
fld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/dynsolver.F |
136 |
DYNSOLVER |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/dynsolver.F |
146 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
151 |
DYNSOLVER |
& +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA |
|
./pkg/seaice/dynsolver.F |
152 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
329 |
DYNSOLVER |
VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
342 |
DYNSOLVER |
UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/dynsolver.F |
343 |
DYNSOLVER |
VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00) |
|
./pkg/seaice/lsr.F |
1002 |
LSR |
dUdx(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1007 |
LSR |
dUdy(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1030 |
LSR |
& + ( 0.5 _d 0 * |
|
./pkg/seaice/lsr.F |
1033 |
LSR |
& - 0.5 _d 0 * |
|
./pkg/seaice/lsr.F |
1042 |
LSR |
& )* 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1049 |
LSR |
& )*0.5 _d 0* _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1055 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1058 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1062 |
LSR |
& * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1064 |
LSR |
VRT1(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1068 |
LSR |
VRT2(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1106 |
LSR |
& * 0.5 _d 0 *( |
|
./pkg/seaice/lsr.F |
1112 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1114 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
1118 |
LSR |
& * 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1124 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1126 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
152 |
LSR |
WFAU1=0.95 _d 0 |
|
./pkg/seaice/lsr.F |
153 |
LSR |
WFAV1=0.95 _d 0 |
|
./pkg/seaice/lsr.F |
157 |
LSR |
S1A=0.80 _d 0 |
|
./pkg/seaice/lsr.F |
158 |
LSR |
S2A=0.80 _d 0 |
|
./pkg/seaice/lsr.F |
165 |
LSR |
ECM2= 1. _d 0/(SEAICE_eccen**2) |
|
./pkg/seaice/lsr.F |
174 |
LSR |
ucLoc(I,J,bi,bj) = 0.25 _d 0 * ( |
|
./pkg/seaice/lsr.F |
177 |
LSR |
vcLoc(I,J,bi,bj) = 0.25 _d 0 * ( |
|
./pkg/seaice/lsr.F |
184 |
LSR |
e11loc = 0.5 _d 0 * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
188 |
LSR |
e22loc = 0.5 _d 0 * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
192 |
LSR |
e12loc = 0.5 _d 0*( |
|
./pkg/seaice/lsr.F |
193 |
LSR |
& 0.5 _d 0 * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
196 |
LSR |
& + 0.5 _d 0 * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
202 |
LSR |
DELT1=(e11loc**2+e22loc**2)*(1. _d 0+ECM2) |
|
./pkg/seaice/lsr.F |
203 |
LSR |
& +4.0 _d 0*ECM2*e12loc**2 |
|
./pkg/seaice/lsr.F |
204 |
LSR |
& +2.0 _d 0*e11loc*e22loc*(1. _d 0-ECM2) |
|
./pkg/seaice/lsr.F |
210 |
LSR |
ZETA(I,J,bi,bj) = 0.5 _d 0*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/lsr.F |
217 |
LSR |
PRESS(I,J,bi,bj) = 2.0 _d 0*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/lsr.F |
281 |
LSR |
etaU(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
283 |
LSR |
zetaU(I,J)= 0.5 _d 0 *( |
|
./pkg/seaice/lsr.F |
289 |
LSR |
etaV(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
291 |
LSR |
zetaV(I,J)= 0.5 _d 0 *( |
|
./pkg/seaice/lsr.F |
303 |
LSR |
& * k1AtV(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
313 |
LSR |
& * k2AtU(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
323 |
LSR |
& * k1AtV(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
333 |
LSR |
& * k2AtU(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
426 |
LSR |
& * 0.5 _d 0 * (vIceC(I,J,bi,bj)+vIceC(I+1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
427 |
LSR |
& - 0.5 _d 0 * (PRESS(I,J,bi,bj)+PRESS(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
432 |
LSR |
& * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I+1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
443 |
LSR |
& * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
444 |
LSR |
& - 0.5 _d 0 * (PRESS(I,J,bi,bj)+PRESS(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
449 |
LSR |
& * 0.5 _d 0 * (vIceC(I,J,bi,bj)+vIceC(I,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
728 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
731 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
732 |
LSR |
AA3= 0.5 _d 0 *(ETA(I-1,J ,bi,bj)+ETA(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
733 |
LSR |
AA4= 0.5 _d 0 *(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
759 |
LSR |
dVdy(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
764 |
LSR |
dVdx(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
786 |
LSR |
& + ( 0.5 _d 0 * |
|
./pkg/seaice/lsr.F |
789 |
LSR |
& - 0.5 _d 0 * |
|
./pkg/seaice/lsr.F |
798 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
805 |
LSR |
& ) * 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
811 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
816 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
822 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
826 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
829 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
831 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
833 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
836 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
838 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
872 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
877 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
953 |
LSR |
AA1=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
955 |
LSR |
AA2=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
959 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
960 |
LSR |
AA4= (ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/lsr.F |
965 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
974 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
976 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
982 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
984 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./model/src/freeze_surface.F |
51 |
FREEZE_SURFACE |
Tfreezing = -1.9 _d 0 |
|
./model/src/freeze_surface.F |
64 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
120 |
SEAICE_ADVDIFF |
uc(i,j,bi,bj)=.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
121 |
SEAICE_ADVDIFF |
vc(i,j,bi,bj)=.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_advdiff.F |
165 |
SEAICE_ADVDIFF |
gFld(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
200 |
SEAICE_ADVDIFF |
recip_heff(i,j) = 1. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
228 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhHeff .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
271 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhArea .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
302 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhArea .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
338 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhSnow .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
381 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhSalt .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
447 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhHeff .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
469 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
471 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
487 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
510 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
512 |
SEAICE_ADVDIFF |
SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
522 |
SEAICE_ADVDIFF |
tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr)) |
|
./pkg/seaice/seaice_advdiff.F |
526 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
567 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhHeff .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
610 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhArea .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
636 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhArea .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
668 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhSnow .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advdiff.F |
712 |
SEAICE_ADVDIFF |
IF ( SEAICEdiffKhSalt .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_advection.F |
199 |
SEAICE_ADVECTION |
localTij(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
104 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( AREA(I,J,bi,bj) .GT. 0.01 _d 0 ) THEN |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
106 |
SEAICE_BOTTOMDRAG_COEFFS |
tmp = 0.25 _d 0*( |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
112 |
SEAICE_BOTTOMDRAG_COEFFS |
tmp = 0.25 _d 0*( |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
127 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( AREA(I,J,bi,bj) .GT. 0.01 _d 0 ) THEN |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
150 |
SEAICE_BOTTOMDRAG_COEFFS |
& * LOG(EXP( fac*(hActual - hCrit) ) + 1. _d 0)*rFac |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
87 |
SEAICE_BOTTOMDRAG_COEFFS |
recip_k1 = 0. _d 0 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
88 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( SEAICEbasalDragK1 .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
89 |
SEAICE_BOTTOMDRAG_COEFFS |
& recip_k1 = 1. _d 0/SEAICEbasalDragK1 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
91 |
SEAICE_BOTTOMDRAG_COEFFS |
fac = 10. _d 0 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
98 |
SEAICE_BOTTOMDRAG_COEFFS |
CbotC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
99 |
SEAICE_BOTTOMDRAG_COEFFS |
tmpFld(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
120 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux(I,J) = (SEAICE_waterAlbedo - 1. _d 0) |
|
./pkg/seaice/seaice_budget_ocean.F |
131 |
SEAICE_BUDGET_OCEAN |
ssq = QS1*6.11 _d 0 *EXP( 17.2694 _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
132 |
SEAICE_BUDGET_OCEAN |
& *sstdegC/(sstdegC+237.3 _d 0) ) |
|
./pkg/seaice/seaice_budget_ocean.F |
72 |
SEAICE_BUDGET_OCEAN |
QS1=0.622 _d 0/1013.0 _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
87 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
88 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
129 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
137 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1 = 1. _d 0 / 3. _d 0 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
144 |
SEAICE_CALC_ICE_STRENGTH |
IF ( partFunc(i,j,k) .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
160 |
SEAICE_CALC_ICE_STRENGTH |
& + 2. _d 0 * hrMin(i,j,k)*hrExp(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
161 |
SEAICE_CALC_ICE_STRENGTH |
& + 2. _d 0 * hrExp(i,j,k)*hrExp(i,j,k) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
95 |
SEAICE_CALC_ICE_STRENGTH |
opnWtrFrac(i,j,bi,bj) = 1. _d 0 - AREA(i,j,bi,bj) |
|
./model/src/grad_sigma.F |
96 |
GRAD_SIGMA |
sigmaR(i,j,k)= 0. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
102 |
SEAICE_CALC_LHS |
bdfAlpha = 1. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
104 |
SEAICE_CALC_LHS |
bdfAlpha = 1.5 _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
111 |
SEAICE_CALC_LHS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
112 |
SEAICE_CALC_LHS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
139 |
SEAICE_CALC_LHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
140 |
SEAICE_CALC_LHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
155 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - 0.5 _d 0*( |
|
./pkg/seaice/seaice_calc_lhs.F |
157 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( vIceLoc(I ,J,bi,bj)+vIceLoc(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
159 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( vIceLoc(I-1,J,bi,bj)+vIceLoc(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
162 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) + 0.5 _d 0*( |
|
./pkg/seaice/seaice_calc_lhs.F |
164 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( uIceLoc(I,J ,bi,bj)+uIceLoc(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
166 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( uIceLoc(I,J-1,bi,bj)+uIceLoc(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
170 |
SEAICE_CALC_LHS |
& 0.5 _d 0 * ( dragSym(I,J)+dragSym(I-1,J) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
172 |
SEAICE_CALC_LHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
173 |
SEAICE_CALC_LHS |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
175 |
SEAICE_CALC_LHS |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
180 |
SEAICE_CALC_LHS |
& 0.5 _d 0 * ( dragSym(I,J)+dragSym(I,J-1) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
182 |
SEAICE_CALC_LHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
183 |
SEAICE_CALC_LHS |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
185 |
SEAICE_CALC_LHS |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
197 |
SEAICE_CALC_LHS |
gUmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
198 |
SEAICE_CALC_LHS |
gVmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
94 |
SEAICE_CALC_LHS |
recip_deltaT = 1. _d 0 / SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_calc_lhs.F |
99 |
SEAICE_CALC_LHS |
bdfAlpha = 1. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
72 |
SEAICE_CALC_RESIDUAL |
uIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
73 |
SEAICE_CALC_RESIDUAL |
vIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
74 |
SEAICE_CALC_RESIDUAL |
uIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
75 |
SEAICE_CALC_RESIDUAL |
vIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
87 |
SEAICE_CALC_RESIDUAL |
IF (SEAICEbasalDragK2.GT.0. _d 0) CALL SEAICE_BOTTOMDRAG_COEFFS( |
|
./pkg/seaice/seaice_calc_rhs.F |
102 |
SEAICE_CALC_RHS |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_calc_rhs.F |
104 |
SEAICE_CALC_RHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
105 |
SEAICE_CALC_RHS |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
107 |
SEAICE_CALC_RHS |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
72 |
SEAICE_CALC_RHS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
73 |
SEAICE_CALC_RHS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
82 |
SEAICE_CALC_RHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
83 |
SEAICE_CALC_RHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
93 |
SEAICE_CALC_RHS |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_calc_rhs.F |
95 |
SEAICE_CALC_RHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
96 |
SEAICE_CALC_RHS |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
98 |
SEAICE_CALC_RHS |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_strainrates.F |
104 |
SEAICE_CALC_STRAINRATES |
uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
111 |
SEAICE_CALC_STRAINRATES |
vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
137 |
SEAICE_CALC_STRAINRATES |
uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i ,j-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
144 |
SEAICE_CALC_STRAINRATES |
vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i-1,j ,bi,bj)) |
|
./pkg/seaice/seaice_calc_strainrates.F |
152 |
SEAICE_CALC_STRAINRATES |
e12Loc(i,j,bi,bj) = 0.5 _d 0 * ( |
|
./pkg/seaice/seaice_calc_strainrates.F |
160 |
SEAICE_CALC_STRAINRATES |
& 2.0 _d 0 * uave(i,j) * _recip_dyU(i,j,bi,bj) * hFacU |
|
./pkg/seaice/seaice_calc_strainrates.F |
161 |
SEAICE_CALC_STRAINRATES |
& + 2.0 _d 0 * vave(i,j) * _recip_dxV(i,j,bi,bj) * hFacV |
|
./pkg/seaice/seaice_calc_strainrates.F |
191 |
SEAICE_CALC_STRAINRATES |
e12Loc(i,j,bi,bj) = e12Loc(i,j,bi,bj) + 0.5 _d 0 * ( |
|
./pkg/seaice/seaice_calc_strainrates.F |
192 |
SEAICE_CALC_STRAINRATES |
& _recip_dyU(i,j,bi,bj) * ( 6.0 _d 0 * uave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
195 |
SEAICE_CALC_STRAINRATES |
& + _recip_dxV(i,j,bi,bj) * ( 6.0 _d 0 * vave(i,j) |
|
./pkg/seaice/seaice_calc_strainrates.F |
79 |
SEAICE_CALC_STRAINRATES |
PARAMETER ( third = 0.333333333333333333333333333 _d 0 ) |
|
./pkg/seaice/seaice_calc_strainrates.F |
90 |
SEAICE_CALC_STRAINRATES |
noSlipFac = 0. _d 0 |
|
./pkg/seaice/seaice_calc_strainrates.F |
91 |
SEAICE_CALC_STRAINRATES |
IF ( SEAICE_no_slip ) noSlipFac = 1. _d 0 |
|
./pkg/seaice/seaice_calc_stressdiv.F |
163 |
SEAICE_CALC_STRESS |
sig11(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_stressdiv.F |
164 |
SEAICE_CALC_STRESS |
sig22(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_stressdiv.F |
165 |
SEAICE_CALC_STRESS |
sig12(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_stressdiv.F |
174 |
SEAICE_CALC_STRESS |
& - 0.5 _d 0 * press(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
176 |
SEAICE_CALC_STRESS |
& - 0.5 _d 0 * press(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
182 |
SEAICE_CALC_STRESS |
sig12(i,j) = 2. _d 0 * e12(i,j,bi,bj) * etaZ(i,j,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
116 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_viscosities.F |
128 |
SEAICE_CALC_VISCOSITIES |
deltaCsq = ep*ep+recip_e2*(em*em+4. _d 0*e12Csq(i,j)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
137 |
SEAICE_CALC_VISCOSITIES |
deltaC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_viscosities.F |
138 |
SEAICE_CALC_VISCOSITIES |
IF ( deltaCsq .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
155 |
SEAICE_CALC_VISCOSITIES |
argTmp = exp(-1. _d 0/(deltaCreg*SEAICE_zetaMaxFac)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
157 |
SEAICE_CALC_VISCOSITIES |
& *(1. _d 0 - argTmp)/(1. _d 0 + argTmp) |
|
./pkg/seaice/seaice_calc_viscosities.F |
160 |
SEAICE_CALC_VISCOSITIES |
& * ( 1. _d 0 + tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
171 |
SEAICE_CALC_VISCOSITIES |
& ( press0(I,J,bi,bj)*( 1. _d 0 - SEAICEpressReplFac ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
173 |
SEAICE_CALC_VISCOSITIES |
& * SEAICEpressReplFac/( 1. _d 0 + tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
174 |
SEAICE_CALC_VISCOSITIES |
& ) * ( 1. _d 0 - tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
187 |
SEAICE_CALC_VISCOSITIES |
etaDen = em*em + 4. _d 0 * e12Csq(i,j) |
|
./pkg/seaice/seaice_calc_viscosities.F |
189 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)*ep |
|
./pkg/seaice/seaice_calc_viscosities.F |
201 |
SEAICE_CALC_VISCOSITIES |
IF ( sumNorm.GT.0. _d 0 ) sumNorm = 1. _d 0 / sumNorm |
|
./pkg/seaice/seaice_calc_viscosities.F |
87 |
SEAICE_CALC_VISCOSITIES |
recip_e2=0. _d 0 |
|
./pkg/seaice/seaice_calc_viscosities.F |
88 |
SEAICE_CALC_VISCOSITIES |
IF ( SEAICE_eccen .NE. 0. _d 0 ) recip_e2=ONE/(SEAICE_eccen**2) |
|
./pkg/seaice/seaice_calc_viscosities.F |
96 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_check.F |
123 |
SEAICE_CHECK |
IF ( SEAICE_mcPheePiston .LT. 0. _d 0 .OR. |
|
./pkg/seaice/seaice_check.F |
134 |
SEAICE_CHECK |
IF ( ( SEAICE_frazilFrac .LT. 0. _d 0 ) .OR. |
|
./pkg/seaice/seaice_check.F |
135 |
SEAICE_CHECK |
& ( SEAICE_frazilFrac .GT. 1. _d 0 ) ) THEN |
|
./pkg/seaice/seaice_check.F |
145 |
SEAICE_CHECK |
IF ( ( SEAICE_mcPheeTaper .LT. 0. _d 0 ) .OR. |
|
./pkg/seaice/seaice_check.F |
146 |
SEAICE_CHECK |
& ( SEAICE_mcPheeTaper .GT. 1. _d 0 ) ) THEN |
|
./pkg/seaice/seaice_check.F |
214 |
SEAICE_CHECK |
IF ( ( SItrFromOceanFrac(iTracer) .LT. 0. _d 0 ) .OR. |
|
./pkg/seaice/seaice_check.F |
215 |
SEAICE_CHECK |
& ( SItrFromOceanFrac(iTracer) .GT. 1. _d 0 ) ) THEN |
|
./pkg/seaice/seaice_check.F |
223 |
SEAICE_CHECK |
IF ( ( SItrFromFloodFrac(iTracer) .LT. 0. _d 0 ) .OR. |
|
./pkg/seaice/seaice_check.F |
224 |
SEAICE_CHECK |
& ( SItrFromFloodFrac(iTracer) .GT. 1. _d 0 ) ) THEN |
|
./pkg/seaice/seaice_check.F |
361 |
SEAICE_CHECK |
ELSEIF ( DIFF1 .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_check.F |
374 |
SEAICE_CHECK |
IF ( DIFF1 .NE. 0. _d 0 .AND. ( |
|
./pkg/seaice/seaice_check.F |
375 |
SEAICE_CHECK |
& ( SEAICEdiffKhHeff .NE. 0. _d 0 ) .OR. |
|
./pkg/seaice/seaice_check.F |
376 |
SEAICE_CHECK |
& ( SEAICEdiffKhArea .NE. 0. _d 0 ) .OR. |
|
./pkg/seaice/seaice_check.F |
377 |
SEAICE_CHECK |
& ( SEAICEdiffKhSnow .NE. 0. _d 0 ) .OR. |
|
./pkg/seaice/seaice_check.F |
378 |
SEAICE_CHECK |
& ( SEAICEdiffKhSalt .NE. 0. _d 0 ) |
|
./pkg/seaice/seaice_check.F |
396 |
SEAICE_CHECK |
IF ( SEAICEpresH0 .LE. 0. _d 0 .OR. |
|
./pkg/seaice/seaice_check.F |
792 |
SEAICE_CHECK |
IF ( SEAICE_evpDampC .GT. 0. _d 0 .OR. |
|
./pkg/seaice/seaice_check.F |
793 |
SEAICE_CHECK |
& SEAICE_zetaMin .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_check.F |
954 |
SEAICE_CHECK |
IF ( SEAICEpressReplFac .LT. 0. _d 0 .OR. |
|
./pkg/seaice/seaice_check.F |
955 |
SEAICE_CHECK |
& SEAICEpressReplFac .GT. 1. _d 0 ) THEN |
|
./pkg/seaice/seaice_check.F |
966 |
SEAICE_CHECK |
IF ( SEAICEbasalDragK2 .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
54 |
SEAICE_COST_ACCUMULATE_MEAN |
& + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
55 |
SEAICE_COST_ACCUMULATE_MEAN |
& + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
59 |
SEAICE_COST_ACCUMULATE_MEAN |
& + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
60 |
SEAICE_COST_ACCUMULATE_MEAN |
& + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i,j-1,bi,bj))*0.5 _d 0 |
|
./model/src/gsw_teos10.F |
142 |
NO PROCEDURE |
sfac = 0.0248826675584615 _d 0 |
|
./model/src/gsw_teos10.F |
145 |
NO PROCEDURE |
x = 0. _d 0 |
|
./model/src/gsw_teos10.F |
146 |
NO PROCEDURE |
if (x2.gt.0. _d 0) x = sqrt(x2) |
|
./model/src/gsw_teos10.F |
148 |
NO PROCEDURE |
y = pt*0.025 _d 0 |
|
./model/src/gsw_teos10.F |
150 |
NO PROCEDURE |
pot_enthalpy = 61.01362420681071 _d 0 + |
|
./model/src/gsw_teos10.F |
151 |
NO PROCEDURE |
& y*(168776.46138048015 _d 0 + |
|
./model/src/gsw_teos10.F |
152 |
NO PROCEDURE |
& y*(-2735.2785605119625 _d 0 + y*(2574.2164453821433 _d 0 + |
|
./model/src/gsw_teos10.F |
153 |
NO PROCEDURE |
& y*(-1536.6644434977543 _d 0 + y*(545.7340497931629 _d 0 + |
|
./model/src/gsw_teos10.F |
154 |
NO PROCEDURE |
& (-50.91091728474331 _d 0 - 18.30489878927802 _d 0*y)*y))))) + |
|
./model/src/gsw_teos10.F |
155 |
NO PROCEDURE |
& x2*(268.5520265845071 _d 0 + y*(-12019.028203559312 _d 0 + |
|
./model/src/gsw_teos10.F |
156 |
NO PROCEDURE |
& y *(3734.858026725145 _d 0 + y*(-2046.7671145057618 _d 0 + |
|
./model/src/gsw_teos10.F |
157 |
NO PROCEDURE |
& y*(465.28655623826234 _d 0 + (-0.6370820302376359 _d 0 - |
|
./model/src/gsw_teos10.F |
158 |
NO PROCEDURE |
& 10.650848542359153 _d 0*y)*y)))) + |
|
./model/src/gsw_teos10.F |
159 |
NO PROCEDURE |
& x*(937.2099110620707 _d 0 + y*(588.1802812170108 _d 0 + |
|
./model/src/gsw_teos10.F |
160 |
NO PROCEDURE |
& y*(248.39476522971285 _d 0 + (-3.871557904936333 _d 0 - |
|
./model/src/gsw_teos10.F |
161 |
NO PROCEDURE |
& 2.6268019854268356 _d 0*y)*y)) + |
|
./model/src/gsw_teos10.F |
162 |
NO PROCEDURE |
& x*(-1687.914374187449 _d 0 + x*(246.9598888781377 _d 0 + |
|
./model/src/gsw_teos10.F |
163 |
NO PROCEDURE |
& x*(123.59576582457964 _d 0 - 48.5891069025409 _d 0*x)) + |
|
./model/src/gsw_teos10.F |
164 |
NO PROCEDURE |
& y*( 936.3206544460336 _d 0 + |
|
./model/src/gsw_teos10.F |
165 |
NO PROCEDURE |
& y*(-942.7827304544439 _d 0 + y*(369.4389437509002 _d 0 + |
|
./model/src/gsw_teos10.F |
166 |
NO PROCEDURE |
& (-33.83664947895248 _d 0 - 9.987880382780322 _d 0*y)*y)))))) |
|
./model/src/gsw_teos10.F |
168 |
NO PROCEDURE |
cp0 = 3991.86795711963 _d 0 |
|
./model/src/gsw_teos10.F |
212 |
NO PROCEDURE |
x = 0. _d 0 |
|
./model/src/gsw_teos10.F |
213 |
NO PROCEDURE |
if (x2.gt.0. _d 0) x = sqrt(x2) |
|
./model/src/gsw_teos10.F |
214 |
NO PROCEDURE |
y = pt0*0.025 _d 0 |
|
./model/src/gsw_teos10.F |
59 |
NO PROCEDURE |
cp0 = 3991.86795711963 _d 0 |
|
./model/src/gsw_teos10.F |
64 |
NO PROCEDURE |
s1 = SA * 35. _d 0 / 35.16504 _d 0 |
|
./model/src/gsw_teos10.F |
65 |
NO PROCEDURE |
p0 = 0. _d 0 |
|
./model/src/gsw_teos10.F |
67 |
NO PROCEDURE |
a0 = -1.446013646344788 _d -2 |
|
./model/src/gsw_teos10.F |
68 |
NO PROCEDURE |
a1 = -3.305308995852924 _d -3 |
|
./model/src/gsw_teos10.F |
69 |
NO PROCEDURE |
a2 = 1.062415929128982 _d -4 |
|
./model/src/gsw_teos10.F |
70 |
NO PROCEDURE |
a3 = 9.477566673794488 _d -1 |
|
./model/src/gsw_teos10.F |
71 |
NO PROCEDURE |
a4 = 2.166591947736613 _d -3 |
|
./model/src/gsw_teos10.F |
72 |
NO PROCEDURE |
a5 = 3.828842955039902 _d -3 |
|
./model/src/gsw_teos10.F |
74 |
NO PROCEDURE |
b0 = 1.000000000000000 _d +0 |
|
./model/src/gsw_teos10.F |
75 |
NO PROCEDURE |
b1 = 6.506097115635800 _d -4 |
|
./model/src/gsw_teos10.F |
76 |
NO PROCEDURE |
b2 = 3.830289486850898 _d -3 |
|
./model/src/gsw_teos10.F |
77 |
NO PROCEDURE |
b3 = 1.247811760368034 _d -6 |
|
./model/src/gsw_teos10.F |
95 |
NO PROCEDURE |
ptm = 0.5 _d 0*(pt + pt_old) |
|
./model/src/gsw_teos10.F |
97 |
NO PROCEDURE |
dct_dpt = -(ptm + 273.15 _d 0)*gsw_gibbs_pt0_pt0(sa,ptm)/cp0 |
|
./pkg/seaice/seaice_cost_concentration.F |
104 |
SEAICE_COST_CONCENTRATION |
parameter (spval = -9999. _d 0 ) |
|
./pkg/seaice/seaice_cost_concentration.F |
143 |
SEAICE_COST_CONCENTRATION |
localwww = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
147 |
SEAICE_COST_CONCENTRATION |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
148 |
SEAICE_COST_CONCENTRATION |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
277 |
SEAICE_COST_CONCENTRATION |
if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
280 |
SEAICE_COST_CONCENTRATION |
areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj)) |
|
./pkg/seaice/seaice_cost_concentration.F |
283 |
SEAICE_COST_CONCENTRATION |
IF (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
284 |
SEAICE_COST_CONCENTRATION |
areaSigma = areaSigma * 0.85 _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
285 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0 ) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
286 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
287 |
SEAICE_COST_CONCENTRATION |
areaSigma = areaSigma * 1.2 _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
288 |
SEAICE_COST_CONCENTRATION |
ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and. |
|
./pkg/seaice/seaice_cost_concentration.F |
289 |
SEAICE_COST_CONCENTRATION |
& (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN |
|
./pkg/seaice/seaice_cost_concentration.F |
290 |
SEAICE_COST_CONCENTRATION |
areaSigma = areaSigma * 1.1 _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
296 |
SEAICE_COST_CONCENTRATION |
& 1. _d 0 / (areaSigma*areaSigma) |
|
./pkg/seaice/seaice_cost_concentration.F |
344 |
SEAICE_COST_CONCENTRATION |
localcost = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
354 |
SEAICE_COST_CONCENTRATION |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_concentration.F |
391 |
SEAICE_COST_CONCENTRATION |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_final.F |
66 |
SEAICE_COST_FINAL |
f_ice = 0. _d 0 |
|
./pkg/seaice/seaice_cost_final.F |
67 |
SEAICE_COST_FINAL |
f_smrarea = 0. _d 0 |
|
./pkg/seaice/seaice_cost_final.F |
68 |
SEAICE_COST_FINAL |
f_smrsst = 0. _d 0 |
|
./pkg/seaice/seaice_cost_final.F |
69 |
SEAICE_COST_FINAL |
f_smrsss = 0. _d 0 |
|
./pkg/seaice/seaice_cost_final.F |
71 |
SEAICE_COST_FINAL |
no_ice = 0. _d 0 |
|
./pkg/seaice/seaice_cost_final.F |
72 |
SEAICE_COST_FINAL |
no_smrarea = 0. _d 0 |
|
./pkg/seaice/seaice_cost_final.F |
73 |
SEAICE_COST_FINAL |
no_smrsst = 0. _d 0 |
|
./pkg/seaice/seaice_cost_final.F |
74 |
SEAICE_COST_FINAL |
no_smrsss = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
65 |
SEAICE_COST_INIT_VARIA |
objf_ice(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
66 |
SEAICE_COST_INIT_VARIA |
objf_smrarea(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
67 |
SEAICE_COST_INIT_VARIA |
objf_smrsst(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
68 |
SEAICE_COST_INIT_VARIA |
objf_smrsss(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
69 |
SEAICE_COST_INIT_VARIA |
objf_ice_export(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
71 |
SEAICE_COST_INIT_VARIA |
num_ice(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
72 |
SEAICE_COST_INIT_VARIA |
num_smrarea(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
73 |
SEAICE_COST_INIT_VARIA |
num_smrsst(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
74 |
SEAICE_COST_INIT_VARIA |
num_smrsss(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
84 |
SEAICE_COST_INIT_VARIA |
uHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_init_varia.F |
85 |
SEAICE_COST_INIT_VARIA |
vHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
141 |
SEAICE_COST_SSS |
localwww = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
145 |
SEAICE_COST_SSS |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
146 |
SEAICE_COST_SSS |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
301 |
SEAICE_COST_SSS |
localcost = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
311 |
SEAICE_COST_SSS |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sss.F |
358 |
SEAICE_COST_SSS |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
131 |
SEAICE_COST_SST |
SEAICE_freeze = -1.96 _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
144 |
SEAICE_COST_SST |
localwww = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
148 |
SEAICE_COST_SST |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
149 |
SEAICE_COST_SST |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
301 |
SEAICE_COST_SST |
localcost = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
311 |
SEAICE_COST_SST |
cmask(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_sst.F |
354 |
SEAICE_COST_SST |
& num_local(bi,bj) = num_local(bi,bj) + 1. _d 0 |
|
./pkg/seaice/seaice_cost_weights.F |
82 |
SEAICE_COST_WEIGHTS |
frame(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_cost_weights.F |
84 |
SEAICE_COST_WEIGHTS |
frame(i,j) = 1. _d 0 |
|
./pkg/seaice/seaice_cost_weights.F |
95 |
SEAICE_COST_WEIGHTS |
wsmrarea (i,j,bi,bj) = 0. _d 0 |
|
./model/src/impldiff.F |
117 |
IMPLDIFF |
locTr(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
130 |
IMPLDIFF |
a(i,j,1) = 0. _d 0 |
|
./model/src/impldiff.F |
174 |
IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./model/src/impldiff.F |
187 |
IMPLDIFF |
b(i,j,k) = 1. _d 0 - ( a(i,j,k) + c(i,j,k) ) |
|
./model/src/impldiff.F |
203 |
IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./model/src/impldiff.F |
204 |
IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
221 |
IMPLDIFF |
IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1) |
|
./model/src/impldiff.F |
242 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
326 |
IMPLDIFF |
df(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
89 |
SEAICE_CTRL_MAP_INI |
fac = 1. _d 0 |
|
./pkg/seaice/seaice_ctrl_map_ini.F |
91 |
SEAICE_CTRL_MAP_INI |
fac = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
139 |
SEAICE_DIAGNOSTICS_STATE |
IF ( tensileStrFac(I,J,bi,bj) .EQ. 1. _d 0) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
149 |
SEAICE_DIAGNOSTICS_STATE |
& *press(I,J,bi,bj)/(1. _d 0 - tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
171 |
SEAICE_DIAGNOSTICS_STATE |
sig12(I,J) = 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
176 |
SEAICE_DIAGNOSTICS_STATE |
sigTmp = SQRT( sigm*sigm + 4. _d 0*sig12(I,J)*sig12(I,J) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
177 |
SEAICE_DIAGNOSTICS_STATE |
recip_prs = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
178 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press0(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
221 |
SEAICE_DIAGNOSTICS_STATE |
sigTmp = 2.*eta(I,J,bi,bj) * 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
225 |
SEAICE_DIAGNOSTICS_STATE |
recip_prs = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
226 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press0(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
268 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
270 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
287 |
SEAICE_DIAGNOSTICS_STATE |
& 0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
289 |
SEAICE_DIAGNOSTICS_STATE |
& *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
77 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
81 |
SEAICE_DIAGNOSTICS_STATE |
recip_multDim = 1. _d 0/SEAICE_multDim |
|
./pkg/seaice/seaice_diagnostics_state.F |
85 |
SEAICE_DIAGNOSTICS_STATE |
tmp = 1. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
98 |
SEAICE_DIAGNOSTICS_STATE |
I tIce, AREA, 1. _d 0, 1, 'SItices ', |
|
./pkg/seaice/seaice_diffusion.F |
72 |
SEAICE_DIFFUSION |
IF ( diffKh .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_diffusion.F |
83 |
SEAICE_DIFFUSION |
fZon (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_diffusion.F |
84 |
SEAICE_DIFFUSION |
fMer (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
147 |
SEAICE_DO_RIDGING |
ridgingArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
148 |
SEAICE_DO_RIDGING |
ridgingHeff(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
149 |
SEAICE_DO_RIDGING |
ridgingHsnw(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
150 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
151 |
SEAICE_DO_RIDGING |
volFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
152 |
SEAICE_DO_RIDGING |
fw2ObyRidge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
153 |
SEAICE_DO_RIDGING |
ridgedArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
166 |
SEAICE_DO_RIDGING |
shear = 0.5 _d 0 * ( deltaC(i,j,bi,bj) - ABS(divergence) ) |
|
./pkg/seaice/seaice_do_ridging.F |
175 |
SEAICE_DO_RIDGING |
netArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
185 |
SEAICE_DO_RIDGING |
recip_DeltaT = 1. _d 0/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_do_ridging.F |
191 |
SEAICE_DO_RIDGING |
divAdv = (1. _d 0-netArea(i,j)-opnWtrFrac(i,j,bi,bj)) |
|
./pkg/seaice/seaice_do_ridging.F |
193 |
SEAICE_DO_RIDGING |
IF (divAdv .LT. 0. _d 0) |
|
./pkg/seaice/seaice_do_ridging.F |
228 |
SEAICE_DO_RIDGING |
IF ( partFunc(i,j,0) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
243 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
265 |
SEAICE_DO_RIDGING |
opnWtrFrac(i,j,bi,bj) = MAX( 0. _d 0, opnWtrFrac(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_do_ridging.F |
274 |
SEAICE_DO_RIDGING |
& .AND. partFunc(i,j,k) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
275 |
SEAICE_DO_RIDGING |
& .AND. grossClosing(i,j) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
276 |
SEAICE_DO_RIDGING |
& .AND. HEFFM(i,j,bi,bj) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
297 |
SEAICE_DO_RIDGING |
& *(1. _d 0 - SEAICEsnowFracRidge) |
|
./pkg/seaice/seaice_do_ridging.F |
315 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
316 |
SEAICE_DO_RIDGING |
volFraction (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
329 |
SEAICE_DO_RIDGING |
areaFraction(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
330 |
SEAICE_DO_RIDGING |
volFraction (i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
352 |
SEAICE_DO_RIDGING |
& .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
368 |
SEAICE_DO_RIDGING |
IF ( doRidging(i,j) .AND. hrExp(i,j,k) .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
398 |
SEAICE_DO_RIDGING |
netArea(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
412 |
SEAICE_DO_RIDGING |
areaTooLarge = tmp - 1. _d 0 .GT. 1. _d -11 |
|
./pkg/seaice/seaice_do_ridging.F |
413 |
SEAICE_DO_RIDGING |
IF ( HEFFM(i,j,bi,bj) .GT. 0. _d 0 .AND. areaTooLarge ) THEN |
|
./pkg/seaice/seaice_do_ridging.F |
416 |
SEAICE_DO_RIDGING |
divAdv = (1. _d 0-tmp)*recip_deltaT |
|
./pkg/seaice/seaice_do_ridging.F |
417 |
SEAICE_DO_RIDGING |
closingRate(i,j) = MAX( 0. _d 0, -divAdv) |
|
./pkg/seaice/seaice_do_ridging.F |
418 |
SEAICE_DO_RIDGING |
openingRate(i,j) = MAX( 0. _d 0, divAdv) |
|
./pkg/seaice/seaice_do_ridging.F |
421 |
SEAICE_DO_RIDGING |
closingRate(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_do_ridging.F |
422 |
SEAICE_DO_RIDGING |
openingRate(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
151 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
152 |
SEAICE_DYNSOLVER |
& (mask_uice .GT. 1.5 _d 0) ) THEN |
|
./pkg/seaice/seaice_dynsolver.F |
153 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
155 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
159 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
160 |
SEAICE_DYNSOLVER |
& (mask_vice .GT. 1.5 _d 0) ) THEN |
|
./pkg/seaice/seaice_dynsolver.F |
161 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
163 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
180 |
SEAICE_DYNSOLVER |
TAUX (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
181 |
SEAICE_DYNSOLVER |
TAUY (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
184 |
SEAICE_DYNSOLVER |
stressDivergenceX(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
185 |
SEAICE_DYNSOLVER |
stressDivergenceY(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
237 |
SEAICE_DYNSOLVER |
& * 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
239 |
SEAICE_DYNSOLVER |
& * 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
285 |
SEAICE_DYNSOLVER |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
286 |
SEAICE_DYNSOLVER |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
378 |
SEAICE_DYNSOLVER |
& MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_dynsolver.F |
380 |
SEAICE_DYNSOLVER |
& MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00) |
|
./pkg/seaice/seaice_dynsolver.F |
83 |
SEAICE_DYNSOLVER |
TAUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
84 |
SEAICE_DYNSOLVER |
TAUY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
86 |
SEAICE_DYNSOLVER |
uice_fd(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
87 |
SEAICE_DYNSOLVER |
vice_fd(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
176 |
SEAICE_EVP |
EVPcFac = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
193 |
SEAICE_EVP |
recip_ecc2 = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
194 |
SEAICE_EVP |
IF ( ecc2 .NE. 0. _d 0 ) recip_ecc2=ONE/ecc2 |
|
./pkg/seaice/seaice_evp.F |
204 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / ( SEAICE_evpAlpha + 1. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
205 |
SEAICE_EVP |
denom2(I,J,bi,bj) = 1. _d 0 / ( SEAICE_evpAlpha + ecc2 ) |
|
./pkg/seaice/seaice_evp.F |
210 |
SEAICE_EVP |
recip_deltaT = 1. _d 0 / SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_evp.F |
211 |
SEAICE_EVP |
recip_evpAlpha = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
212 |
SEAICE_EVP |
IF ( SEAICE_evpAlpha .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
213 |
SEAICE_EVP |
& recip_evpAlpha = 1. _d 0 / SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
214 |
SEAICE_EVP |
evpStarFac = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
215 |
SEAICE_EVP |
evpRevFac = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
216 |
SEAICE_EVP |
recip_evpRevFac = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
217 |
SEAICE_EVP |
IF ( SEAICEuseEVPstar ) evpStarFac = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
221 |
SEAICE_EVP |
evpRevFac = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
222 |
SEAICE_EVP |
evpStarFac = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
228 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
255 |
SEAICE_EVP |
e11 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
256 |
SEAICE_EVP |
e22 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
257 |
SEAICE_EVP |
e12 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
270 |
SEAICE_EVP |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
272 |
SEAICE_EVP |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
278 |
SEAICE_EVP |
areaW(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
279 |
SEAICE_EVP |
areaS(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
287 |
SEAICE_EVP |
IF ( SEAICE_evpDampC .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_evp.F |
290 |
SEAICE_EVP |
fac = 0.25 _d 0 * SEAICE_evpDampC * SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
364 |
SEAICE_EVP |
seaice_div (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
365 |
SEAICE_EVP |
seaice_tension(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
366 |
SEAICE_EVP |
seaice_shear (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
367 |
SEAICE_EVP |
pressC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
368 |
SEAICE_EVP |
e12Csq (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
369 |
SEAICE_EVP |
zetaC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
370 |
SEAICE_EVP |
deltaZ (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
371 |
SEAICE_EVP |
zetaZ (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
372 |
SEAICE_EVP |
deltaC (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
398 |
SEAICE_EVP |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
409 |
SEAICE_EVP |
& + recip_ecc2 * 4. _d 0 * e12Csq(I,J) |
|
./pkg/seaice/seaice_evp.F |
412 |
SEAICE_EVP |
deltaC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
413 |
SEAICE_EVP |
IF ( deltaSq .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
427 |
SEAICE_EVP |
& * ( 1. _d 0 + tensileStrFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
450 |
SEAICE_EVP |
IF ( sumNorm.GT.0. _d 0 ) sumNorm = 1. _d 0 / sumNorm |
|
./pkg/seaice/seaice_evp.F |
489 |
SEAICE_EVP |
& ( press0(I,J,bi,bj) * ( 1. _d 0 - SEAICEpressReplFac ) |
|
./pkg/seaice/seaice_evp.F |
491 |
SEAICE_EVP |
& /(1. _d 0 + tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
492 |
SEAICE_EVP |
& ) * (1. _d 0 - tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
516 |
SEAICE_EVP |
etaDenC = em(I,J)**2 + 4. _d 0 * e12Csq(I,J) |
|
./pkg/seaice/seaice_evp.F |
525 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
527 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*MIN(zetaC(I,J),zetaMaxC) |
|
./pkg/seaice/seaice_evp.F |
533 |
SEAICE_EVP |
sumNorm = 0.25 _d 0 |
|
./pkg/seaice/seaice_evp.F |
547 |
SEAICE_EVP |
& + 4. _d 0*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
554 |
SEAICE_EVP |
& 2. _d 0*MIN(zetaZ(I,J,bi,bj),zetaMaxZ) |
|
./pkg/seaice/seaice_evp.F |
555 |
SEAICE_EVP |
& * 2. _d 0*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
565 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
567 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
574 |
SEAICE_EVP |
& 2. _d 0*zetaZ(I,J,bi,bj)*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
590 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / evpAlphaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
620 |
SEAICE_EVP |
sig11(I,J) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
622 |
SEAICE_EVP |
sig22(I,J) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
637 |
SEAICE_EVP |
evpAlphaZ(I,J,bi,bj) = 0.25 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
640 |
SEAICE_EVP |
denom2(I,J,bi,bj) = 1. _d 0 / evpAlphaZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
683 |
SEAICE_EVP |
resTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
723 |
SEAICE_EVP |
resloc = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
750 |
SEAICE_EVP |
IF (SEAICEbasalDragK2.GT.0. _d 0) CALL SEAICE_BOTTOMDRAG_COEFFS( |
|
./pkg/seaice/seaice_evp.F |
775 |
SEAICE_EVP |
IF ( locMaskU .NE. 0. _d 0 ) locMaskU = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
776 |
SEAICE_EVP |
IF ( locMaskV .NE. 0. _d 0 ) locMaskV = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
783 |
SEAICE_EVP |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
785 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
786 |
SEAICE_EVP |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
789 |
SEAICE_EVP |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
794 |
SEAICE_EVP |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
796 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
797 |
SEAICE_EVP |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
800 |
SEAICE_EVP |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
805 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) + 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
807 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I ,J,bi,bj)+vIce(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
809 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I-1,J,bi,bj)+vIce(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
811 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) - 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
813 |
SEAICE_EVP |
& * 0.5 _d 0*( uIce(I,J ,bi,bj)+uIce(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
815 |
SEAICE_EVP |
& * 0.5 _d 0*( uIce(I,J-1,bi,bj)+uIce(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
823 |
SEAICE_EVP |
gUmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
824 |
SEAICE_EVP |
gVmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
847 |
SEAICE_EVP |
evpBetaU(I,J,bi,bj) = 0.5 _d 0*(evpAlphaC(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
849 |
SEAICE_EVP |
evpBetaV(I,J,bi,bj) = 0.5 _d 0*(evpAlphaC(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
863 |
SEAICE_EVP |
& + 0.5 _d 0*( DWATN(I,J,bi,bj) + DWATN(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
866 |
SEAICE_EVP |
& + 0.5 _d 0*( DWATN(I,J,bi,bj) + DWATN(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
870 |
SEAICE_EVP |
& * 0.5 _d 0*( CbotC(I,J,bi,bj) + CbotC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
872 |
SEAICE_EVP |
& * 0.5 _d 0*( CbotC(I,J,bi,bj) + CbotC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
874 |
SEAICE_EVP |
IF ( denomU .EQ. 0. _d 0 ) denomU = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
875 |
SEAICE_EVP |
IF ( denomV .EQ. 0. _d 0 ) denomV = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
923 |
SEAICE_EVP |
resTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
954 |
SEAICE_EVP |
resloc = 0. _d 0 |
|
./pkg/seaice/seaice_fake.F |
55 |
SEAICE_FAKE |
fac=MIN(1. _d 0, MAX(0. _d 0 , 1. _d 0 - area(i,j,bi,bj))) |
|
./pkg/seaice/seaice_fake.F |
71 |
SEAICE_FAKE |
fac=MIN(1. _d 0, MAX(0. _d 0 , area(i,j,bi,bj))) |
|
./pkg/seaice/seaice_fgmres.F |
385 |
SEAICE_FGMRES |
if (ro .eq. 0.0 _d 0) goto 999 |
|
./pkg/seaice/seaice_fgmres.F |
386 |
SEAICE_FGMRES |
t = 1.0 _d 0/ ro |
|
./pkg/seaice/seaice_fgmres.F |
479 |
SEAICE_FGMRES |
if (t .ne. 0.0 _d 0) then |
|
./pkg/seaice/seaice_fgmres.F |
480 |
SEAICE_FGMRES |
t = 1.0 _d 0 / t |
|
./pkg/seaice/seaice_fgmres.F |
505 |
SEAICE_FGMRES |
if (gam .eq. 0.0 _d 0) gam = epsmac |
|
./pkg/seaice/seaice_fgmres.F |
588 |
SEAICE_FGMRES |
if (j .eq. 1) t = t - 1.0 _d 0 |
|
./pkg/seaice/seaice_fgmres.F |
641 |
SEAICE_SCALPROD |
t = 0. _d 0 |
|
./pkg/seaice/seaice_fgmres.F |
645 |
SEAICE_SCALPROD |
dtemp(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
103 |
SEAICE_FREEDRIFT |
rhs_n=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
104 |
SEAICE_FREEDRIFT |
rhs_a=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
110 |
SEAICE_FREEDRIFT |
tmpscal1 = 1. _d 0 /SEAICE_waterDrag_south |
|
./pkg/seaice/seaice_freedrift.F |
112 |
SEAICE_FREEDRIFT |
tmpscal1 = 1. _d 0 /SEAICE_waterDrag |
|
./pkg/seaice/seaice_freedrift.F |
118 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2+4. _d 0*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
122 |
SEAICE_FREEDRIFT |
sol_n=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
140 |
SEAICE_FREEDRIFT |
sol_a=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
64 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
65 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
66 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
67 |
SEAICE_FREEDRIFT |
Vice_cntr(i,j,bi,bj)=0. _d 0 |
|
./model/src/ini_cartesian_grid.F |
114 |
INI_CARTESIAN_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
121 |
INI_CARTESIAN_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
129 |
INI_CARTESIAN_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
130 |
INI_CARTESIAN_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
84 |
INI_CARTESIAN_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cartesian_grid.F |
86 |
INI_CARTESIAN_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./pkg/seaice/seaice_get_dynforcing.F |
119 |
SEAICE_GET_DYNFORCING |
& *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA) |
|
./pkg/seaice/seaice_get_dynforcing.F |
130 |
SEAICE_GET_DYNFORCING |
fu(i,j,bi,bj) = 0.5 _d 0*( oceTauX(i,j) + oceTauX(i-1,j) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
132 |
SEAICE_GET_DYNFORCING |
fv(i,j,bi,bj) = 0.5 _d 0*( oceTauY(i,j) + oceTauY(i,j-1) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
149 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
151 |
SEAICE_GET_DYNFORCING |
& + 0.5 _d 0 * (vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
152 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
189 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
192 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
193 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
196 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
197 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
200 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i-1,j,ks,bi,bj)+uVel(i,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
201 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i-1,j,bi,bj)+uIce(i,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i-1,j,ks,bi,bj)+vVel(i-1,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
205 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i-1,j,bi,bj)+vIce(i-1,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
208 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
211 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
212 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
215 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
216 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
219 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(uVel(i,j-1,ks,bi,bj)+uVel(i+1,j-1,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
220 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uIce(i,j-1,bi,bj)+uIce(i+1,j-1,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
223 |
SEAICE_GET_DYNFORCING |
& +0.5 _d 0*(vVel(i,j-1,ks,bi,bj)+vVel(i,j,ks,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
224 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(vIce(i,j-1,bi,bj)+vIce(i,j,bi,bj)))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
232 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
241 |
SEAICE_GET_DYNFORCING |
tauy(i,j,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1007 |
SEAICE_GROWTH |
a_QbyATMmult_cover(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1008 |
SEAICE_GROWTH |
r_QbyATMmult_cover(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1009 |
SEAICE_GROWTH |
a_QSWbyATMmult_cover(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1016 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1017 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1018 |
SEAICE_GROWTH |
a_QSWbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1048 |
SEAICE_GROWTH |
IF ( (AREApreTH(I,J) .GT. 0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
1052 |
SEAICE_GROWTH |
ELSEIF ( (AREApreTH(I,J) .GT. 0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
1089 |
SEAICE_GROWTH |
& / ( floeDiameterMax*( 1. _d 0 - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1100 |
SEAICE_GROWTH |
& latMeltRate(i,j,it) = 1.6 _d -6 * exp(1.36*log(tmpscal1)) |
|
./pkg/seaice/seaice_growth.F |
1115 |
SEAICE_GROWTH |
latMeltRate(i,j,it)=0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1116 |
SEAICE_GROWTH |
latMeltFrac(i,j,it)=0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1158 |
SEAICE_GROWTH |
tmpscal1 = 1.4 _d 0 * 1.3 _d -3 * tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1162 |
SEAICE_GROWTH |
& 0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1164 |
SEAICE_GROWTH |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1167 |
SEAICE_GROWTH |
& 0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1169 |
SEAICE_GROWTH |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1177 |
SEAICE_GROWTH |
tmpscal4 = 1027.0 _d 0 * 6.0 _d -3 * tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1189 |
SEAICE_GROWTH |
tmpscal3 = 0.5 _d 0 * (dxC(I,J,bi,bj)+dyC(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1196 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1199 |
SEAICE_GROWTH |
greaseLayerThick(I,J) = 0.763 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1206 |
SEAICE_GROWTH |
& * 0.8 _d 0 * tmpscal0 |
|
./pkg/seaice/seaice_growth.F |
1208 |
SEAICE_GROWTH |
& * 0.01 _d 0 )**THIRD |
|
./pkg/seaice/seaice_growth.F |
1211 |
SEAICE_GROWTH |
greaseLayerThick(I,J)=max(4. _d -2, greaseLayerThick(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1213 |
SEAICE_GROWTH |
greaseLayerThick(I,J)=min(4. _d 0 , greaseLayerThick(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1361 |
SEAICE_GROWTH |
tmpscal2=MIN(tmpscal1,0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1364 |
SEAICE_GROWTH |
IF ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1380 |
SEAICE_GROWTH |
tmpscal2=MIN(tmpscal1,0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1383 |
SEAICE_GROWTH |
IF ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1483 |
SEAICE_GROWTH |
IF ( a_QbyATM_cover(I,J).GE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1485 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1492 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1541 |
SEAICE_GROWTH |
tmpscal2=MIN(tmpscal1,0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1544 |
SEAICE_GROWTH |
if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1556 |
SEAICE_GROWTH |
tmpscal2=MIN(tmpscal1,0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1559 |
SEAICE_GROWTH |
if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
159 |
SEAICE_GROWTH |
PARAMETER (THIRD = 1.0 _d 0 / 3.0 _d 0) |
|
./pkg/seaice/seaice_growth.F |
1600 |
SEAICE_GROWTH |
& (1.0 _d 0 - AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1616 |
SEAICE_GROWTH |
greaseNewFrazil = max(0.0 _d 0, tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1620 |
SEAICE_GROWTH |
if ((1.0 _d 0 - AREApreTH(I,J)).LE.siEps) then |
|
./pkg/seaice/seaice_growth.F |
1622 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1624 |
SEAICE_GROWTH |
elseif (greaseNewFrazil .GT. 0. _d 0) then |
|
./pkg/seaice/seaice_growth.F |
1626 |
SEAICE_GROWTH |
tmpscal3=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1637 |
SEAICE_GROWTH |
& * (1.0 _d 0 - tmpscal1) |
|
./pkg/seaice/seaice_growth.F |
1654 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1707 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1718 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1798 |
SEAICE_GROWTH |
recip_HO=4. _d 0 / greaseLayerThick(I,J) |
|
./pkg/seaice/seaice_growth.F |
1801 |
SEAICE_GROWTH |
recip_HO=1. _d 0 / HO_south |
|
./pkg/seaice/seaice_growth.F |
1803 |
SEAICE_GROWTH |
recip_HO=1. _d 0 / HO |
|
./pkg/seaice/seaice_growth.F |
1827 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN_cover(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1828 |
SEAICE_GROWTH |
& + MIN( 0. _d 0 , d_HEFFbyATMonOCN_open(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1829 |
SEAICE_GROWTH |
& + MIN( 0. _d 0 , d_HEFFbyOCNonICE(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1831 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
1845 |
SEAICE_GROWTH |
IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR. |
|
./pkg/seaice/seaice_growth.F |
1846 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1847 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MAX(0. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1852 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1860 |
SEAICE_GROWTH |
& +HALF*recip_HH*MIN(0. _d 0,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1863 |
SEAICE_GROWTH |
& HALF*recip_HH*MIN(0. _d 0,d_HEFFbyATMonOCN_cover(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1866 |
SEAICE_GROWTH |
& HALF*recip_HH*MIN( 0. _d 0,d_HEFFbyOCNonICE(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1895 |
SEAICE_GROWTH |
tmpscal1=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1927 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITDpreTH(I,J,IT) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1936 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1962 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1996 |
SEAICE_GROWTH |
tmpscal3 = max( 0. _d 0, |
|
./pkg/seaice/seaice_growth.F |
2023 |
SEAICE_GROWTH |
IceGrowthRateInLeads(I,J)=max(0. _d 0,d_HEFFbyATMonOCN(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2032 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
2036 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
2037 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2095 |
SEAICE_GROWTH |
saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2109 |
SEAICE_GROWTH |
IceGrowthRateInLeads(I,J)=max(0. _d 0,d_HEFFbyATMonOCN(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2123 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2128 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
2129 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2162 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2163 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2164 |
SEAICE_GROWTH |
a_QSWbyATM_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2165 |
SEAICE_GROWTH |
r_FWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2473 |
SEAICE_GROWTH |
FWFsiTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2484 |
SEAICE_GROWTH |
FWF2HFsiTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2494 |
SEAICE_GROWTH |
HFsiTile(bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2512 |
SEAICE_GROWTH |
tmpscal1=1. _d 0 * recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2609 |
SEAICE_GROWTH |
FWFsiGlob=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2612 |
SEAICE_GROWTH |
FWF2HFsiGlob=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2618 |
SEAICE_GROWTH |
HFsiGlob=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2703 |
SEAICE_GROWTH |
tmpscal1= - 1. _d 0 |
|
./pkg/seaice/seaice_growth.F |
343 |
SEAICE_GROWTH |
heffTooHeavy=drF(kSurface) / 5. _d 0 |
|
./pkg/seaice/seaice_growth.F |
370 |
SEAICE_GROWTH |
denominator = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
374 |
SEAICE_GROWTH |
denominator = (2.0 _d 0 * denominator) - 1.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
375 |
SEAICE_GROWTH |
recip_denominator = 1. _d 0 / denominator |
|
./pkg/seaice/seaice_growth.F |
377 |
SEAICE_GROWTH |
areaPDFfac = 1. _d 0 |
|
./pkg/seaice/seaice_growth.F |
384 |
SEAICE_GROWTH |
floeAlpha = 0.66 _d 0 |
|
./pkg/seaice/seaice_growth.F |
390 |
SEAICE_GROWTH |
floeDiameterMin = 8. _d 0 |
|
./pkg/seaice/seaice_growth.F |
391 |
SEAICE_GROWTH |
floeDiameterMax = 300. _d 0 |
|
./pkg/seaice/seaice_growth.F |
413 |
SEAICE_GROWTH |
greaseDecayTime=1.44*86400. _d 0 |
|
./pkg/seaice/seaice_growth.F |
426 |
SEAICE_GROWTH |
a_QbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
427 |
SEAICE_GROWTH |
a_QbyATM_open(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
428 |
SEAICE_GROWTH |
r_QbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
429 |
SEAICE_GROWTH |
r_QbyATM_open (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
431 |
SEAICE_GROWTH |
a_QSWbyATM_open (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
432 |
SEAICE_GROWTH |
a_QSWbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
434 |
SEAICE_GROWTH |
a_QbyOCN (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
435 |
SEAICE_GROWTH |
r_QbyOCN (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
438 |
SEAICE_GROWTH |
d_AREAbyATM(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
439 |
SEAICE_GROWTH |
d_AREAbyICE(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
440 |
SEAICE_GROWTH |
d_AREAbyOCN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
443 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
444 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
445 |
SEAICE_GROWTH |
d_HEFFbyFLOODING(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
447 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
448 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
450 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
451 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
452 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
453 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
454 |
SEAICE_GROWTH |
r_FWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
455 |
SEAICE_GROWTH |
d_HEFFbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
456 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
458 |
SEAICE_GROWTH |
latentHeatFluxMax(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
460 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
461 |
SEAICE_GROWTH |
tmparr1(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
463 |
SEAICE_GROWTH |
greaseLayerThick(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
464 |
SEAICE_GROWTH |
d_HEFFbyGREASE(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
467 |
SEAICE_GROWTH |
ticeInMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
468 |
SEAICE_GROWTH |
ticeOutMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
469 |
SEAICE_GROWTH |
a_QbyATMmult_cover(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
470 |
SEAICE_GROWTH |
a_QSWbyATMmult_cover(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
471 |
SEAICE_GROWTH |
a_FWbySublimMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
473 |
SEAICE_GROWTH |
latentHeatFluxMaxMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
476 |
SEAICE_GROWTH |
d_HEFFbySublim_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
477 |
SEAICE_GROWTH |
d_HSNWbySublim_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
478 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
479 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
480 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
481 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
482 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
483 |
SEAICE_GROWTH |
d_HSNWbyRAIN_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
484 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
485 |
SEAICE_GROWTH |
d_HEFFbyFLOODING_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
486 |
SEAICE_GROWTH |
r_QbyATMmult_cover(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
487 |
SEAICE_GROWTH |
r_FWbySublimMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
489 |
SEAICE_GROWTH |
latMeltFrac(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
490 |
SEAICE_GROWTH |
latMeltRate(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
498 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
594 |
SEAICE_GROWTH |
HEFFpreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
595 |
SEAICE_GROWTH |
HSNWpreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
596 |
SEAICE_GROWTH |
AREApreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
603 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
604 |
SEAICE_GROWTH |
HSNWITDpreTH(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
605 |
SEAICE_GROWTH |
AREAITDpreTH(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
762 |
SEAICE_GROWTH |
& +0.5 _d 0*(uVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
764 |
SEAICE_GROWTH |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2 |
|
./pkg/seaice/seaice_growth.F |
766 |
SEAICE_GROWTH |
& +0.5 _d 0*(vVel(i,j,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
768 |
SEAICE_GROWTH |
& -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))**2 |
|
./pkg/seaice/seaice_growth.F |
801 |
SEAICE_GROWTH |
pFac = (2.0 _d 0*IT - 1.0 _d 0)*recip_denominator |
|
./pkg/seaice/seaice_growth.F |
802 |
SEAICE_GROWTH |
pFacSnow = 1. _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
162 |
SEAICE_INIT_FIXED |
Hlimit(0) = 0. _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
176 |
SEAICE_INIT_FIXED |
Hlimit(nITD) = 999.9 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
85 |
SEAICE_INIT_FIXED |
SWFracB = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
150 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
151 |
SEAICE_INIT_VARIA |
k1AtU(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
152 |
SEAICE_INIT_VARIA |
k1AtV(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
153 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
154 |
SEAICE_INIT_VARIA |
k2AtU(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
155 |
SEAICE_INIT_VARIA |
k2AtV(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
240 |
SEAICE_INIT_VARIA |
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND. |
|
./pkg/seaice/seaice_init_varia.F |
257 |
SEAICE_INIT_VARIA |
HEFF(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
258 |
SEAICE_INIT_VARIA |
AREA(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
262 |
SEAICE_INIT_VARIA |
AREAITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
263 |
SEAICE_INIT_VARIA |
HEFFITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
267 |
SEAICE_INIT_VARIA |
UICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
268 |
SEAICE_INIT_VARIA |
VICE(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
270 |
SEAICE_INIT_VARIA |
uice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
271 |
SEAICE_INIT_VARIA |
vice_fd(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
274 |
SEAICE_INIT_VARIA |
uIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
275 |
SEAICE_INIT_VARIA |
vIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
276 |
SEAICE_INIT_VARIA |
ETA (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
277 |
SEAICE_INIT_VARIA |
etaZ(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
278 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
279 |
SEAICE_INIT_VARIA |
FORCEX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
280 |
SEAICE_INIT_VARIA |
FORCEY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
282 |
SEAICE_INIT_VARIA |
seaiceMassC(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
283 |
SEAICE_INIT_VARIA |
seaiceMassU(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
284 |
SEAICE_INIT_VARIA |
seaiceMassV(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
285 |
SEAICE_INIT_VARIA |
stressDivergenceX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
286 |
SEAICE_INIT_VARIA |
stressDivergenceY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
288 |
SEAICE_INIT_VARIA |
seaice_sigma1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
289 |
SEAICE_INIT_VARIA |
seaice_sigma2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
290 |
SEAICE_INIT_VARIA |
seaice_sigma12(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
293 |
SEAICE_INIT_VARIA |
uIceC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
294 |
SEAICE_INIT_VARIA |
vIceC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
295 |
SEAICE_INIT_VARIA |
AMASS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
296 |
SEAICE_INIT_VARIA |
DAIRN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
297 |
SEAICE_INIT_VARIA |
WINDX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
298 |
SEAICE_INIT_VARIA |
WINDY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
299 |
SEAICE_INIT_VARIA |
GWATX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
300 |
SEAICE_INIT_VARIA |
GWATY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
302 |
SEAICE_INIT_VARIA |
DWATN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
304 |
SEAICE_INIT_VARIA |
CbotC(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
306 |
SEAICE_INIT_VARIA |
PRESS0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
307 |
SEAICE_INIT_VARIA |
FORCEX0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
308 |
SEAICE_INIT_VARIA |
FORCEY0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
309 |
SEAICE_INIT_VARIA |
ZMAX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
310 |
SEAICE_INIT_VARIA |
ZMIN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
311 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
312 |
SEAICE_INIT_VARIA |
tensileStrFac(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
316 |
SEAICE_INIT_VARIA |
HSNOWITD(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
321 |
SEAICE_INIT_VARIA |
HSALT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
325 |
SEAICE_INIT_VARIA |
SItracer(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
326 |
SEAICE_INIT_VARIA |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
328 |
SEAICE_INIT_VARIA |
if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
331 |
SEAICE_INIT_VARIA |
SItrHEFF (i,j,bi,bj,jTh) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
334 |
SEAICE_INIT_VARIA |
SItrAREA (i,j,bi,bj,jTh) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
338 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
340 |
SEAICE_INIT_VARIA |
TAUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
341 |
SEAICE_INIT_VARIA |
TAUY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
343 |
SEAICE_INIT_VARIA |
uHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
344 |
SEAICE_INIT_VARIA |
vHeffExportCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
345 |
SEAICE_INIT_VARIA |
icevolMeanCell(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
347 |
SEAICE_INIT_VARIA |
saltWtrIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
348 |
SEAICE_INIT_VARIA |
frWtrIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
350 |
SEAICE_INIT_VARIA |
frWtrAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
351 |
SEAICE_INIT_VARIA |
AREAforAtmFW(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
384 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
385 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
387 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.1.5 _d 0) seaiceMaskU(i,j,bi,bj)=1.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
389 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.1.5 _d 0) seaiceMaskV(i,j,bi,bj)=1.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
406 |
SEAICE_INIT_VARIA |
seaiceMaskU(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
407 |
SEAICE_INIT_VARIA |
seaiceMaskV(i,J_obc,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
414 |
SEAICE_INIT_VARIA |
seaiceMaskU(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
415 |
SEAICE_INIT_VARIA |
seaiceMaskV(I_obc,j,bi,bj)= 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
425 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
428 |
SEAICE_INIT_VARIA |
AMASS (i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
430 |
SEAICE_INIT_VARIA |
seaiceMassC(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
431 |
SEAICE_INIT_VARIA |
seaiceMassU(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
432 |
SEAICE_INIT_VARIA |
seaiceMassV(i,j,bi,bj)=1000.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
550 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
579 |
SEAICE_INIT_VARIA |
opnWtrFrac(I,J,bi,bj) = 1. _d 0 - AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
580 |
SEAICE_INIT_VARIA |
fw2ObyRidge(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
676 |
SEAICE_INIT_VARIA |
ZETA(i,j,bi,bj) = HEFF(i,j,bi,bj)*(1.0 _d 11) |
|
./pkg/seaice/seaice_init_varia.F |
67 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
700 |
SEAICE_INIT_VARIA |
IF ( SEAICE_tensilFac .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_init_varia.F |
701 |
SEAICE_INIT_VARIA |
recip_tensilDepth = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
702 |
SEAICE_INIT_VARIA |
IF ( SEAICE_tensilDepth .GT. 0. _d 0 ) |
|
./pkg/seaice/seaice_init_varia.F |
703 |
SEAICE_INIT_VARIA |
& recip_tensilDepth = 1. _d 0 / SEAICE_tensilDepth |
|
./pkg/seaice/seaice_init_varia.F |
72 |
SEAICE_INIT_VARIA |
HEFFM(i,j,bi,bj)= 1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
74 |
SEAICE_INIT_VARIA |
& HEFFM(i,j,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
80 |
SEAICE_INIT_VARIA |
UVM(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
83 |
SEAICE_INIT_VARIA |
IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
96 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
97 |
SEAICE_INIT_VARIA |
k1AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
98 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
99 |
SEAICE_INIT_VARIA |
k2AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
110 |
SEAICE_ITD_PICKUP |
AREAITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
111 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
112 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
114 |
SEAICE_ITD_REMAP |
IF ( HEFFM(i,j,bi,bj) .NE. 0. _d 0 ) doRemapping(i,j) = .TRUE. |
|
./pkg/seaice/seaice_itd_remap.F |
123 |
SEAICE_ITD_REMAP |
hActualPre (i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
124 |
SEAICE_ITD_REMAP |
hActual (i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
125 |
SEAICE_ITD_REMAP |
dhActual(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
127 |
SEAICE_ITD_REMAP |
IF ( areaitdPre(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
132 |
SEAICE_ITD_REMAP |
IF ( AREAITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
205 |
SEAICE_ITD_REMAP |
& hLimitNew(i,j,k) = MAX( 3. _d 0*hActual(i,j,k) |
|
./pkg/seaice/seaice_itd_remap.F |
206 |
SEAICE_ITD_REMAP |
& - 2. _d 0 * hLimitNew(i,j,k-1), hLimit(k-1) ) |
|
./pkg/seaice/seaice_itd_remap.F |
241 |
SEAICE_ITD_REMAP |
IF ( dhActual(i,j,k) .LT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
246 |
SEAICE_ITD_REMAP |
IF ( etaMax 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
248 |
SEAICE_ITD_REMAP |
da0 = g0(i,j,k)*etaMax + g1(i,j,k)*etaMax*etaMax*0.5 _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
250 |
SEAICE_ITD_REMAP |
& * ( 1. _d 0 - hActual(i,j,k)/hActualPre(i,j,k)) |
|
./pkg/seaice/seaice_itd_remap.F |
294 |
SEAICE_ITD_REMAP |
dheff = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
295 |
SEAICE_ITD_REMAP |
darea = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
304 |
SEAICE_ITD_REMAP |
etaMin = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
335 |
SEAICE_ITD_REMAP |
darea = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
336 |
SEAICE_ITD_REMAP |
dheff = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
436 |
SEAICE_ITD_REMAP_LINEAR |
PARAMETER ( third = 0.333333333333333333333333333 _d 0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
437 |
SEAICE_ITD_REMAP_LINEAR |
PARAMETER ( sixth = 0.666666666666666666666666666 _d 0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
444 |
SEAICE_ITD_REMAP_LINEAR |
g0(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
445 |
SEAICE_ITD_REMAP_LINEAR |
g1(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
450 |
SEAICE_ITD_REMAP_LINEAR |
IF ( hActual(i,j) .LT. (2. _d 0*hL(i,j) + hR(i,j))*third ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
451 |
SEAICE_ITD_REMAP_LINEAR |
hR(i,j) = 3. _d 0 * hActual(i,j) - 2. _d 0 * hL(i,j) |
|
./pkg/seaice/seaice_itd_remap.F |
452 |
SEAICE_ITD_REMAP_LINEAR |
ELSEIF ( hActual(i,j).GT.(hL(i,j)+2. _d 0*hR(i,j))*third ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
453 |
SEAICE_ITD_REMAP_LINEAR |
hL(i,j) = 3. _d 0 * hActual(i,j) - 2. _d 0 * hR(i,j) |
|
./pkg/seaice/seaice_itd_remap.F |
458 |
SEAICE_ITD_REMAP_LINEAR |
recip_etaR = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
461 |
SEAICE_ITD_REMAP_LINEAR |
& recip_etaR = 1. _d 0 / (hR(i,j) - hL(i,j)) |
|
./pkg/seaice/seaice_itd_remap.F |
464 |
SEAICE_ITD_REMAP_LINEAR |
auxCoeff = 6. _d 0 * area(i,j)*recip_etaR |
|
./pkg/seaice/seaice_itd_remap.F |
467 |
SEAICE_ITD_REMAP_LINEAR |
g1(i,j) = 2. _d 0 * auxCoeff*recip_etaR*( etaNoR - 0.5 _d 0 ) |
|
./pkg/seaice/seaice_itd_remap.F |
471 |
SEAICE_ITD_REMAP_LINEAR |
hL(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
472 |
SEAICE_ITD_REMAP_LINEAR |
hR(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
82 |
SEAICE_ITD_REMAP |
PARAMETER ( third = 0.333333333333333333333333333 _d 0 ) |
|
./pkg/seaice/seaice_jacvec.F |
153 |
SEAICE_JACVEC |
reps = 1. _d 0/epsilon |
|
./pkg/seaice/seaice_jfnk.F |
123 |
SEAICE_JFNK |
JFNKtol = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
124 |
SEAICE_JFNK |
JFNKresidual = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
125 |
SEAICE_JFNK |
JFNKresidualKm1 = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
126 |
SEAICE_JFNK |
FGMRESeps = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
127 |
SEAICE_JFNK |
recip_deltaT = 1. _d 0 / SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_jfnk.F |
136 |
SEAICE_JFNK |
bdfFac = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
139 |
SEAICE_JFNK |
bdfFac = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
141 |
SEAICE_JFNK |
bdfFac = 0.5 _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
144 |
SEAICE_JFNK |
bdfAlpha = 1. _d 0 + bdfFac |
|
./pkg/seaice/seaice_jfnk.F |
150 |
SEAICE_JFNK |
uIceRes(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
151 |
SEAICE_JFNK |
vIceRes(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
152 |
SEAICE_JFNK |
duIce (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
153 |
SEAICE_JFNK |
dvIce (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
231 |
SEAICE_JFNK |
& .OR.JFNKresidual.EQ.0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
345 |
SEAICE_JFNK |
duIce(I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
346 |
SEAICE_JFNK |
dvIce(I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
357 |
SEAICE_JFNK |
IF ( SEAICE_monFreq .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_jfnk.F |
544 |
SEAICE_JFNK_UPDATE |
facLS = 1. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
595 |
SEAICE_JFNK_UPDATE |
facLS = - 0.5 _d 0 * ABS(facLS) |
|
./model/src/ini_cg2d.F |
131 |
INI_CG2D |
IF ( myNorm .NE. 0. _d 0 ) THEN |
|
./model/src/ini_cg2d.F |
132 |
INI_CG2D |
myNorm = 1. _d 0/myNorm |
|
./model/src/ini_cg2d.F |
134 |
INI_CG2D |
myNorm = 1. _d 0 |
|
./model/src/ini_cg2d.F |
222 |
INI_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg2d.F |
224 |
INI_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC |
|
./model/src/ini_cg2d.F |
57 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
58 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
59 |
INI_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
60 |
INI_CG2D |
pW(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
61 |
INI_CG2D |
pS(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
62 |
INI_CG2D |
pC(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
67 |
INI_CG2D |
cg2d_q(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
68 |
INI_CG2D |
cg2d_r(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
69 |
INI_CG2D |
cg2d_s(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
71 |
INI_CG2D |
cg2d_z(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
74 |
INI_CG2D |
cg2d_y(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
75 |
INI_CG2D |
cg2d_v(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
83 |
INI_CG2D |
cg2dNorm = 0. _d 0 |
|
./model/src/ini_cg2d.F |
85 |
INI_CG2D |
cg2dtolerance = 0. _d 0 |
|
./model/src/ini_cg2d.F |
90 |
INI_CG2D |
myNorm = 0. _d 0 |
|
./model/src/ini_cg2d.F |
95 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
96 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
115 |
SEAICE_KRYLOV |
picardTol = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
116 |
SEAICE_KRYLOV |
picardResidual = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
117 |
SEAICE_KRYLOV |
picardResidualKm1 = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
118 |
SEAICE_KRYLOV |
FGMRESeps = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
119 |
SEAICE_KRYLOV |
recip_deltaT = 1. _d 0 / SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_krylov.F |
136 |
SEAICE_KRYLOV |
bdfFac = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
139 |
SEAICE_KRYLOV |
bdfFac = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
141 |
SEAICE_KRYLOV |
bdfFac = 0.5 _d 0 |
|
./pkg/seaice/seaice_krylov.F |
144 |
SEAICE_KRYLOV |
bdfAlpha = 1. _d 0 + bdfFac |
|
./pkg/seaice/seaice_krylov.F |
150 |
SEAICE_KRYLOV |
uIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
151 |
SEAICE_KRYLOV |
vIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
152 |
SEAICE_KRYLOV |
uIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
153 |
SEAICE_KRYLOV |
vIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
193 |
SEAICE_KRYLOV |
uIceLin(I,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_krylov.F |
195 |
SEAICE_KRYLOV |
vIceLin(I,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_krylov.F |
209 |
SEAICE_KRYLOV |
IF (SEAICEbasalDragK2.GT.0. _d 0) CALL SEAICE_BOTTOMDRAG_COEFFS( |
|
./pkg/seaice/seaice_krylov.F |
293 |
SEAICE_KRYLOV |
& .OR.picardResidual.EQ.0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
309 |
SEAICE_KRYLOV |
uWork(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
310 |
SEAICE_KRYLOV |
vWork(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
412 |
SEAICE_KRYLOV |
IF ( SEAICE_monFreq .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
1230 |
SEAICE_LSR_CALC_COEFFS |
bdfAlphaOverDt = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1233 |
SEAICE_LSR_CALC_COEFFS |
bdfAlphaOverDt = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1235 |
SEAICE_LSR_CALC_COEFFS |
bdfAlphaOverDt = 1.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1241 |
SEAICE_LSR_CALC_COEFFS |
strImpCplFac = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1242 |
SEAICE_LSR_CALC_COEFFS |
IF ( SEAICEuseStrImpCpl ) strImpCplFac = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1249 |
SEAICE_LSR_CALC_COEFFS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1250 |
SEAICE_LSR_CALC_COEFFS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1256 |
SEAICE_LSR_CALC_COEFFS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1257 |
SEAICE_LSR_CALC_COEFFS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1271 |
SEAICE_LSR_CALC_COEFFS |
& * k1AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1282 |
SEAICE_LSR_CALC_COEFFS |
& * k2AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1293 |
SEAICE_LSR_CALC_COEFFS |
& * k1AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1303 |
SEAICE_LSR_CALC_COEFFS |
& * k2AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1343 |
SEAICE_LSR_CALC_COEFFS |
& ( ( 1. _d 0 - hFacM ) * ( UYY(I ,J ) + UYM(I ,J ) ) |
|
./pkg/seaice/seaice_lsr.F |
1344 |
SEAICE_LSR_CALC_COEFFS |
& + ( 1. _d 0 - hFacP ) * ( UYY(I ,J+1) - UYM(I ,J+1) ) ) |
|
./pkg/seaice/seaice_lsr.F |
1362 |
SEAICE_LSR_CALC_COEFFS |
& + 0.5 _d 0 * ( dragSym(I, J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1406 |
SEAICE_LSR_CALC_COEFFS |
& ( ( 1. _d 0 - hFacM ) * ( VXX(I ,J) + VXM(I ,J) ) |
|
./pkg/seaice/seaice_lsr.F |
1407 |
SEAICE_LSR_CALC_COEFFS |
& + ( 1. _d 0 - hFacP ) * ( VXX(I+1,J) - VXM(I+1,J) ) ) |
|
./pkg/seaice/seaice_lsr.F |
1425 |
SEAICE_LSR_CALC_COEFFS |
& + 0.5 _d 0 * ( dragSym(I,J, bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1444 |
SEAICE_LSR_CALC_COEFFS |
IF (BU(I,J,bi,bj).EQ.0 _d 0) BU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1445 |
SEAICE_LSR_CALC_COEFFS |
IF (BV(I,J,bi,bj).EQ.0 _d 0) BV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1511 |
SEAICE_LSR_RHSU |
sig11(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1512 |
SEAICE_LSR_RHSU |
sig12(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1522 |
SEAICE_LSR_RHSU |
& * 0.5 _d 0 * ( vIceC(I,J+1,bi,bj) + vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1523 |
SEAICE_LSR_RHSU |
& - 0.5 _d 0 * pressLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1534 |
SEAICE_LSR_RHSU |
& * 0.5 _d 0 * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1544 |
SEAICE_LSR_RHSU |
& * hFacM * 2. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1567 |
SEAICE_LSR_RHSU |
& * hFacM * 2. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1642 |
SEAICE_LSR_RHSV |
sig22(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1643 |
SEAICE_LSR_RHSV |
sig12(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1654 |
SEAICE_LSR_RHSV |
& * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1655 |
SEAICE_LSR_RHSV |
& - 0.5 _d 0 * pressLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1666 |
SEAICE_LSR_RHSV |
& * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1676 |
SEAICE_LSR_RHSV |
& * hFacM * 2. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1699 |
SEAICE_LSR_RHSV |
& * hFacM * 2. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
175 |
SEAICE_LSR |
recip_deltaT = 1. _d 0 / SEAICE_deltaTdyn |
|
./pkg/seaice/seaice_lsr.F |
1786 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1787 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1798 |
SEAICE_LSR_TRIDIAGU |
AA3 = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
183 |
SEAICE_LSR |
deltaC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
184 |
SEAICE_LSR |
press (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
185 |
SEAICE_LSR |
zeta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
186 |
SEAICE_LSR |
zetaZ (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
187 |
SEAICE_LSR |
eta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
188 |
SEAICE_LSR |
etaZ (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
189 |
SEAICE_LSR |
uIceC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
190 |
SEAICE_LSR |
vIceC (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
191 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
192 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1931 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1932 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1948 |
SEAICE_LSR_TRIDIAGV |
AA3 = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
204 |
SEAICE_LSR |
areaW(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
205 |
SEAICE_LSR |
areaS(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
212 |
SEAICE_LSR |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
214 |
SEAICE_LSR |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
268 |
SEAICE_LSR |
S1A=0.80 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
269 |
SEAICE_LSR |
S2A=0.80 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
339 |
SEAICE_LSR |
IF (SEAICEbasalDragK2.GT.0. _d 0) CALL SEAICE_BOTTOMDRAG_COEFFS( |
|
./pkg/seaice/seaice_lsr.F |
381 |
SEAICE_LSR |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
383 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
384 |
SEAICE_LSR |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
387 |
SEAICE_LSR |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
392 |
SEAICE_LSR |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
394 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
395 |
SEAICE_LSR |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
398 |
SEAICE_LSR |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
409 |
SEAICE_LSR |
& *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
411 |
SEAICE_LSR |
& *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
414 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j ,bi,bj)+uIceC(i+1, j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
416 |
SEAICE_LSR |
& *0.5 _d 0*( uIceC(i ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
464 |
SEAICE_LSR |
gUmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
465 |
SEAICE_LSR |
gVmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
553 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskU(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
559 |
SEAICE_LSR |
& / ( 1. _d 0 - seaiceMaskV(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
935 |
SEAICE_LSR |
resnorm = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
936 |
SEAICE_LSR |
EKnorm = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
937 |
SEAICE_LSR |
counter = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
943 |
SEAICE_LSR |
resnorm = resnorm + 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
948 |
SEAICE_LSR |
IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
949 |
SEAICE_LSR |
EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
952 |
SEAICE_LSR |
counter = counter + 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
961 |
SEAICE_LSR |
IF ( counter .gt. 0. _d 0 ) EKnorm = EKnorm/counter |
|
./pkg/seaice/seaice_model.F |
91 |
SEAICE_MODEL |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
92 |
SEAICE_MODEL |
vIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
95 |
SEAICE_MODEL |
SItrBucket(i,j,bi,bj,iTr) = 0. _d 0 |
|
./pkg/seaice/seaice_mom_advection.F |
124 |
SEAICE_MOM_ADVECTION |
hFacZ(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I-1,J ,bi,bj)-vVel(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
109 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
114 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J-1,bi,bj)-uVel(I ,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
117 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
119 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
98 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./model/src/ini_cg3d.F |
105 |
INI_CG3D |
myNorm = 0. _d 0 |
|
./model/src/ini_cg3d.F |
145 |
INI_CG3D |
IF (tmpFac.GT.0. ) tmpFac = 1. _d 0 / tmpFac |
|
./model/src/ini_cg3d.F |
169 |
INI_CG3D |
IF ( myNorm .NE. 0. _d 0 ) THEN |
|
./model/src/ini_cg3d.F |
170 |
INI_CG3D |
myNorm = 1. _d 0/myNorm |
|
./model/src/ini_cg3d.F |
172 |
INI_CG3D |
myNorm = 1. _d 0 |
|
./model/src/ini_cg3d.F |
220 |
INI_CG3D |
& / (1. _d 0 + locGamma ) |
|
./model/src/ini_cg3d.F |
283 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 |
|
./model/src/ini_cg3d.F |
293 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
300 |
INI_CG3D |
zMC(i,j,k,bi,bj) = 1. _d 0 / |
|
./model/src/ini_cg3d.F |
97 |
INI_CG3D |
& .AND. nh_Am2.NE.0. ) nh_Fac = 1. _d 0 / nh_Am2 |
|
./model/src/ini_cg3d.F |
98 |
INI_CG3D |
IF ( implicitIntGravWave ) igwFac = 1. _d 0 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
100 |
SEAICE_OCEANDRAG_COEFFS |
& .LE.(0.25 _d 0/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
101 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0.25 _d 0 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
108 |
SEAICE_OCEANDRAG_COEFFS |
ELSEIF ( TEMPVAR.LE.(0.25 _d 0/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
109 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0.25 _d 0 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
78 |
SEAICE_OCEANDRAG_COEFFS |
TEMPVAR = 0.25 _d 0*( |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
86 |
SEAICE_OCEANDRAG_COEFFS |
TEMPVAR = 0.25 _d 0*( |
|
./pkg/seaice/seaice_output.F |
188 |
SEAICE_OUTPUT |
IF ( SEAICE_taveFreq.GT.0. _d 0 ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
136 |
SEAICE_PRECONDITIONER |
coriFac = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
154 |
SEAICE_PRECONDITIONER |
rhsU (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
155 |
SEAICE_PRECONDITIONER |
rhsV (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
159 |
SEAICE_PRECONDITIONER |
duIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
160 |
SEAICE_PRECONDITIONER |
dvIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
488 |
SEAICE_PRECOND_RHSU |
zeros(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
498 |
SEAICE_PRECOND_RHSU |
IF ( fricFac+coriFac .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
502 |
SEAICE_PRECOND_RHSU |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
508 |
SEAICE_PRECOND_RHSU |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
515 |
SEAICE_PRECOND_RHSU |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
516 |
SEAICE_PRECOND_RHSU |
& ( dwatPre(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
519 |
SEAICE_PRECOND_RHSU |
& + dwatPre(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
524 |
SEAICE_PRECOND_RHSU |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) + 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
526 |
SEAICE_PRECOND_RHSU |
& *0.5 _d 0*(vIceLoc( i ,j,bi,bj)+vIceLoc( i ,j+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
528 |
SEAICE_PRECOND_RHSU |
& *0.5 _d 0*(vIceLoc(i-1,j,bi,bj)+vIceLoc(i-1,j+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
593 |
SEAICE_PRECOND_RHSV |
zeros(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
603 |
SEAICE_PRECOND_RHSV |
IF ( fricFac+coriFac .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_preconditioner.F |
607 |
SEAICE_PRECOND_RHSV |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
613 |
SEAICE_PRECOND_RHSV |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
620 |
SEAICE_PRECOND_RHSV |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
621 |
SEAICE_PRECOND_RHSV |
& ( dwatPre(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
624 |
SEAICE_PRECOND_RHSV |
& + dwatPre(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
629 |
SEAICE_PRECOND_RHSV |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) - 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
631 |
SEAICE_PRECOND_RHSV |
& *0.5 _d 0*(uIceLoc(i ,j ,bi,bj)+uIceLoc(i+1, j,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
633 |
SEAICE_PRECOND_RHSV |
& *0.5 _d 0*(uIceLoc(i ,j-1,bi,bj)+uIceLoc(i+1,j-1,bi,bj)) |
|
./pkg/seaice/seaice_prepare_ridging.F |
102 |
SEAICE_PREPARE_RIDGING |
IF ( HEFFITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
118 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,-1) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
119 |
SEAICE_PREPARE_RIDGING |
gSum(i,j,0) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
137 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,nITD).NE.0. _d 0 ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
152 |
SEAICE_PREPARE_RIDGING |
recip_gStar = 1. _d 0 / SEAICEgStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
156 |
SEAICE_PREPARE_RIDGING |
partFunc(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
160 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+gSum(i,j,k))*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
165 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+SEAICEgStar)*recip_gStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
175 |
SEAICE_PREPARE_RIDGING |
recip_astar = 1. _d 0 / SEAICEaStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
176 |
SEAICE_PREPARE_RIDGING |
tmp = 1. _d 0 / ( 1. _d 0 - EXP( -recip_astar ) ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
204 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
205 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
206 |
SEAICE_PREPARE_RIDGING |
hrExp(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
208 |
SEAICE_PREPARE_RIDGING |
ridgeRatio(i,j,k) = 1. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
218 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
220 |
SEAICE_PREPARE_RIDGING |
hrMin(i,j,k) = 2. _d 0 * hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
221 |
SEAICE_PREPARE_RIDGING |
hrMax(i,j,k) = 2. _d 0 * SQRT(hActual(i,j,k)*SEAICEhStar) |
|
./pkg/seaice/seaice_prepare_ridging.F |
228 |
SEAICE_PREPARE_RIDGING |
& 0.5 _d 0 * (hrMax(i,j,k)+hrMin(i,j,k))/hActual(i,j,k) |
|
./pkg/seaice/seaice_prepare_ridging.F |
239 |
SEAICE_PREPARE_RIDGING |
IF ( hActual(i,j,k) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
271 |
SEAICE_PREPARE_RIDGING |
& + partFunc(i,j,k)*( 1. _d 0 - 1. _d 0/ridgeRatio(i,j,k) ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
278 |
SEAICE_PREPARE_RIDGING |
IF ( ridgingModeNorm(i,j) .LE. 0. _d 0 ) |
|
./pkg/seaice/seaice_prepare_ridging.F |
279 |
SEAICE_PREPARE_RIDGING |
& ridgingModeNorm(i,j) = 1. _d 0 |
|
./pkg/seaice/seaice_prepare_ridging.F |
98 |
SEAICE_PREPARE_RIDGING |
hActual(i,j,k) = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
1270 |
SEAICE_READPARMS |
facOpenGrow = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
1271 |
SEAICE_READPARMS |
facOpenMelt = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
1272 |
SEAICE_READPARMS |
IF (SEAICE_doOpenWaterGrowth) facOpenGrow = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
1273 |
SEAICE_READPARMS |
IF (SEAICE_doOpenWaterMelt) facOpenMelt = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
1297 |
SEAICE_READPARMS |
IF ( SEAICE_emissivity .LT. 1. _d -04 ) THEN |
|
./pkg/seaice/seaice_readparms.F |
1314 |
SEAICE_READPARMS |
DIFF1 = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
1319 |
SEAICE_READPARMS |
IF ( SEAICEadvHeff .AND. SEAICEdiffKhHeff .EQ. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_readparms.F |
1326 |
SEAICE_READPARMS |
IF ( SEAICEadvArea .AND. SEAICEdiffKhArea .EQ. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_readparms.F |
1333 |
SEAICE_READPARMS |
IF ( SEAICEadvSnow .AND. SEAICEdiffKhSnow .EQ. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_readparms.F |
1340 |
SEAICE_READPARMS |
IF ( SEAICEadvSalt .AND. SEAICEdiffKhSalt .EQ. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_readparms.F |
243 |
SEAICE_READPARMS |
SEAICE_cf = 17. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
250 |
SEAICE_READPARMS |
SEAICEshearParm = 0.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
252 |
SEAICE_READPARMS |
SEAICEgStar = 0.15 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
257 |
SEAICE_READPARMS |
SEAICEhStar = 25. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
261 |
SEAICE_READPARMS |
SEAICEaStar = 0.05 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
265 |
SEAICE_READPARMS |
SEAICEmuRidging = 3. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
266 |
SEAICE_READPARMS |
SEAICEmaxRaft = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
267 |
SEAICE_READPARMS |
SEAICEsnowFracRidge = 0.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
323 |
SEAICE_READPARMS |
JFNKgamma_nonlin = 1. _d -05 |
|
./pkg/seaice/seaice_readparms.F |
324 |
SEAICE_READPARMS |
JFNKgamma_lin_min = 0.10 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
325 |
SEAICE_READPARMS |
JFNKgamma_lin_max = 0.99 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
328 |
SEAICE_READPARMS |
SEAICE_JFNKepsilon = 1. _d -06 |
|
./pkg/seaice/seaice_readparms.F |
330 |
SEAICE_READPARMS |
SEAICE_JFNKphi = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
332 |
SEAICE_READPARMS |
SEAICE_JFNKalpha = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
334 |
SEAICE_READPARMS |
SEAICE_evpDampC = -1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
335 |
SEAICE_READPARMS |
SEAICE_zetaMin = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
336 |
SEAICE_READPARMS |
SEAICE_zetaMaxFac = 2.5 _d 8 |
|
./pkg/seaice/seaice_readparms.F |
337 |
SEAICE_READPARMS |
SEAICEpresH0 = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
340 |
SEAICE_READPARMS |
SEAICE_evpTauRelax = -1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
341 |
SEAICE_READPARMS |
SEAICE_elasticParm = 0.33333333333333333333333333 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
361 |
SEAICE_READPARMS |
SEAICE_rhoIce = 0.91 _d +03 |
|
./pkg/seaice/seaice_readparms.F |
362 |
SEAICE_READPARMS |
SEAICE_rhoSnow = 330. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
364 |
SEAICE_READPARMS |
SEAICE_drag = 0.002 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
365 |
SEAICE_READPARMS |
OCEAN_drag = 0.001 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
366 |
SEAICE_READPARMS |
SEAICE_waterDrag = 5.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
367 |
SEAICE_READPARMS |
SEAICE_dryIceAlb = 0.75 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
368 |
SEAICE_READPARMS |
SEAICE_wetIceAlb = 0.66 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
369 |
SEAICE_READPARMS |
SEAICE_drySnowAlb = 0.84 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
370 |
SEAICE_READPARMS |
SEAICE_wetSnowAlb = 0.7 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
371 |
SEAICE_READPARMS |
HO = 0.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
381 |
SEAICE_READPARMS |
SEAICEbasalDragU0 = 5. _d -05 |
|
./pkg/seaice/seaice_readparms.F |
382 |
SEAICE_READPARMS |
SEAICEbasalDragK1 = 8. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
383 |
SEAICE_READPARMS |
SEAICEbasalDragK2 = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
386 |
SEAICE_READPARMS |
SEAICE_wetAlbTemp = -1. _d -3 |
|
./pkg/seaice/seaice_readparms.F |
390 |
SEAICE_READPARMS |
SEAICE_waterAlbedo = 0.1 _d +00 |
|
./pkg/seaice/seaice_readparms.F |
392 |
SEAICE_READPARMS |
SEAICE_strength = 2.75 _d +04 |
|
./pkg/seaice/seaice_readparms.F |
393 |
SEAICE_READPARMS |
SEAICE_cStar = 20. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
394 |
SEAICE_READPARMS |
SEAICEpressReplFac = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
395 |
SEAICE_READPARMS |
SEAICE_eccen = 2. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
396 |
SEAICE_READPARMS |
SEAICE_tensilFac = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
397 |
SEAICE_READPARMS |
SEAICE_tensilDepth = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
399 |
SEAICE_READPARMS |
SEAICE_dalton = 1.75 _d -03 |
|
./pkg/seaice/seaice_readparms.F |
416 |
SEAICE_READPARMS |
SEAICE_rhoAir = 1.3 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
417 |
SEAICE_READPARMS |
SEAICE_cpAir = 1004. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
418 |
SEAICE_READPARMS |
SEAICE_lhEvap = 2.50 _d 6 |
|
./pkg/seaice/seaice_readparms.F |
419 |
SEAICE_READPARMS |
SEAICE_lhFusion = 3.34 _d 5 |
|
./pkg/seaice/seaice_readparms.F |
420 |
SEAICE_READPARMS |
SEAICE_boltzmann = 5.670 _d -08 |
|
./pkg/seaice/seaice_readparms.F |
422 |
SEAICE_READPARMS |
SEAICE_emissivity = 5.5 _d -08/5.670 _d -08 |
|
./pkg/seaice/seaice_readparms.F |
426 |
SEAICE_READPARMS |
SEAICE_iceConduct = 2.1656 _d +00 |
|
./pkg/seaice/seaice_readparms.F |
427 |
SEAICE_READPARMS |
SEAICE_snowConduct = 3.1 _d -01 |
|
./pkg/seaice/seaice_readparms.F |
428 |
SEAICE_READPARMS |
SEAICE_snowThick = 0.15 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
429 |
SEAICE_READPARMS |
SEAICE_shortwave = 0.30 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
430 |
SEAICE_READPARMS |
SEAICE_salt0 = 0.0 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
431 |
SEAICE_READPARMS |
SEAICE_saltFrac = 0.0 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
440 |
SEAICE_READPARMS |
SEAICE_PDF(1) = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
442 |
SEAICE_READPARMS |
SEAICE_PDF(l) = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
465 |
SEAICE_READPARMS |
SEAICE_tempFrz0 = 0.0901 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
466 |
SEAICE_READPARMS |
SEAICE_dTempFrz_dS = -0.0575 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
470 |
SEAICE_READPARMS |
SEAICEstressFactor = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
471 |
SEAICE_READPARMS |
SEAICE_tauAreaObsRelax = -999. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
483 |
SEAICE_READPARMS |
SEAICE_LSRrelaxU = 0.95 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
484 |
SEAICE_READPARMS |
SEAICE_LSRrelaxV = 0.95 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
495 |
SEAICE_READPARMS |
LSR_ERROR = 0.0001 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
500 |
SEAICE_READPARMS |
SEAICE_hice_reg = 0.05 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
501 |
SEAICE_READPARMS |
SEAICE_area_max = 1.00 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
503 |
SEAICE_READPARMS |
SEAICE_airTurnAngle = 0.0 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
504 |
SEAICE_READPARMS |
SEAICE_waterTurnAngle = 0.0 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
505 |
SEAICE_READPARMS |
MIN_ATEMP = -50. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
506 |
SEAICE_READPARMS |
MIN_LWDOWN = 60. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
507 |
SEAICE_READPARMS |
MIN_TICE = -50. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
509 |
SEAICE_READPARMS |
SEAICE_EPS = 1. _d -10 |
|
./pkg/seaice/seaice_readparms.F |
576 |
SEAICE_READPARMS |
mult_ice_export = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
577 |
SEAICE_READPARMS |
mult_ice = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
583 |
SEAICE_READPARMS |
SEAICE_clamp_salt = 27.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
584 |
SEAICE_READPARMS |
SEAICE_clamp_theta = 0.0001 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
585 |
SEAICE_READPARMS |
SEAICE_cutoff_area = 0.0001 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
586 |
SEAICE_READPARMS |
SEAICE_cutoff_heff = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
588 |
SEAICE_READPARMS |
mult_smrsst = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
589 |
SEAICE_READPARMS |
mult_smrsss = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
590 |
SEAICE_READPARMS |
mult_smrarea = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
591 |
SEAICE_READPARMS |
wsmrarea0 = 0.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
592 |
SEAICE_READPARMS |
wmean_smrarea = 0.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
673 |
SEAICE_READPARMS |
IF (SEAICE_PDF(l).EQ.UNSET_RL) SEAICE_PDF(l) = 0. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
735 |
SEAICE_READPARMS |
IF ( SEAICE_elasticParm .LE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_readparms.F |
741 |
SEAICE_READPARMS |
IF ( SEAICE_evpTauRelax .LE. 0. _d 0 ) |
|
./pkg/seaice/seaice_readparms.F |
755 |
SEAICE_READPARMS |
SEAICE_evpAlpha = 2. _d 0 * SEAICE_evpTauRelax/SEAICE_deltaTevp |
|
./pkg/seaice/seaice_readparms.F |
757 |
SEAICE_READPARMS |
SEAICE_evpTauRelax = 0.5 _d 0 *SEAICE_evpAlpha*SEAICE_deltaTevp |
|
./pkg/seaice/seaice_readparms.F |
761 |
SEAICE_READPARMS |
IF ( SEAICEaEVPcStar .EQ.UNSET_RL) SEAICEaEVPcStar =4. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
762 |
SEAICE_READPARMS |
IF (SEAICEaEVPalphaMin.EQ.UNSET_RL) SEAICEaEVPalphaMin=5. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
865 |
SEAICE_READPARMS |
SEAICE_mcPheeTaper = 0.0 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
913 |
SEAICE_READPARMS |
SEAICE_frazilFrac = 1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
968 |
SEAICE_READPARMS |
& SEAICEdiffKhArea = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
104 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
105 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
107 |
SEAICE_REG_RIDGE |
d_AREAbyRLX(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
108 |
SEAICE_REG_RIDGE |
d_HEFFbyRLX(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
111 |
SEAICE_REG_RIDGE |
saltFluxAdjust(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
138 |
SEAICE_REG_RIDGE |
& AREA(I,J,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
140 |
SEAICE_REG_RIDGE |
d_HEFFbyRLX(i,j,bi,bj) = 1. _d 1 * siEps |
|
./pkg/seaice/seaice_reg_ridge.F |
161 |
SEAICE_REG_RIDGE |
tmpscal1=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
162 |
SEAICE_REG_RIDGE |
tmpscal2=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
163 |
SEAICE_REG_RIDGE |
tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
166 |
SEAICE_REG_RIDGE |
tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
169 |
SEAICE_REG_RIDGE |
AREAITD(I,J,IT,bi,bj)=MAX(AREAITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
186 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj)=MAX(-HEFF(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
188 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj)=MAX(-HSNOW(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
190 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
207 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
208 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
219 |
SEAICE_REG_RIDGE |
tmpscal1=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
220 |
SEAICE_REG_RIDGE |
tmpscal2=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
241 |
SEAICE_REG_RIDGE |
IF ( (HEFFITD(I,J,IT,bi,bj) .EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
242 |
SEAICE_REG_RIDGE |
& (HSNOWITD(I,J,IT,bi,bj).EQ.0. _d 0)) |
|
./pkg/seaice/seaice_reg_ridge.F |
243 |
SEAICE_REG_RIDGE |
& AREAITD(I,J,IT,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
254 |
SEAICE_REG_RIDGE |
IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
255 |
SEAICE_REG_RIDGE |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
264 |
SEAICE_REG_RIDGE |
recip_nitd = 1. _d 0 / float(SEAICE_multDim) |
|
./pkg/seaice/seaice_reg_ridge.F |
305 |
SEAICE_REG_RIDGE |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
322 |
SEAICE_REG_RIDGE |
tmpscal1itd(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
323 |
SEAICE_REG_RIDGE |
tmpscal2itd(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
324 |
SEAICE_REG_RIDGE |
tmpscal3itd(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
164 |
SEAICE_SOLVE4TEMP |
C1= 2.7798202 _d -06 |
|
./pkg/seaice/seaice_solve4temp.F |
165 |
SEAICE_SOLVE4TEMP |
C2= -2.6913393 _d -03 |
|
./pkg/seaice/seaice_solve4temp.F |
166 |
SEAICE_SOLVE4TEMP |
C3= 0.97920849 _d +00 |
|
./pkg/seaice/seaice_solve4temp.F |
167 |
SEAICE_SOLVE4TEMP |
C4= -158.63779 _d +00 |
|
./pkg/seaice/seaice_solve4temp.F |
168 |
SEAICE_SOLVE4TEMP |
C5= 9653.1925 _d +00 |
|
./pkg/seaice/seaice_solve4temp.F |
169 |
SEAICE_SOLVE4TEMP |
QS1=0.622 _d +00/1013.0 _d +00 |
|
./pkg/seaice/seaice_solve4temp.F |
171 |
SEAICE_SOLVE4TEMP |
lnTEN = LOG(10.0 _d 0) |
|
./pkg/seaice/seaice_solve4temp.F |
172 |
SEAICE_SOLVE4TEMP |
aa1 = 2663.5 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
173 |
SEAICE_SOLVE4TEMP |
aa2 = 12.537 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
174 |
SEAICE_SOLVE4TEMP |
bb1 = 0.622 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
175 |
SEAICE_SOLVE4TEMP |
bb2 = 1.0 _d 0 - bb1 |
|
./pkg/seaice/seaice_solve4temp.F |
176 |
SEAICE_SOLVE4TEMP |
Ppascals = 100000. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
208 |
SEAICE_SOLVE4TEMP |
recip_HCUT = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
209 |
SEAICE_SOLVE4TEMP |
IF ( HCUT.GT.0. _d 0 ) recip_HCUT = 1. _d 0 / HCUT |
|
./pkg/seaice/seaice_solve4temp.F |
225 |
SEAICE_SOLVE4TEMP |
F_ia (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
226 |
SEAICE_SOLVE4TEMP |
IcePenetSW(I,J)= 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
227 |
SEAICE_SOLVE4TEMP |
FWsublim (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
231 |
SEAICE_SOLVE4TEMP |
iceOrNot (I,J) = HICE_ACTUAL(I,J) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
232 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
233 |
SEAICE_SOLVE4TEMP |
qhice (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
234 |
SEAICE_SOLVE4TEMP |
dqh_dTs (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
235 |
SEAICE_SOLVE4TEMP |
F_lh (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
236 |
SEAICE_SOLVE4TEMP |
F_lwu (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
237 |
SEAICE_SOLVE4TEMP |
F_sens (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
257 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = 0.97 _d 0*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
266 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = 0.97 _d 0*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
278 |
SEAICE_SOLVE4TEMP |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
311 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
312 |
SEAICE_SOLVE4TEMP |
penetSWFrac = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
314 |
SEAICE_SOLVE4TEMP |
penetSWFrac = XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
317 |
SEAICE_SOLVE4TEMP |
IcePenetSW(I,J) = -(1.0 _d 0 - ALB(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = (1.0 _d 0 - ALB(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
321 |
SEAICE_SOLVE4TEMP |
& *(1.0 _d 0 - penetSWFrac)* SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
379 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
389 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/( Ppascals -(1.0 _d 0 - bb1)*mm_pi ) |
|
./pkg/seaice/seaice_solve4temp.F |
419 |
SEAICE_SOLVE4TEMP |
dFia_dTs(I,J) = 4.0 _d 0*D3(I,J)*t3 + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
479 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0.3 _d 0 *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
480 |
SEAICE_SOLVE4TEMP |
IcePenetSW(I,J)= 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
504 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/( Ppascals -(1.0 _d 0 - bb1)*mm_pi ) |
|
./pkg/seaice/seaice_solve4temp.F |
539 |
SEAICE_SOLVE4TEMP |
IF (F_c(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
541 |
SEAICE_SOLVE4TEMP |
F_ia_net = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
543 |
SEAICE_SOLVE4TEMP |
F_io_net = 0.0 _d 0 |
|
./pkg/seaice/seaice_summary.F |
149 |
SEAICE_SUMMARY |
IF ( SEAICEbasalDragK2 .NE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_tracer_phys.F |
103 |
SEAICE_TRACER_PHYS |
growFact=1. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
104 |
SEAICE_TRACER_PHYS |
meltPart=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
109 |
SEAICE_TRACER_PHYS |
& +SItrFromOcean(i,j)*(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
111 |
SEAICE_TRACER_PHYS |
& -HEFFpost*SItrFromOcean(i,j)*(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
116 |
SEAICE_TRACER_PHYS |
growFact=1. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
121 |
SEAICE_TRACER_PHYS |
& +SItrFromFlood(i,j) *(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
125 |
SEAICE_TRACER_PHYS |
& -HEFFpost*SItrFromFlood(i,j)*(1. _d 0 - growFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
147 |
SEAICE_TRACER_PHYS |
expandFact=1. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
151 |
SEAICE_TRACER_PHYS |
& +SItrExpand(i,j)*(1. _d 0 - expandFact) |
|
./pkg/seaice/seaice_tracer_phys.F |
161 |
SEAICE_TRACER_PHYS |
if (( (SItrHEFF(i,j,bi,bj,5).GT.0. _d 0).AND.(SItrMate(iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
162 |
SEAICE_TRACER_PHYS |
& .EQ.'HEFF') ).OR.( (SItrAREA(i,j,bi,bj,3).GT.0. _d 0).AND. |
|
./pkg/seaice/seaice_tracer_phys.F |
167 |
SEAICE_TRACER_PHYS |
SItracer(i,j,bi,bj,iTr)=0. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
181 |
SEAICE_TRACER_PHYS |
& MAX(0. _d 0, SItrAREA(i,j,bi,bj,1)-SItrAREA(i,j,bi,bj,2)) |
|
./pkg/seaice/seaice_tracer_phys.F |
185 |
SEAICE_TRACER_PHYS |
tmpscal1=1. _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
228 |
SEAICE_TRACER_PHYS |
& SItrBucket(i,j,bi,bj,iTr)=0. _d 0 |
|
./model/src/ini_cori.F |
113 |
INI_CORI |
fCori(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cori.F |
114 |
INI_CORI |
fCoriG(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cori.F |
115 |
INI_CORI |
fCoriCos(i,j,bi,bj)=0. _d 0 |
|
./model/src/ini_cori.F |
73 |
INI_CORI |
facGrid = 1. _d 0 |
|
./model/src/ini_cori.F |
95 |
INI_CORI |
& 2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
97 |
INI_CORI |
& 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad) |
|
./model/src/ini_cori.F |
99 |
INI_CORI |
& 2. _d 0*omega*cos(_yC(i,j,bi,bj)*deg2rad) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
151 |
SHAP_FILT_APPLY_UV |
dKE_shap(i,j) = 0.5 _d 0 *( |
|
./pkg/shap_filt/shap_filt_computvort.F |
110 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_computvort.F |
132 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_computvort.F |
154 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_computvort.F |
173 |
SHAP_FILT_COMPUTVORT |
vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
52 |
SHAP_FILT_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
90 |
SHAP_FILT_RELVORT3 |
AZcorner = 0.75 _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
61 |
SHAP_FILT_UV_S1 |
noSlipFact = Shap_noSlip*2. _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
173 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
175 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
182 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
184 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
191 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
193 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
210 |
SHAP_FILT_UV_S2 |
tmpFldU(i,j,k,bi,bj) = -0.125 _d 0* |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
226 |
SHAP_FILT_UV_S2 |
tmpFldV(i,j,k,bi,bj) = -0.125 _d 0* |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
80 |
SHAP_FILT_UV_S2 |
hDiv(i,j) = 0. _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
137 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdU(i,j)*_maskW(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
181 |
SHAP_FILT_UV_S2C |
& -0.125 _d 0*tmpGrdV(i,j)*_maskS(i,j,k,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
60 |
SHAP_FILT_UV_S2C |
noSlipFact = Shap_noSlip*2. _d 0 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
60 |
SHAP_FILT_UV_S4 |
noSlipFact = Shap_noSlip*2. _d 0 |
|
./model/src/ini_cylinder_grid.F |
109 |
INI_CYLINDER_GRID |
thisRad = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_cylinder_grid.F |
124 |
INI_CYLINDER_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
132 |
INI_CYLINDER_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
140 |
INI_CYLINDER_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
141 |
INI_CYLINDER_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
89 |
INI_CYLINDER_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_cylinder_grid.F |
91 |
INI_CYLINDER_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_depths.F |
79 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_depths.F |
80 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_depths.F |
81 |
INI_DEPTHS |
topoZ(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_cost_final.F |
68 |
SHELFICE_COST_FINAL |
f_shelfice = 0. _d 0 |
|
./pkg/shelfice/shelfice_cost_final.F |
69 |
SHELFICE_COST_FINAL |
f_shifwflx = 0. _d 0 |
|
./pkg/shelfice/shelfice_cost_final.F |
71 |
SHELFICE_COST_FINAL |
no_shifwflx= 0. _d 0 |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
109 |
SHELFICE_COST_SHIFWFLX |
fcthread = 0. _d 0 |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
147 |
SHELFICE_COST_SHIFWFLX |
fctile = 0. _d 0 |
|
./pkg/shelfice/shelfice_cost_shifwflx.F |
155 |
SHELFICE_COST_SHIFWFLX |
& + 1. _d 0 |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
170 |
SHELFICE_FORCING_S |
drLoc = MAX( drLoc, 0. _d 0) |
|
./pkg/shelfice/shelfice_forcing.F |
176 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
178 |
SHELFICE_FORCING_S |
drLoc = MAX( drLoc, 0. _d 0) |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
78 |
SHELFICE_FORCING_T |
drLoc = MAX( drLoc, 0. _d 0) |
|
./pkg/shelfice/shelfice_forcing.F |
84 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
86 |
SHELFICE_FORCING_T |
drLoc = MAX( drLoc, 0. _d 0) |
|
./pkg/shelfice/shelfice_init_depths.F |
53 |
SHELFICE_INIT_DEPTHS |
R_shelfIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
107 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
108 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,1,bi,bj) = 1. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
130 |
SHELFICE_INIT_FIXED |
wshifwflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
80 |
SHELFICE_INIT_FIXED |
shelficeMassInit (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
81 |
SHELFICE_INIT_FIXED |
shelficeLoadAnomaly(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
82 |
SHELFICE_INIT_FIXED |
shelfIceMassDynTendency(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_fixed.F |
98 |
SHELFICE_INIT_FIXED |
maskSHI(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
109 |
SHELFICE_INIT_VARIA |
cMeanSHIforT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
110 |
SHELFICE_INIT_VARIA |
cMeanSHIforS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
118 |
SHELFICE_INIT_VARIA |
objf_shelfice(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
119 |
SHELFICE_INIT_VARIA |
objf_shifwflx(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
120 |
SHELFICE_INIT_VARIA |
num_shifwflx(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
41 |
SHELFICE_INIT_VARIA |
shelficeForcingT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
42 |
SHELFICE_INIT_VARIA |
shelficeForcingS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
43 |
SHELFICE_INIT_VARIA |
shelficeHeatFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
44 |
SHELFICE_INIT_VARIA |
shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
45 |
SHELFICE_INIT_VARIA |
shiTransCoeffT (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
46 |
SHELFICE_INIT_VARIA |
shiTransCoeffS (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
47 |
SHELFICE_INIT_VARIA |
shelficeMass (i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_init_varia.F |
61 |
SHELFICE_INIT_VARIA |
shiTransCoeffS(i,j,bi,bj) = 5.05 _d -3 * |
|
./pkg/shelfice/shelfice_output.F |
108 |
SHELFICE_OUTPUT |
SHELFICE_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_output.F |
194 |
SHELFICE_OUTPUT |
SHELFICE_timeAve(bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
54 |
INI_DYNVARS |
uVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
55 |
INI_DYNVARS |
vVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
56 |
INI_DYNVARS |
wVel (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
57 |
INI_DYNVARS |
theta(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
58 |
INI_DYNVARS |
salt (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
60 |
INI_DYNVARS |
gU(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
61 |
INI_DYNVARS |
gV(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
63 |
INI_DYNVARS |
gT(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
64 |
INI_DYNVARS |
gS(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
67 |
INI_DYNVARS |
guNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
68 |
INI_DYNVARS |
gvNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
69 |
INI_DYNVARS |
gtNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
70 |
INI_DYNVARS |
gsNm(i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
71 |
INI_DYNVARS |
guNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
72 |
INI_DYNVARS |
gvNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
73 |
INI_DYNVARS |
gtNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
74 |
INI_DYNVARS |
gsNm(i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
76 |
INI_DYNVARS |
guNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
77 |
INI_DYNVARS |
gvNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
78 |
INI_DYNVARS |
gtNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
79 |
INI_DYNVARS |
gsNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
81 |
INI_DYNVARS |
totPhiHyd (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
82 |
INI_DYNVARS |
rhoInSitu (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
83 |
INI_DYNVARS |
IVDConvCount(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
85 |
INI_DYNVARS |
dU_psFacX (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
86 |
INI_DYNVARS |
dV_psFacY (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
95 |
INI_DYNVARS |
etaN(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
96 |
INI_DYNVARS |
etaH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
97 |
INI_DYNVARS |
phiHydLow(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_dynvars.F |
98 |
INI_DYNVARS |
hMixLayer(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
103 |
SHELFICE_READPARMS |
SHELFICElatentHeat = 334.0 _d 3 |
|
./pkg/shelfice/shelfice_readparms.F |
104 |
SHELFICE_READPARMS |
SHELFICEHeatCapacity_Cp = 2000.0 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
105 |
SHELFICE_READPARMS |
rhoShelfIce = 917.0 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
106 |
SHELFICE_READPARMS |
SHELFICEheatTransCoeff = 1.0 _d -04 |
|
./pkg/shelfice/shelfice_readparms.F |
108 |
SHELFICE_READPARMS |
SHELFICEkappa = 1.54 _d -06 |
|
./pkg/shelfice/shelfice_readparms.F |
109 |
SHELFICE_READPARMS |
SHELFICEthetaSurface = - 20.0 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
121 |
SHELFICE_READPARMS |
shiCdrag = 0.0015 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
122 |
SHELFICE_READPARMS |
shiZetaN = 0.052 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
123 |
SHELFICE_READPARMS |
shiRc = 0.2 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
124 |
SHELFICE_READPARMS |
shiPrandtl = 13.8 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
125 |
SHELFICE_READPARMS |
shiSchmidt = 2432.0 _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
126 |
SHELFICE_READPARMS |
shiKinVisc = 1.95 _d -6 |
|
./pkg/shelfice/shelfice_readparms.F |
128 |
SHELFICE_READPARMS |
mult_shelfice = 0. _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
129 |
SHELFICE_READPARMS |
mult_shifwflx = 0. _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
130 |
SHELFICE_READPARMS |
wshifwflx0 = 0. _d 0 |
|
./pkg/shelfice/shelfice_readparms.F |
165 |
SHELFICE_READPARMS |
& 5.05 _d -3 *SHELFICEheatTransCoeff |
|
./pkg/shelfice/shelfice_readparms.F |
178 |
SHELFICE_READPARMS |
IF ( SHELFICEDragQuadratic.EQ.0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
141 |
SHELFICE_THERMODYNAMICS |
recip_shiKarman= 1. _d 0 / 0.4 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
142 |
SHELFICE_THERMODYNAMICS |
shiLo = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
147 |
SHELFICE_THERMODYNAMICS |
gammaTmoleT = 12.5 _d 0 * shiPr - 6. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
148 |
SHELFICE_THERMODYNAMICS |
gammaTmoleS = 12.5 _d 0 * shiSc - 6. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
150 |
SHELFICE_THERMODYNAMICS |
etastar = 1. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
151 |
SHELFICE_THERMODYNAMICS |
gammaTurbConst = 1. _d 0 / (2. _d 0 * shiZetaN*etastar) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
158 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
159 |
SHELFICE_THERMODYNAMICS |
shiTransCoeffS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
168 |
SHELFICE_THERMODYNAMICS |
recip_latentHeat = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
169 |
SHELFICE_THERMODYNAMICS |
IF ( SHELFICElatentHeat .NE. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
170 |
SHELFICE_THERMODYNAMICS |
& recip_latentHeat = 1. _d 0/SHELFICElatentHeat |
|
./pkg/shelfice/shelfice_thermodynamics.F |
172 |
SHELFICE_THERMODYNAMICS |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./pkg/shelfice/shelfice_thermodynamics.F |
173 |
SHELFICE_THERMODYNAMICS |
cFac = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
174 |
SHELFICE_THERMODYNAMICS |
IF ( SHELFICEconserve ) cFac = 1. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
177 |
SHELFICE_THERMODYNAMICS |
rFac = 1. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
178 |
SHELFICE_THERMODYNAMICS |
IF ( SHELFICEconserve .AND. useRealFreshWaterFlux ) rFac = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
181 |
SHELFICE_THERMODYNAMICS |
dFac = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
182 |
SHELFICE_THERMODYNAMICS |
IF ( SHELFICEadvDiffHeatFlux ) dFac = 1. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
183 |
SHELFICE_THERMODYNAMICS |
fwflxFac = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
185 |
SHELFICE_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
186 |
SHELFICE_THERMODYNAMICS |
a1 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
187 |
SHELFICE_THERMODYNAMICS |
a2 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
188 |
SHELFICE_THERMODYNAMICS |
c0 = 0.0901 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
189 |
SHELFICE_THERMODYNAMICS |
b = -7.61 _d -4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
193 |
SHELFICE_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
194 |
SHELFICE_THERMODYNAMICS |
a1 = 1.710523 _d -3 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
195 |
SHELFICE_THERMODYNAMICS |
a2 = -2.154996 _d -4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
196 |
SHELFICE_THERMODYNAMICS |
b = -7.53 _d -4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
197 |
SHELFICE_THERMODYNAMICS |
c0 = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
202 |
SHELFICE_THERMODYNAMICS |
IF ( convertFW2SaltLoc .EQ. -1. ) convertFW2SaltLoc = 33.4 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
209 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
210 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
211 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
212 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
214 |
SHELFICE_THERMODYNAMICS |
uStarDiag (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
225 |
SHELFICE_THERMODYNAMICS |
xx_shifwflx_loc(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
276 |
SHELFICE_THERMODYNAMICS |
IF ( tmpFac.GT.0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
282 |
SHELFICE_THERMODYNAMICS |
IF ( tmpFac.GT.0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
312 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
315 |
SHELFICE_THERMODYNAMICS |
drKp1 = MAX( drKp1, 0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
316 |
SHELFICE_THERMODYNAMICS |
recip_drLoc = 1. _d 0 / |
|
./pkg/shelfice/shelfice_thermodynamics.F |
357 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
367 |
SHELFICE_THERMODYNAMICS |
IF ( fCori(I,J,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
369 |
SHELFICE_THERMODYNAMICS |
& / ABS(fCori(I,J,bi,bj) * 5.0 _d 0 * shiKinVisc)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
401 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
428 |
SHELFICE_THERMODYNAMICS |
& * ( cFac*sLoc(I,J) + (1. _d 0-cFac)*convertFW2SaltLoc ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
432 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
433 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
434 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
435 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
451 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
455 |
SHELFICE_THERMODYNAMICS |
fwflxFac = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
474 |
SHELFICE_THERMODYNAMICS |
& * SHELFICEkappa * ( 1. _d 0 - dFac ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
482 |
SHELFICE_THERMODYNAMICS |
recip_aqe = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
483 |
SHELFICE_THERMODYNAMICS |
IF ( aqe .NE. 0. _d 0 ) recip_aqe = 0.5 _d 0/aqe |
|
./pkg/shelfice/shelfice_thermodynamics.F |
491 |
SHELFICE_THERMODYNAMICS |
discrim = bqe*bqe - 4. _d 0*aqe*cqe |
|
./pkg/shelfice/shelfice_thermodynamics.F |
494 |
SHELFICE_THERMODYNAMICS |
IF ( discrim .LT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
525 |
SHELFICE_THERMODYNAMICS |
IF ( saltFreeze .LT. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
535 |
SHELFICE_THERMODYNAMICS |
& * ( 1. _d 0 - sLoc(I,J) / saltFreeze ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
559 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
560 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
561 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
562 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
123 |
SHELFICE_U_DRAG |
uSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
139 |
SHELFICE_U_DRAG |
uSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
146 |
SHELFICE_U_DRAG |
& )*recip_hFacW(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
160 |
SHELFICE_U_DRAG |
uSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
83 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = 0. _d 0 |
|
./pkg/shelfice/shelfice_u_drag.F |
90 |
SHELFICE_U_DRAG |
uDragTerms(i,j) = 0. _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
123 |
SHELFICE_V_DRAG |
vSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
139 |
SHELFICE_V_DRAG |
vSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
146 |
SHELFICE_V_DRAG |
& )*recip_hFacS(i,j,k,bi,bj)*0.25 _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
160 |
SHELFICE_V_DRAG |
vSq = 0. _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
83 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = 0. _d 0 |
|
./pkg/shelfice/shelfice_v_drag.F |
90 |
SHELFICE_V_DRAG |
vDragTerms(i,j) = 0. _d 0 |
|
./model/src/ini_eos.F |
121 |
INI_EOS |
eosJMDCFw(1) = 999.842594 _d +00 |
|
./model/src/ini_eos.F |
122 |
INI_EOS |
eosJMDCFw(2) = 6.793952 _d -02 |
|
./model/src/ini_eos.F |
123 |
INI_EOS |
eosJMDCFw(3) = - 9.095290 _d -03 |
|
./model/src/ini_eos.F |
124 |
INI_EOS |
eosJMDCFw(4) = 1.001685 _d -04 |
|
./model/src/ini_eos.F |
125 |
INI_EOS |
eosJMDCFw(5) = - 1.120083 _d -06 |
|
./model/src/ini_eos.F |
126 |
INI_EOS |
eosJMDCFw(6) = 6.536332 _d -09 |
|
./model/src/ini_eos.F |
128 |
INI_EOS |
eosJMDCSw(1) = 8.24493 _d -01 |
|
./model/src/ini_eos.F |
129 |
INI_EOS |
eosJMDCSw(2) = - 4.0899 _d -03 |
|
./model/src/ini_eos.F |
130 |
INI_EOS |
eosJMDCSw(3) = 7.6438 _d -05 |
|
./model/src/ini_eos.F |
131 |
INI_EOS |
eosJMDCSw(4) = - 8.2467 _d -07 |
|
./model/src/ini_eos.F |
132 |
INI_EOS |
eosJMDCSw(5) = 5.3875 _d -09 |
|
./model/src/ini_eos.F |
133 |
INI_EOS |
eosJMDCSw(6) = - 5.72466 _d -03 |
|
./model/src/ini_eos.F |
134 |
INI_EOS |
eosJMDCSw(7) = 1.0227 _d -04 |
|
./model/src/ini_eos.F |
135 |
INI_EOS |
eosJMDCSw(8) = - 1.6546 _d -06 |
|
./model/src/ini_eos.F |
136 |
INI_EOS |
eosJMDCSw(9) = 4.8314 _d -04 |
|
./model/src/ini_eos.F |
139 |
INI_EOS |
eosJMDCKFw(1) = 1.965933 _d +04 |
|
./model/src/ini_eos.F |
140 |
INI_EOS |
eosJMDCKFw(2) = 1.444304 _d +02 |
|
./model/src/ini_eos.F |
141 |
INI_EOS |
eosJMDCKFw(3) = - 1.706103 _d +00 |
|
./model/src/ini_eos.F |
142 |
INI_EOS |
eosJMDCKFw(4) = 9.648704 _d -03 |
|
./model/src/ini_eos.F |
143 |
INI_EOS |
eosJMDCKFw(5) = - 4.190253 _d -05 |
|
./model/src/ini_eos.F |
145 |
INI_EOS |
eosJMDCKSw(1) = 5.284855 _d +01 |
|
./model/src/ini_eos.F |
146 |
INI_EOS |
eosJMDCKSw(2) = - 3.101089 _d -01 |
|
./model/src/ini_eos.F |
147 |
INI_EOS |
eosJMDCKSw(3) = 6.283263 _d -03 |
|
./model/src/ini_eos.F |
148 |
INI_EOS |
eosJMDCKSw(4) = - 5.084188 _d -05 |
|
./model/src/ini_eos.F |
149 |
INI_EOS |
eosJMDCKSw(5) = 3.886640 _d -01 |
|
./model/src/ini_eos.F |
150 |
INI_EOS |
eosJMDCKSw(6) = 9.085835 _d -03 |
|
./model/src/ini_eos.F |
151 |
INI_EOS |
eosJMDCKSw(7) = - 4.619924 _d -04 |
|
./model/src/ini_eos.F |
153 |
INI_EOS |
eosJMDCKP( 1) = 3.186519 _d +00 |
|
./model/src/ini_eos.F |
154 |
INI_EOS |
eosJMDCKP( 2) = 2.212276 _d -02 |
|
./model/src/ini_eos.F |
155 |
INI_EOS |
eosJMDCKP( 3) = - 2.984642 _d -04 |
|
./model/src/ini_eos.F |
156 |
INI_EOS |
eosJMDCKP( 4) = 1.956415 _d -06 |
|
./model/src/ini_eos.F |
157 |
INI_EOS |
eosJMDCKP( 5) = 6.704388 _d -03 |
|
./model/src/ini_eos.F |
158 |
INI_EOS |
eosJMDCKP( 6) = - 1.847318 _d -04 |
|
./model/src/ini_eos.F |
159 |
INI_EOS |
eosJMDCKP( 7) = 2.059331 _d -07 |
|
./model/src/ini_eos.F |
160 |
INI_EOS |
eosJMDCKP( 8) = 1.480266 _d -04 |
|
./model/src/ini_eos.F |
161 |
INI_EOS |
eosJMDCKP( 9) = 2.102898 _d -04 |
|
./model/src/ini_eos.F |
162 |
INI_EOS |
eosJMDCKP(10) = - 1.202016 _d -05 |
|
./model/src/ini_eos.F |
163 |
INI_EOS |
eosJMDCKP(11) = 1.394680 _d -07 |
|
./model/src/ini_eos.F |
164 |
INI_EOS |
eosJMDCKP(12) = - 2.040237 _d -06 |
|
./model/src/ini_eos.F |
165 |
INI_EOS |
eosJMDCKP(13) = 6.128773 _d -08 |
|
./model/src/ini_eos.F |
166 |
INI_EOS |
eosJMDCKP(14) = 6.207323 _d -10 |
|
./model/src/ini_eos.F |
193 |
INI_EOS |
eosJMDCKFw(1) = 1.965221 _d +04 |
|
./model/src/ini_eos.F |
194 |
INI_EOS |
eosJMDCKFw(2) = 1.484206 _d +02 |
|
./model/src/ini_eos.F |
195 |
INI_EOS |
eosJMDCKFw(3) = - 2.327105 _d +00 |
|
./model/src/ini_eos.F |
196 |
INI_EOS |
eosJMDCKFw(4) = 1.360477 _d -02 |
|
./model/src/ini_eos.F |
197 |
INI_EOS |
eosJMDCKFw(5) = - 5.155288 _d -05 |
|
./model/src/ini_eos.F |
199 |
INI_EOS |
eosJMDCKSw(1) = 5.46746 _d +01 |
|
./model/src/ini_eos.F |
200 |
INI_EOS |
eosJMDCKSw(2) = - 0.603459 _d +00 |
|
./model/src/ini_eos.F |
201 |
INI_EOS |
eosJMDCKSw(3) = 1.09987 _d -02 |
|
./model/src/ini_eos.F |
202 |
INI_EOS |
eosJMDCKSw(4) = - 6.1670 _d -05 |
|
./model/src/ini_eos.F |
203 |
INI_EOS |
eosJMDCKSw(5) = 7.944 _d -02 |
|
./model/src/ini_eos.F |
204 |
INI_EOS |
eosJMDCKSw(6) = 1.6483 _d -02 |
|
./model/src/ini_eos.F |
205 |
INI_EOS |
eosJMDCKSw(7) = - 5.3009 _d -04 |
|
./model/src/ini_eos.F |
207 |
INI_EOS |
eosJMDCKP( 1) = 3.239908 _d +00 |
|
./model/src/ini_eos.F |
208 |
INI_EOS |
eosJMDCKP( 2) = 1.43713 _d -03 |
|
./model/src/ini_eos.F |
209 |
INI_EOS |
eosJMDCKP( 3) = 1.16092 _d -04 |
|
./model/src/ini_eos.F |
210 |
INI_EOS |
eosJMDCKP( 4) = - 5.77905 _d -07 |
|
./model/src/ini_eos.F |
211 |
INI_EOS |
eosJMDCKP( 5) = 2.2838 _d -03 |
|
./model/src/ini_eos.F |
212 |
INI_EOS |
eosJMDCKP( 6) = - 1.0981 _d -05 |
|
./model/src/ini_eos.F |
213 |
INI_EOS |
eosJMDCKP( 7) = - 1.6078 _d -06 |
|
./model/src/ini_eos.F |
214 |
INI_EOS |
eosJMDCKP( 8) = 1.91075 _d -04 |
|
./model/src/ini_eos.F |
215 |
INI_EOS |
eosJMDCKP( 9) = 8.50935 _d -05 |
|
./model/src/ini_eos.F |
216 |
INI_EOS |
eosJMDCKP(10) = - 6.12293 _d -06 |
|
./model/src/ini_eos.F |
217 |
INI_EOS |
eosJMDCKP(11) = 5.2787 _d -08 |
|
./model/src/ini_eos.F |
218 |
INI_EOS |
eosJMDCKP(12) = - 9.9348 _d -07 |
|
./model/src/ini_eos.F |
219 |
INI_EOS |
eosJMDCKP(13) = 2.0816 _d -08 |
|
./model/src/ini_eos.F |
220 |
INI_EOS |
eosJMDCKP(14) = 9.1697 _d -10 |
|
./model/src/ini_eos.F |
227 |
INI_EOS |
eosMDJWFnum( 0) = 9.99843699 _d +02 |
|
./model/src/ini_eos.F |
228 |
INI_EOS |
eosMDJWFnum( 1) = 7.35212840 _d +00 |
|
./model/src/ini_eos.F |
229 |
INI_EOS |
eosMDJWFnum( 2) = -5.45928211 _d -02 |
|
./model/src/ini_eos.F |
230 |
INI_EOS |
eosMDJWFnum( 3) = 3.98476704 _d -04 |
|
./model/src/ini_eos.F |
231 |
INI_EOS |
eosMDJWFnum( 4) = 2.96938239 _d +00 |
|
./model/src/ini_eos.F |
232 |
INI_EOS |
eosMDJWFnum( 5) = -7.23268813 _d -03 |
|
./model/src/ini_eos.F |
233 |
INI_EOS |
eosMDJWFnum( 6) = 2.12382341 _d -03 |
|
./model/src/ini_eos.F |
234 |
INI_EOS |
eosMDJWFnum( 7) = 1.04004591 _d -02 |
|
./model/src/ini_eos.F |
235 |
INI_EOS |
eosMDJWFnum( 8) = 1.03970529 _d -07 |
|
./model/src/ini_eos.F |
236 |
INI_EOS |
eosMDJWFnum( 9) = 5.18761880 _d -06 |
|
./model/src/ini_eos.F |
237 |
INI_EOS |
eosMDJWFnum(10) = -3.24041825 _d -08 |
|
./model/src/ini_eos.F |
238 |
INI_EOS |
eosMDJWFnum(11) = -1.23869360 _d -11 |
|
./model/src/ini_eos.F |
241 |
INI_EOS |
eosMDJWFden( 0) = 1.00000000 _d +00 |
|
./model/src/ini_eos.F |
242 |
INI_EOS |
eosMDJWFden( 1) = 7.28606739 _d -03 |
|
./model/src/ini_eos.F |
243 |
INI_EOS |
eosMDJWFden( 2) = -4.60835542 _d -05 |
|
./model/src/ini_eos.F |
244 |
INI_EOS |
eosMDJWFden( 3) = 3.68390573 _d -07 |
|
./model/src/ini_eos.F |
245 |
INI_EOS |
eosMDJWFden( 4) = 1.80809186 _d -10 |
|
./model/src/ini_eos.F |
246 |
INI_EOS |
eosMDJWFden( 5) = 2.14691708 _d -03 |
|
./model/src/ini_eos.F |
247 |
INI_EOS |
eosMDJWFden( 6) = -9.27062484 _d -06 |
|
./model/src/ini_eos.F |
248 |
INI_EOS |
eosMDJWFden( 7) = -1.78343643 _d -10 |
|
./model/src/ini_eos.F |
249 |
INI_EOS |
eosMDJWFden( 8) = 4.76534122 _d -06 |
|
./model/src/ini_eos.F |
250 |
INI_EOS |
eosMDJWFden( 9) = 1.63410736 _d -09 |
|
./model/src/ini_eos.F |
251 |
INI_EOS |
eosMDJWFden(10) = 5.30848875 _d -06 |
|
./model/src/ini_eos.F |
252 |
INI_EOS |
eosMDJWFden(11) = -3.03175128 _d -16 |
|
./model/src/ini_eos.F |
253 |
INI_EOS |
eosMDJWFden(12) = -1.27934137 _d -17 |
|
./model/src/ini_eos.F |
257 |
INI_EOS |
teos(01) = 9.998420897506056 _d +02 |
|
./model/src/ini_eos.F |
258 |
INI_EOS |
teos(02) = 2.839940833161907 _d 00 |
|
./model/src/ini_eos.F |
259 |
INI_EOS |
teos(03) = -3.147759265588511 _d -02 |
|
./model/src/ini_eos.F |
260 |
INI_EOS |
teos(04) = 1.181805545074306 _d -03 |
|
./model/src/ini_eos.F |
261 |
INI_EOS |
teos(05) = -6.698001071123802 _d 00 |
|
./model/src/ini_eos.F |
262 |
INI_EOS |
teos(06) = -2.986498947203215 _d -02 |
|
./model/src/ini_eos.F |
263 |
INI_EOS |
teos(07) = 2.327859407479162 _d -04 |
|
./model/src/ini_eos.F |
264 |
INI_EOS |
teos(08) = -3.988822378968490 _d -02 |
|
./model/src/ini_eos.F |
265 |
INI_EOS |
teos(09) = 5.095422573880500 _d -04 |
|
./model/src/ini_eos.F |
266 |
INI_EOS |
teos(10) = -1.426984671633621 _d -05 |
|
./model/src/ini_eos.F |
267 |
INI_EOS |
teos(11) = 1.645039373682922 _d -07 |
|
./model/src/ini_eos.F |
268 |
INI_EOS |
teos(12) = -2.233269627352527 _d -02 |
|
./model/src/ini_eos.F |
269 |
INI_EOS |
teos(13) = -3.436090079851880 _d -04 |
|
./model/src/ini_eos.F |
270 |
INI_EOS |
teos(14) = 3.726050720345733 _d -06 |
|
./model/src/ini_eos.F |
271 |
INI_EOS |
teos(15) = -1.806789763745328 _d -04 |
|
./model/src/ini_eos.F |
272 |
INI_EOS |
teos(16) = 6.876837219536232 _d -07 |
|
./model/src/ini_eos.F |
273 |
INI_EOS |
teos(17) = -3.087032500374211 _d -07 |
|
./model/src/ini_eos.F |
274 |
INI_EOS |
teos(18) = -1.988366587925593 _d -08 |
|
./model/src/ini_eos.F |
275 |
INI_EOS |
teos(19) = -1.061519070296458 _d -11 |
|
./model/src/ini_eos.F |
276 |
INI_EOS |
teos(20) = 1.550932729220080 _d -10 |
|
./model/src/ini_eos.F |
277 |
INI_EOS |
teos(21) = 1.000000000000000 _d 00 |
|
./model/src/ini_eos.F |
278 |
INI_EOS |
teos(22) = 2.775927747785646 _d -03 |
|
./model/src/ini_eos.F |
279 |
INI_EOS |
teos(23) = -2.349607444135925 _d -05 |
|
./model/src/ini_eos.F |
280 |
INI_EOS |
teos(24) = 1.119513357486743 _d -06 |
|
./model/src/ini_eos.F |
281 |
INI_EOS |
teos(25) = 6.743689325042773 _d -10 |
|
./model/src/ini_eos.F |
282 |
INI_EOS |
teos(26) = -7.521448093615448 _d -03 |
|
./model/src/ini_eos.F |
283 |
INI_EOS |
teos(27) = -2.764306979894411 _d -05 |
|
./model/src/ini_eos.F |
284 |
INI_EOS |
teos(28) = 1.262937315098546 _d -07 |
|
./model/src/ini_eos.F |
285 |
INI_EOS |
teos(29) = 9.527875081696435 _d -10 |
|
./model/src/ini_eos.F |
286 |
INI_EOS |
teos(30) = -1.811147201949891 _d -11 |
|
./model/src/ini_eos.F |
287 |
INI_EOS |
teos(31) = -3.303308871386421 _d -05 |
|
./model/src/ini_eos.F |
288 |
INI_EOS |
teos(32) = 3.801564588876298 _d -07 |
|
./model/src/ini_eos.F |
289 |
INI_EOS |
teos(33) = -7.672876869259043 _d -09 |
|
./model/src/ini_eos.F |
290 |
INI_EOS |
teos(34) = -4.634182341116144 _d -11 |
|
./model/src/ini_eos.F |
291 |
INI_EOS |
teos(35) = 2.681097235569143 _d -12 |
|
./model/src/ini_eos.F |
292 |
INI_EOS |
teos(36) = 5.419326551148740 _d -06 |
|
./model/src/ini_eos.F |
293 |
INI_EOS |
teos(37) = -2.742185394906099 _d -05 |
|
./model/src/ini_eos.F |
294 |
INI_EOS |
teos(38) = -3.212746477974189 _d -07 |
|
./model/src/ini_eos.F |
295 |
INI_EOS |
teos(39) = 3.191413910561627 _d -09 |
|
./model/src/ini_eos.F |
296 |
INI_EOS |
teos(40) = -1.931012931541776 _d -12 |
|
./model/src/ini_eos.F |
297 |
INI_EOS |
teos(41) = -1.105097577149576 _d -07 |
|
./model/src/ini_eos.F |
298 |
INI_EOS |
teos(42) = 6.211426728363857 _d -10 |
|
./model/src/ini_eos.F |
299 |
INI_EOS |
teos(43) = -1.119011592875110 _d -10 |
|
./model/src/ini_eos.F |
300 |
INI_EOS |
teos(44) = -1.941660213148725 _d -11 |
|
./model/src/ini_eos.F |
301 |
INI_EOS |
teos(45) = -1.864826425365600 _d -14 |
|
./model/src/ini_eos.F |
302 |
INI_EOS |
teos(46) = 1.119522344879478 _d -14 |
|
./model/src/ini_eos.F |
303 |
INI_EOS |
teos(47) = -1.200507748551599 _d -15 |
|
./model/src/ini_eos.F |
304 |
INI_EOS |
teos(48) = 6.057902487546866 _d -17 |
|
./model/src/ini_eos.F |
377 |
EOS_CHECK |
& /3.25905152915860 _d 0, 20.38687090048638 _d 0, |
|
./model/src/ini_eos.F |
378 |
EOS_CHECK |
& 25.44820830309568 _d 0, 20.17368557065936 _d 0, |
|
./model/src/ini_eos.F |
379 |
EOS_CHECK |
& 13.43397459640398 _d 0, |
|
./model/src/ini_eos.F |
380 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
381 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
382 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
383 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
384 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
385 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
386 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
387 |
EOS_CHECK |
& 5. _d 0/ |
|
./model/src/ini_eos.F |
389 |
EOS_CHECK |
& /3. _d 0, 20. _d 0, |
|
./model/src/ini_eos.F |
390 |
EOS_CHECK |
& 25. _d 0, 20. _d 0, |
|
./model/src/ini_eos.F |
391 |
EOS_CHECK |
& 12. _d 0, |
|
./model/src/ini_eos.F |
392 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
393 |
EOS_CHECK |
& 5. _d 0, 25. _d 0, |
|
./model/src/ini_eos.F |
394 |
EOS_CHECK |
& 4.03692566635316 _d 0, 22.84661726775120 _d 0, |
|
./model/src/ini_eos.F |
395 |
EOS_CHECK |
& 3.62720389416752 _d 0, 22.62420229124846 _d 0, |
|
./model/src/ini_eos.F |
396 |
EOS_CHECK |
& 19.5130 _d 0, 3.5588 _d 0, |
|
./model/src/ini_eos.F |
397 |
EOS_CHECK |
& 1.8157 _d 0, 1.3434 _d 0, |
|
./model/src/ini_eos.F |
398 |
EOS_CHECK |
& 1.1583 _d 0, 1.0518 _d 0, |
|
./model/src/ini_eos.F |
399 |
EOS_CHECK |
& 1.0073 _d 0/ |
|
./model/src/ini_eos.F |
401 |
EOS_CHECK |
& /35.5 _d 0, 35. _d 0, |
|
./model/src/ini_eos.F |
402 |
EOS_CHECK |
& 35.0 _d 0, 20. _d 0, |
|
./model/src/ini_eos.F |
403 |
EOS_CHECK |
& 40.0 _d 0, |
|
./model/src/ini_eos.F |
404 |
EOS_CHECK |
& 0. _d 0, 0. _d 0, |
|
./model/src/ini_eos.F |
405 |
EOS_CHECK |
& 35. _d 0, 35. _d 0, |
|
./model/src/ini_eos.F |
406 |
EOS_CHECK |
& 0. _d 0, 0. _d 0, |
|
./model/src/ini_eos.F |
407 |
EOS_CHECK |
& 35. _d 0, 35. _d 0, |
|
./model/src/ini_eos.F |
408 |
EOS_CHECK |
& 34.7392 _d 0, 34.4652 _d 0, |
|
./model/src/ini_eos.F |
409 |
EOS_CHECK |
& 34.7738 _d 0, 34.8435 _d 0, |
|
./model/src/ini_eos.F |
410 |
EOS_CHECK |
& 34.8637 _d 0, 34.8739 _d 0, 34.8776 _d 0/ |
|
./model/src/ini_eos.F |
412 |
EOS_CHECK |
& /300. _d 5, 200. _d 5, |
|
./model/src/ini_eos.F |
413 |
EOS_CHECK |
& 200. _d 5, 100. _d 5, |
|
./model/src/ini_eos.F |
414 |
EOS_CHECK |
& 800. _d 5, |
|
./model/src/ini_eos.F |
415 |
EOS_CHECK |
& 0. _d 0, 0. _d 0, |
|
./model/src/ini_eos.F |
416 |
EOS_CHECK |
& 0. _d 0, 0. _d 0, |
|
./model/src/ini_eos.F |
417 |
EOS_CHECK |
& 1000. _d 5, 1000. _d 5, |
|
./model/src/ini_eos.F |
418 |
EOS_CHECK |
& 1000. _d 5, 1000. _d 5, |
|
./model/src/ini_eos.F |
419 |
EOS_CHECK |
& 0. _d 0, 1010. _d 4, |
|
./model/src/ini_eos.F |
420 |
EOS_CHECK |
& 2025. _d 4, 3045. _d 4, |
|
./model/src/ini_eos.F |
421 |
EOS_CHECK |
& 4069. _d 4, 5098. _d 4, |
|
./model/src/ini_eos.F |
422 |
EOS_CHECK |
& 6131. _d 4/ |
|
./model/src/ini_eos.F |
424 |
EOS_CHECK |
& /1041.83267 _d 0, 1033.213387 _d 0, |
|
./model/src/ini_eos.F |
425 |
EOS_CHECK |
& 1031.654229 _d 0, 1017.726743 _d 0, |
|
./model/src/ini_eos.F |
426 |
EOS_CHECK |
& 1062.928258 _d 0, |
|
./model/src/ini_eos.F |
427 |
EOS_CHECK |
& 999.96675 _d 0, 997.04796 _d 0, |
|
./model/src/ini_eos.F |
428 |
EOS_CHECK |
& 1027.67547 _d 0, 1023.34306 _d 0, |
|
./model/src/ini_eos.F |
429 |
EOS_CHECK |
& 1044.12802 _d 0, 1037.90204 _d 0, |
|
./model/src/ini_eos.F |
430 |
EOS_CHECK |
& 1069.48914 _d 0, 1062.53817 _d 0, |
|
./model/src/ini_eos.F |
431 |
EOS_CHECK |
& 1024.571477039354932 _d 0, 1031.937207908966911 _d 0, |
|
./model/src/ini_eos.F |
432 |
EOS_CHECK |
& 1037.002326523349893 _d 0, 1041.668901630106348 _d 0, |
|
./model/src/ini_eos.F |
433 |
EOS_CHECK |
& 1046.179673478751511 _d 0, 1050.591667083023594 _d 0, |
|
./model/src/ini_eos.F |
434 |
EOS_CHECK |
& 1054.901835905235885 _d 0/ |
|
./model/src/ini_eos.F |
436 |
EOS_CHECK |
& / -1.00000 _d 0, -1.00000 _d 0, |
|
./model/src/ini_eos.F |
437 |
EOS_CHECK |
& -1.00000 _d 0, -1.00000 _d 0, |
|
./model/src/ini_eos.F |
438 |
EOS_CHECK |
& -1.00000 _d 0, |
|
./model/src/ini_eos.F |
439 |
EOS_CHECK |
& 20337.80375 _d 0, 22100.72106 _d 0, |
|
./model/src/ini_eos.F |
440 |
EOS_CHECK |
& 22185.93358 _d 0, 23726.34949 _d 0, |
|
./model/src/ini_eos.F |
441 |
EOS_CHECK |
& 23643.52599 _d 0, 25405.09717 _d 0, |
|
./model/src/ini_eos.F |
442 |
EOS_CHECK |
& 25577.49819 _d 0, 27108.94504 _d 0, |
|
./model/src/ini_eos.F |
443 |
EOS_CHECK |
& -1.00000 _d 0, -1.00000 _d 0, |
|
./model/src/ini_eos.F |
444 |
EOS_CHECK |
& -1.00000 _d 0, -1.00000 _d 0, |
|
./model/src/ini_eos.F |
445 |
EOS_CHECK |
& -1.00000 _d 0, -1.00000 _d 0, |
|
./model/src/ini_eos.F |
446 |
EOS_CHECK |
& -1.00000 _d 0/ |
|
./model/src/ini_eos.F |
485 |
EOS_CHECK |
rhoLoc(i,j) = 0. _d 0 |
|
./model/src/ini_eos.F |
495 |
EOS_CHECK |
bulkMod(i,j) = -1. _d 0 |
|
./model/src/ini_eos.F |
52 |
INI_EOS |
eosJMDCFw(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
55 |
INI_EOS |
eosJMDCSw(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
58 |
INI_EOS |
eosJMDCKFw(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
61 |
INI_EOS |
eosJMDCKSw(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
64 |
INI_EOS |
eosJMDCKP(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
67 |
INI_EOS |
eosMDJWFnum(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
70 |
INI_EOS |
eosMDJWFden(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
73 |
INI_EOS |
teos(k) = 0. _d 0 |
|
./model/src/ini_eos.F |
77 |
INI_EOS |
IF ( tAlpha .EQ. UNSET_RL ) tAlpha = 2. _d -4 |
|
./model/src/ini_eos.F |
78 |
INI_EOS |
IF ( sBeta .EQ. UNSET_RL ) sBeta = 7.4 _d -4 |
|
./pkg/smooth/SMOOTH.h |
16 |
NO PROCEDURE |
PARAMETER ( smooth2DdelTime = 1. _d 0 ) |
|
./pkg/smooth/SMOOTH.h |
17 |
NO PROCEDURE |
PARAMETER ( smooth3DdelTime = 1. _d 0 ) |
|
./model/src/ini_ffields.F |
105 |
INI_FFIELDS |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
112 |
INI_FFIELDS |
eddyPsiX (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
113 |
INI_FFIELDS |
eddyPsiY (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
114 |
INI_FFIELDS |
tauxEddy (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
115 |
INI_FFIELDS |
tauyEddy (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
116 |
INI_FFIELDS |
uEulerMean(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
117 |
INI_FFIELDS |
vEulerMean(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
126 |
INI_FFIELDS |
surfaceForcingU (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
127 |
INI_FFIELDS |
surfaceForcingV (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
128 |
INI_FFIELDS |
surfaceForcingT (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
129 |
INI_FFIELDS |
surfaceForcingS (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
130 |
INI_FFIELDS |
surfaceForcingTice (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
131 |
INI_FFIELDS |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
132 |
INI_FFIELDS |
lambdaSaltClimRelax (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
48 |
INI_FFIELDS |
fu (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
49 |
INI_FFIELDS |
fv (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
50 |
INI_FFIELDS |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
51 |
INI_FFIELDS |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
52 |
INI_FFIELDS |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
53 |
INI_FFIELDS |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
54 |
INI_FFIELDS |
SST (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
55 |
INI_FFIELDS |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
56 |
INI_FFIELDS |
phiTide2d (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
57 |
INI_FFIELDS |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
58 |
INI_FFIELDS |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
60 |
INI_FFIELDS |
geothermalFlux (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
64 |
INI_FFIELDS |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
65 |
INI_FFIELDS |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
66 |
INI_FFIELDS |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
67 |
INI_FFIELDS |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
68 |
INI_FFIELDS |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
69 |
INI_FFIELDS |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
70 |
INI_FFIELDS |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
71 |
INI_FFIELDS |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
72 |
INI_FFIELDS |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
73 |
INI_FFIELDS |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
74 |
INI_FFIELDS |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
75 |
INI_FFIELDS |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
76 |
INI_FFIELDS |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
77 |
INI_FFIELDS |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
79 |
INI_FFIELDS |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
80 |
INI_FFIELDS |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
83 |
INI_FFIELDS |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
84 |
INI_FFIELDS |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_ffields.F |
98 |
INI_FFIELDS |
addMass(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff2d.F |
65 |
SMOOTH_DIFF2D |
gt_in(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff2d.F |
66 |
SMOOTH_DIFF2D |
gtm1_in(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
122 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
60 |
SMOOTH_DIFF3D |
gT_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_diff3d.F |
61 |
SMOOTH_DIFF3D |
gTm1_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
158 |
SMOOTH_FILTERVAR2D |
smoothTmpMean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
159 |
SMOOTH_FILTERVAR2D |
smoothTmpVar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar2d.F |
178 |
SMOOTH_FILTERVAR2D |
smoothTmpFld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
196 |
SMOOTH_FILTERVAR3D |
smoothTmpMean(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
197 |
SMOOTH_FILTERVAR3D |
smoothTmpVar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_filtervar3d.F |
218 |
SMOOTH_FILTERVAR3D |
smoothTmpFld(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
106 |
SMOOTH_IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
107 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
119 |
SMOOTH_IMPLDIFF |
IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1) |
|
./pkg/smooth/smooth_impldiff.F |
135 |
SMOOTH_IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./pkg/smooth/smooth_impldiff.F |
52 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
60 |
SMOOTH_IMPLDIFF |
a(i,j,1) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
89 |
SMOOTH_IMPLDIFF |
c(i,j,Nr) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
97 |
SMOOTH_IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./pkg/smooth/smooth_readparms.F |
72 |
SMOOTH_READPARMS |
smooth2D_Lx0(smoothOpNb)=0. _d 0 |
|
./pkg/smooth/smooth_readparms.F |
73 |
SMOOTH_READPARMS |
smooth2D_Ly0(smoothOpNb)=0. _d 0 |
|
./pkg/smooth/smooth_readparms.F |
79 |
SMOOTH_READPARMS |
smooth3D_Lx0(smoothOpNb)=0. _d 0 |
|
./pkg/smooth/smooth_readparms.F |
80 |
SMOOTH_READPARMS |
smooth3D_Ly0(smoothOpNb)=0. _d 0 |
|
./pkg/smooth/smooth_readparms.F |
81 |
SMOOTH_READPARMS |
smooth3D_Lz0(smoothOpNb)=0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
77 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
78 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
79 |
SMOOTH_RHS |
fVerT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
80 |
SMOOTH_RHS |
gt_in(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/smooth/smooth_rhs.F |
95 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
51 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./model/src/ini_forcing.F |
53 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_forcing.F |
57 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./model/src/ini_forcing.F |
59 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
106 |
ADSTRMICE_H_INV |
& 1. _d 0, |
|
./model/src/ini_global_domain.F |
102 |
INI_GLOBAL_DOMAIN |
IF ( tileArea(bi,bj).EQ.0. _d 0 ) THEN |
|
./model/src/ini_global_domain.F |
76 |
INI_GLOBAL_DOMAIN |
threadArea = 0. _d 0 |
|
./model/src/ini_global_domain.F |
80 |
INI_GLOBAL_DOMAIN |
tileArea(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
125 |
STREAMICE_ADV_FLUX_FL_X |
phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi), |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
126 |
STREAMICE_ADV_FLUX_FL_X |
& Cr*(1. _d 0 -CFL)/(CFL+1. _d -20) )) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
145 |
STREAMICE_ADV_FLUX_FL_X |
ELSEIF (uface .lt. 0. _d 0) THEN ! uface <= 0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
178 |
STREAMICE_ADV_FLUX_FL_X |
phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi), |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
179 |
STREAMICE_ADV_FLUX_FL_X |
& Cr*(1. _d 0 -CFL)/(CFL+1. _d -20) )) |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
200 |
STREAMICE_ADV_FLUX_FL_X |
Xflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
94 |
STREAMICE_ADV_FLUX_FL_X |
IF (uface .gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
128 |
STREAMICE_ADV_FLUX_FL_Y |
phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi), |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
129 |
STREAMICE_ADV_FLUX_FL_Y |
& Cr*(1. _d 0 -CFL)/(CFL+1. _d -20) )) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
180 |
STREAMICE_ADV_FLUX_FL_Y |
phi = MAX(0. _d 0,MIN(MIN(1. _d 0,psi), |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
181 |
STREAMICE_ADV_FLUX_FL_Y |
& Cr*(1. _d 0 -CFL)/(CFL+1. _d -20) )) |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
202 |
STREAMICE_ADV_FLUX_FL_Y |
yflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
97 |
STREAMICE_ADV_FLUX_FL_Y |
IF (vface .gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
104 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
105 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
156 |
STREAMICE_ADV_FRONT |
n_flux_1 = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
157 |
STREAMICE_ADV_FRONT |
href = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
158 |
STREAMICE_ADV_FRONT |
tot_flux = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
164 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
165 |
STREAMICE_ADV_FRONT |
n_flux_1 = n_flux_1 + 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
169 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
176 |
STREAMICE_ADV_FRONT |
IF (hflux_x_SI(i+1,j,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
177 |
STREAMICE_ADV_FRONT |
n_flux_1 = n_flux_1 + 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
181 |
STREAMICE_ADV_FRONT |
hflux_x_SI(i+1,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
188 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
189 |
STREAMICE_ADV_FRONT |
n_flux_1 = n_flux_1 + 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
193 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
200 |
STREAMICE_ADV_FRONT |
IF (hflux_y_SI(i,j+1,bi,bj).lt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
201 |
STREAMICE_ADV_FRONT |
n_flux_1 = n_flux_1 + 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
205 |
STREAMICE_ADV_FRONT |
hflux_y_SI(i,j+1,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
235 |
STREAMICE_ADV_FRONT |
iter_flag = 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
237 |
STREAMICE_ADV_FRONT |
n_flux_2 = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
247 |
STREAMICE_ADV_FRONT |
n_flux_2 = n_flux_2 + 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
248 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i+2*k-3,j,bi,bj).eq.0 _d 0) THEN ! adjacent cell is completely ice free |
|
./pkg/streamice/streamice_adv_front.F |
249 |
STREAMICE_ADV_FRONT |
n_flux_2 = n_flux_2 + 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
258 |
STREAMICE_ADV_FRONT |
n_flux_2 = n_flux_2 + 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
259 |
STREAMICE_ADV_FRONT |
ELSEIF (STREAMICE_hmask(i,j+2*k-3,bi,bj).eq.0 _d 0) THEN |
|
./pkg/streamice/streamice_adv_front.F |
260 |
STREAMICE_ADV_FRONT |
n_flux_2 = n_flux_2 + 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
57 |
STREAMICE_ADV_FRONT |
iter_flag = 1. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
64 |
STREAMICE_ADV_FRONT |
hflux_x_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
65 |
STREAMICE_ADV_FRONT |
hflux_y_SI2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_adv_front.F |
95 |
STREAMICE_ADV_FRONT |
iter_flag = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
77 |
STREAMICE_ADVECT_2DTRACER |
ytracflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
78 |
STREAMICE_ADVECT_2DTRACER |
xtracflux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_2dtracer.F |
81 |
STREAMICE_ADVECT_2DTRACER |
GAD_trac_2d (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
120 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
121 |
STREAMICE_ADVECT_THICKNESS |
utrans(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
124 |
STREAMICE_ADVECT_THICKNESS |
BCVALX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
152 |
STREAMICE_ADVECT_THICKNESS |
BCVALY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
153 |
STREAMICE_ADVECT_THICKNESS |
vtrans(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
156 |
STREAMICE_ADVECT_THICKNESS |
BCVALy(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
364 |
STREAMICE_ADVECT_THICKNESS |
H_streamice (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
88 |
STREAMICE_ADVECT_THICKNESS |
hflux_x_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
89 |
STREAMICE_ADVECT_THICKNESS |
hflux_y_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
92 |
STREAMICE_ADVECT_THICKNESS |
h_after_uflux_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_advect_thickness.F |
93 |
STREAMICE_ADVECT_THICKNESS |
h_after_vflux_SI(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_grid.F |
157 |
INI_GRID |
& recip_dxG(i,j,bi,bj) = 1. _d 0/dxG(i,j,bi,bj) |
|
./model/src/ini_grid.F |
159 |
INI_GRID |
& recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj) |
|
./model/src/ini_grid.F |
161 |
INI_GRID |
& recip_dxC(i,j,bi,bj) = 1. _d 0/dxC(i,j,bi,bj) |
|
./model/src/ini_grid.F |
163 |
INI_GRID |
& recip_dyC(i,j,bi,bj) = 1. _d 0/dyC(i,j,bi,bj) |
|
./model/src/ini_grid.F |
165 |
INI_GRID |
& recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
167 |
INI_GRID |
& recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
169 |
INI_GRID |
& recip_dxV(i,j,bi,bj) = 1. _d 0/dxV(i,j,bi,bj) |
|
./model/src/ini_grid.F |
171 |
INI_GRID |
& recip_dyU(i,j,bi,bj) = 1. _d 0/dyU(i,j,bi,bj) |
|
./model/src/ini_grid.F |
173 |
INI_GRID |
& recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj) |
|
./model/src/ini_grid.F |
175 |
INI_GRID |
& recip_rAs(i,j,bi,bj) = 1. _d 0/rAs(i,j,bi,bj) |
|
./model/src/ini_grid.F |
177 |
INI_GRID |
& recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj) |
|
./model/src/ini_grid.F |
179 |
INI_GRID |
& recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj) |
|
./pkg/streamice/streamice_cg_solve.F |
136 |
STREAMICE_CG_SOLVE |
Zu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
137 |
STREAMICE_CG_SOLVE |
Zv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
138 |
STREAMICE_CG_SOLVE |
Ru_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
139 |
STREAMICE_CG_SOLVE |
Rv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
140 |
STREAMICE_CG_SOLVE |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
141 |
STREAMICE_CG_SOLVE |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
142 |
STREAMICE_CG_SOLVE |
Du_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
143 |
STREAMICE_CG_SOLVE |
Dv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
195 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
196 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
298 |
STREAMICE_CG_SOLVE |
Au_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
299 |
STREAMICE_CG_SOLVE |
Av_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
349 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
350 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
413 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
414 |
STREAMICE_CG_SOLVE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve.F |
464 |
STREAMICE_CG_SOLVE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
128 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
129 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
214 |
STREAMICE_CG_SOLVE_MATFREE |
Au_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
215 |
STREAMICE_CG_SOLVE_MATFREE |
Av_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
265 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
266 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
329 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
330 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p2_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
380 |
STREAMICE_CG_SOLVE_MATFREE |
dot_p1_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
64 |
STREAMICE_CG_SOLVE_MATFREE |
Zu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
65 |
STREAMICE_CG_SOLVE_MATFREE |
Zv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
66 |
STREAMICE_CG_SOLVE_MATFREE |
Ru_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
67 |
STREAMICE_CG_SOLVE_MATFREE |
Rv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
68 |
STREAMICE_CG_SOLVE_MATFREE |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
69 |
STREAMICE_CG_SOLVE_MATFREE |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
70 |
STREAMICE_CG_SOLVE_MATFREE |
Du_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
71 |
STREAMICE_CG_SOLVE_MATFREE |
Dv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
154 |
STREAMICE_CG_SOLVE_PETSC |
rhs_values (i) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
155 |
STREAMICE_CG_SOLVE_PETSC |
solution_values (i) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
235 |
STREAMICE_CG_SOLVE_PETSC |
mat_values(k,1) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
281 |
STREAMICE_CG_SOLVE_PETSC |
mat_values(k,1) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
63 |
STREAMICE_CG_WRAPPER |
DIAGu_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
64 |
STREAMICE_CG_WRAPPER |
DIAGv_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
65 |
STREAMICE_CG_WRAPPER |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_cg_wrapper.F |
66 |
STREAMICE_CG_WRAPPER |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
100 |
STREAMICE_DRIVING_STRESS |
diffy = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
101 |
STREAMICE_DRIVING_STRESS |
sx = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
102 |
STREAMICE_DRIVING_STRESS |
sy = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
136 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
138 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
140 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
142 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
199 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
201 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
203 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
205 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
284 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
286 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
288 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
290 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
348 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
350 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
352 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
354 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
435 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
437 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
439 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
441 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
497 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
499 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
501 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
503 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
583 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
585 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j-1,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
587 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
589 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
645 |
STREAMICE_DRIVING_STRESS |
IF (R_low_si(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
647 |
STREAMICE_DRIVING_STRESS |
IF (R_low(i-1,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress.F |
649 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
651 |
STREAMICE_DRIVING_STRESS |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
69 |
STREAMICE_DRIVING_STRESS |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
70 |
STREAMICE_DRIVING_STRESS |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress.F |
99 |
STREAMICE_DRIVING_STRESS |
diffx = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
129 |
INI_LINEAR_PHISURF |
IF ( rhoLoc .EQ. 0. _d 0 ) THEN |
|
./model/src/ini_linear_phisurf.F |
130 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
132 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
136 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
137 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
153 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
156 |
INI_LINEAR_PHISURF |
& (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
158 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
169 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
172 |
INI_LINEAR_PHISURF |
& (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
174 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
60 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
61 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
88 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / gBaro |
|
./pkg/streamice/streamice_driving_stress_fd.F |
235 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
237 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
239 |
STREAMICE_DRIVING_STRESS_FD |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
241 |
STREAMICE_DRIVING_STRESS_FD |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
386 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low_si(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
388 |
STREAMICE_DRIVING_STRESS_FD |
IF (R_low(i,j,bi,bj) .lt. 0. _d 0) then |
|
./pkg/streamice/streamice_driving_stress_fd.F |
390 |
STREAMICE_DRIVING_STRESS_FD |
grd_below_sl = 1. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
392 |
STREAMICE_DRIVING_STRESS_FD |
grd_below_sl = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
55 |
STREAMICE_DRIVING_STRESS_FD |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_fd.F |
56 |
STREAMICE_DRIVING_STRESS_FD |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
122 |
STREAMICE_DRIVING_STRESS_PPM |
sx = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
184 |
STREAMICE_DRIVING_STRESS_PPM |
sx = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
219 |
STREAMICE_DRIVING_STRESS_PPM |
sy = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
248 |
STREAMICE_DRIVING_STRESS_PPM |
sy = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
310 |
STREAMICE_DRIVING_STRESS_PPM |
sy = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
55 |
STREAMICE_DRIVING_STRESS_PPM |
taudx_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
56 |
STREAMICE_DRIVING_STRESS_PPM |
taudy_SI(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
68 |
STREAMICE_DRIVING_STRESS_PPM |
diffx = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
69 |
STREAMICE_DRIVING_STRESS_PPM |
diffy = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
70 |
STREAMICE_DRIVING_STRESS_PPM |
sx = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
71 |
STREAMICE_DRIVING_STRESS_PPM |
sy = 0. _d 0 |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
94 |
STREAMICE_DRIVING_STRESS_PPM |
sx = 0. _d 0 |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
41 |
STREAMICE_GET_FP_ERR_OAD |
err_max = 0. _d 0 |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
42 |
STREAMICE_GET_FP_ERR_OAD |
err_sum = 0. _d 0 |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
43 |
STREAMICE_GET_FP_ERR_OAD |
conj_norm = 0. _d 0 |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
47 |
STREAMICE_GET_FP_ERR_OAD |
err_sum_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
57 |
STREAMICE_GET_FP_ERR_OAD |
err_tempu = 0. _d 0 |
|
./pkg/streamice/streamice_get_fp_err_oad.F |
58 |
STREAMICE_GET_FP_ERR_OAD |
err_tempv = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
42 |
STREAMICE_GET_VEL_FP_ERR |
err_max = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
43 |
STREAMICE_GET_VEL_FP_ERR |
err_sum = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
47 |
STREAMICE_GET_VEL_FP_ERR |
err_sum_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
57 |
STREAMICE_GET_VEL_FP_ERR |
err_tempu = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_fp_err.F |
58 |
STREAMICE_GET_VEL_FP_ERR |
err_tempv = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
45 |
STREAMICE_GET_VEL_RESID_ERR |
err_max = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
46 |
STREAMICE_GET_VEL_RESID_ERR |
err_sum = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
50 |
STREAMICE_GET_VEL_RESID_ERR |
err_sum_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
58 |
STREAMICE_GET_VEL_RESID_ERR |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
59 |
STREAMICE_GET_VEL_RESID_ERR |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
60 |
STREAMICE_GET_VEL_RESID_ERR |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
61 |
STREAMICE_GET_VEL_RESID_ERR |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
94 |
STREAMICE_GET_VEL_RESID_ERR |
err_tempu = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err.F |
95 |
STREAMICE_GET_VEL_RESID_ERR |
err_tempv = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
49 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
err_max = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
50 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
err_sum = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
54 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
err_sum_tile(bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
62 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
Au_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
63 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
Av_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
66 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
ubd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
67 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
vbd_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
89 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
err_tempu = 0. _d 0 |
|
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
90 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
err_tempv = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
264 |
STREAMICE_INIT_FIXED |
STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
367 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
393 |
STREAMICE_INIT_FIXED |
u_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
405 |
STREAMICE_INIT_FIXED |
STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
419 |
STREAMICE_INIT_FIXED |
v_bdry_values_SI (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_fixed.F |
84 |
STREAMICE_INIT_FIXED |
streamice_calve_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
100 |
STREAMICE_INIT_VARIA |
ru_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
101 |
STREAMICE_INIT_VARIA |
rv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
102 |
STREAMICE_INIT_VARIA |
zu_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
103 |
STREAMICE_INIT_VARIA |
zv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
107 |
STREAMICE_INIT_VARIA |
R_low_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
115 |
STREAMICE_INIT_VARIA |
streamice_taubx (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
116 |
STREAMICE_INIT_VARIA |
streamice_tauby (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
209 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
210 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
225 |
STREAMICE_INIT_VARIA |
IF (area_shelf_streamice(i,j,bi,bj).gt. 0. _d 0) THEN |
|
./pkg/streamice/streamice_init_varia.F |
259 |
STREAMICE_INIT_VARIA |
IF (H_streamice(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/streamice/streamice_init_varia.F |
263 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
264 |
STREAMICE_INIT_VARIA |
STREAMICE_hmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
267 |
STREAMICE_INIT_VARIA |
STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
53 |
STREAMICE_INIT_VARIA |
H_streamIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
54 |
STREAMICE_INIT_VARIA |
U_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
55 |
STREAMICE_INIT_VARIA |
V_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
56 |
STREAMICE_INIT_VARIA |
visc_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
57 |
STREAMICE_INIT_VARIA |
tau_beta_eff_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
58 |
STREAMICE_INIT_VARIA |
float_frac_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
59 |
STREAMICE_INIT_VARIA |
base_el_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
60 |
STREAMICE_INIT_VARIA |
surf_el_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
61 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
62 |
STREAMICE_INIT_VARIA |
mass_ice_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
63 |
STREAMICE_INIT_VARIA |
BDOT_streamice(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
65 |
STREAMICE_INIT_VARIA |
BDOT_streamice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
76 |
STREAMICE_INIT_VARIA |
H_streamice_prev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
78 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
79 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
80 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
81 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_pert(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
82 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
83 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
84 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
85 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_stress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
87 |
STREAMICE_INIT_VARIA |
STREAMICE_u_normal_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
88 |
STREAMICE_INIT_VARIA |
STREAMICE_v_normal_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
89 |
STREAMICE_INIT_VARIA |
STREAMICE_u_shear_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
90 |
STREAMICE_INIT_VARIA |
STREAMICE_v_shear_stress1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_init_varia.F |
95 |
STREAMICE_INIT_VARIA |
GAD_trac_2d (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
111 |
STREAMICE_INVERT_SURF_FORTHICK |
& 1. _d 0, |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
119 |
STREAMICE_INVERT_SURF_FORTHICK |
& 1. _d 0, |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
58 |
STREAMICE_INVERT_SURF_FORTHICK |
hf = (-1. _d 0) * R(i,j,bi,bj) / |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
59 |
STREAMICE_INVERT_SURF_FORTHICK |
& (1. _d 0 - delta) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
69 |
STREAMICE_INVERT_SURF_FORTHICK |
RESID=1. _d 0 |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
75 |
STREAMICE_INVERT_SURF_FORTHICK |
hf = (-1. _d 0) * R(i,j,bi,bj) / |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
76 |
STREAMICE_INVERT_SURF_FORTHICK |
& (1. _d 0 - delta) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
99 |
STREAMICE_INVERT_SURF_FORTHICK |
& 1. _d 0, |
|
./model/src/ini_masks_etc.F |
239 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
365 |
INI_MASKS_ETC |
tmpVar1(i,j) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
366 |
INI_MASKS_ETC |
tmpVar2(i,j) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
481 |
INI_MASKS_ETC |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
488 |
INI_MASKS_ETC |
recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
495 |
INI_MASKS_ETC |
recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj) |
|
./pkg/streamice/streamice_timestep.F |
153 |
STREAMICE_TIMESTEP |
sum_square_vel_tile (bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
72 |
STREAMICE_TIMESTEP |
STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
73 |
STREAMICE_TIMESTEP |
STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
74 |
STREAMICE_TIMESTEP |
ru_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
75 |
STREAMICE_TIMESTEP |
rv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
76 |
STREAMICE_TIMESTEP |
zu_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
77 |
STREAMICE_TIMESTEP |
zv_old_si(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
80 |
STREAMICE_TIMESTEP |
streamice_taubx (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_timestep.F |
81 |
STREAMICE_TIMESTEP |
streamice_tauby (i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
104 |
STREAMICE_TRIDIAG_SOLVE |
IF ( tmpvar .NE. 0. _d 0 ) THEN |
|
./pkg/streamice/streamice_tridiag_solve.F |
105 |
STREAMICE_TRIDIAG_SOLVE |
bet(i) = 1. _d 0 / tmpvar |
|
./pkg/streamice/streamice_tridiag_solve.F |
107 |
STREAMICE_TRIDIAG_SOLVE |
bet(i) = 0. _d 0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
135 |
STREAMICE_TRIDIAG_SOLVE |
cg_Vin (i,j,1,1) = 0. _d 0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
95 |
STREAMICE_TRIDIAG_SOLVE |
IF ( bMat(imin).NE.0. _d 0 ) THEN |
|
./pkg/streamice/streamice_tridiag_solve.F |
96 |
STREAMICE_TRIDIAG_SOLVE |
bet(imin) = 1. _d 0 / bMat(imin) |
|
./pkg/streamice/streamice_tridiag_solve.F |
98 |
STREAMICE_TRIDIAG_SOLVE |
bet(imin) = 0. _d 0 |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
129 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
IF (OD .ge. 0. _d 0) THEN |
|
./pkg/streamice/streamice_upd_ffrac_uncoupled.F |
79 |
STREAMICE_UPD_FFRAC_UNCOUPLED |
& 1. _d 0, |
|
./pkg/streamice/streamice_vel_solve.F |
129 |
STREAMICE_VEL_SOLVE |
err_init = 0. _d 0 |
|
./pkg/streamice/streamice_vel_solve_openad.F |
84 |
STREAMICE_VEL_SOLVE_OPENAD |
err_last_change = 1 _d 1 |
|
./pkg/streamice/streamice_velmask_upd.F |
63 |
STREAMICE_VELMASK_UPD |
STREAMICE_umask(i,j,bi,bj) = -1. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
64 |
STREAMICE_VELMASK_UPD |
STREAMICE_vmask(i,j,bi,bj) = -1. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
65 |
STREAMICE_VELMASK_UPD |
STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/streamice/streamice_velmask_upd.F |
66 |
STREAMICE_VELMASK_UPD |
STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_mixing.F |
81 |
INI_MIXING |
BL79LatArray(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
139 |
THSICE_ADVDIFF |
areaEpsil = 1. _d -10 * meanCellArea |
|
./pkg/thsice/thsice_advdiff.F |
140 |
THSICE_ADVDIFF |
vol_Epsil = 1. _d -15 * meanCellArea |
|
./pkg/thsice/thsice_advdiff.F |
142 |
THSICE_ADVDIFF |
r_minArea = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
143 |
THSICE_ADVDIFF |
IF ( iceMaskMin.GT.0. _d 0 ) r_minArea = 1. _d 0 / iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
159 |
THSICE_ADVDIFF |
tmpFac = 1. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
190 |
THSICE_ADVDIFF |
maskOce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
192 |
THSICE_ADVDIFF |
iceVol(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
193 |
THSICE_ADVDIFF |
uTrans(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
194 |
THSICE_ADVDIFF |
vTrans(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
195 |
THSICE_ADVDIFF |
uTrIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
196 |
THSICE_ADVDIFF |
vTrIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
197 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
198 |
THSICE_ADVDIFF |
oceSflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
199 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
455 |
THSICE_ADVDIFF |
IF ( iceFrc(i,j) .GT. 1. _d 0 ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
457 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
498 |
THSICE_ADVDIFF |
& +Qice2(i,j,bi,bj) )*0.5 _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
504 |
THSICE_ADVDIFF |
iceMask (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
505 |
THSICE_ADVDIFF |
iceHeight (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
506 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
507 |
THSICE_ADVDIFF |
Qice1 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
508 |
THSICE_ADVDIFF |
Qice2 (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
509 |
THSICE_ADVDIFF |
snowAge (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
548 |
THSICE_ADVDIFF |
tmpFac = 1. _d 0 |
|
./pkg/thsice/thsice_advection.F |
341 |
THSICE_ADVECTION |
& MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
342 |
THSICE_ADVECTION |
& +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
350 |
THSICE_ADVECTION |
& MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps ) |
|
./pkg/thsice/thsice_advection.F |
351 |
THSICE_ADVECTION |
& +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps ) |
|
./pkg/thsice/thsice_advection.F |
561 |
THSICE_ADVECTION |
& MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
562 |
THSICE_ADVECTION |
& +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj) |
|
./pkg/thsice/thsice_advection.F |
570 |
THSICE_ADVECTION |
& MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps ) |
|
./pkg/thsice/thsice_advection.F |
571 |
THSICE_ADVECTION |
& +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps ) |
|
./pkg/thsice/thsice_albedo.F |
105 |
THSICE_ALBEDO |
IF ( iceMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_albedo.F |
130 |
THSICE_ALBEDO |
IF ( tempSnowAlb.LT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_albedo.F |
133 |
THSICE_ALBEDO |
& *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlb, 1. _d 0) ) |
|
./pkg/thsice/thsice_albedo.F |
139 |
THSICE_ALBEDO |
& +(albNewSnow-albOldSnow)*EXP(-0.2 _d 0*age/86400. _d 0) |
|
./pkg/thsice/thsice_albedo.F |
146 |
THSICE_ALBEDO |
& MIN( recFac_albNIR*ATAN(albNIR_fHice*hi), 1. _d 0 ) |
|
./pkg/thsice/thsice_albedo.F |
147 |
THSICE_ALBEDO |
& + 0.075 _d 0 * MIN( -Tsf - 1. _d 0, 0. _d 0 ) |
|
./pkg/thsice/thsice_albedo.F |
149 |
THSICE_ALBEDO |
sAlbNIR(i,j) = albNIR_ice * ( 1. _d 0 - hs/(hs + 0.02 _d 0) ) |
|
./pkg/thsice/thsice_albedo.F |
151 |
THSICE_ALBEDO |
& + 0.15 _d 0 *MIN( -Tsf - 1. _d 0, 0. _d 0) ) |
|
./pkg/thsice/thsice_albedo.F |
152 |
THSICE_ALBEDO |
& * hs/(hs + 0.02 _d 0) |
|
./pkg/thsice/thsice_albedo.F |
157 |
THSICE_ALBEDO |
IF (albedo.GT.1. _d 0 .OR. albedo.LT. .2 _d 0) THEN |
|
./pkg/thsice/thsice_albedo.F |
166 |
THSICE_ALBEDO |
sAlb(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_albedo.F |
167 |
THSICE_ALBEDO |
sAlbNIR(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_albedo.F |
95 |
THSICE_ALBEDO |
albNIR_ocean = 0.06 _d 0 |
|
./pkg/thsice/thsice_albedo.F |
96 |
THSICE_ALBEDO |
albNIR_thick = 0.33 _d 0 |
|
./pkg/thsice/thsice_albedo.F |
97 |
THSICE_ALBEDO |
albNIR_dsnow = 0.68 _d 0 |
|
./pkg/thsice/thsice_albedo.F |
98 |
THSICE_ALBEDO |
albNIR_fHice = 4. _d 0 |
|
./pkg/thsice/thsice_albedo.F |
99 |
THSICE_ALBEDO |
recFac_albNIR = 1. _d 0 / ATAN(albNIR_fHice*0.5 _d 0) |
|
./pkg/thsice/thsice_ave.F |
54 |
THSICE_AVE |
IF ( thSIce_taveFreq .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_balance_frw.F |
113 |
THSICE_BALANCE_FRW |
IF ( sumPrc.GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_balance_frw.F |
118 |
THSICE_BALANCE_FRW |
adjustFrW = 0. _d 0 |
|
./pkg/thsice/thsice_balance_frw.F |
64 |
THSICE_BALANCE_FRW |
sumTilePrc(bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_balance_frw.F |
65 |
THSICE_BALANCE_FRW |
sumTileFrW(bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_balance_frw.F |
78 |
THSICE_BALANCE_FRW |
sumPrc = 0. _d 0 |
|
./pkg/thsice/thsice_balance_frw.F |
83 |
THSICE_BALANCE_FRW |
IF ( globalArea.GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1058 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1064 |
THSICE_CALC_THICKN |
IF (icFrac(i,j).GT.0. _d 0.AND.extend.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1065 |
THSICE_CALC_THICKN |
rq = rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2)) |
|
./pkg/thsice/thsice_calc_thickn.F |
1071 |
THSICE_CALC_THICKN |
icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1077 |
THSICE_CALC_THICKN |
icFrac(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
1078 |
THSICE_CALC_THICKN |
hIce(i,j) =0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
1079 |
THSICE_CALC_THICKN |
hSnow1(i,j) =0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
1084 |
THSICE_CALC_THICKN |
ELSEIF (extend.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1094 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1123 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
239 |
THSICE_CALC_THICKN |
rec_nlyr = 1. _d 0 / rec_nlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
243 |
THSICE_CALC_THICKN |
lowIcFrac1 = iceMaskMin*1.01 _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
244 |
THSICE_CALC_THICKN |
lowIcFrac2 = iceMaskMin*1.10 _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
249 |
THSICE_CALC_THICKN |
rec_pLaw = 1. _d 0 / rec_pLaw |
|
./pkg/thsice/thsice_calc_thickn.F |
253 |
THSICE_CALC_THICKN |
c2Mlt = (1. _d 0 - fracEnMelt)**rec_pLaw |
|
./pkg/thsice/thsice_calc_thickn.F |
259 |
THSICE_CALC_THICKN |
c2Frz = (1. _d 0 -fracEnFreez)**rec_pLaw |
|
./pkg/thsice/thsice_calc_thickn.F |
265 |
THSICE_CALC_THICKN |
aMlt = -1. _d 0 /(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
267 |
THSICE_CALC_THICKN |
aFrz = -1. _d 0 /(hThickIce-hThinIce) |
|
./pkg/thsice/thsice_calc_thickn.F |
275 |
THSICE_CALC_THICKN |
evapLoc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
276 |
THSICE_CALC_THICKN |
Fbot (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
277 |
THSICE_CALC_THICKN |
etop (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
278 |
THSICE_CALC_THICKN |
ebot (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
279 |
THSICE_CALC_THICKN |
etope (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
280 |
THSICE_CALC_THICKN |
ebote (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
281 |
THSICE_CALC_THICKN |
esurp (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
282 |
THSICE_CALC_THICKN |
mwater0(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
283 |
THSICE_CALC_THICKN |
msalt0 (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
285 |
THSICE_CALC_THICKN |
enFrcMlt(i,j)= 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
286 |
THSICE_CALC_THICKN |
enFrcFrz(i,j)= 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
293 |
THSICE_CALC_THICKN |
qicen(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
294 |
THSICE_CALC_THICKN |
hnew (i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
319 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
324 |
THSICE_CALC_THICKN |
esurp(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
355 |
THSICE_CALC_THICKN |
enFrcMlt(i,j) = MAX( 0. _d 0, MIN( xxMlt, 1. _d 0 ) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
356 |
THSICE_CALC_THICKN |
enFrcFrz(i,j) = MAX( 0. _d 0, MIN( xxFrz, 1. _d 0 ) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
359 |
THSICE_CALC_THICKN |
IF (fzMlOc(i,j).GE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
370 |
THSICE_CALC_THICKN |
Fbot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
373 |
THSICE_CALC_THICKN |
Fbot(i,j) = (1. _d 0 - fracEnFreez)*fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
382 |
THSICE_CALC_THICKN |
ustar = 5. _d -2 |
|
./pkg/thsice/thsice_calc_thickn.F |
385 |
THSICE_CALC_THICKN |
& ustar = SQRT(0.00536 _d 0*v2oc(i,j)) |
|
./pkg/thsice/thsice_calc_thickn.F |
386 |
THSICE_CALC_THICKN |
ustar=max(5. _d -3,ustar) |
|
./pkg/thsice/thsice_calc_thickn.F |
391 |
THSICE_CALC_THICKN |
Fbot(i,j) = min(Fbot(i,j),0. _d 0) |
|
./pkg/thsice/thsice_calc_thickn.F |
411 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
416 |
THSICE_CALC_THICKN |
IF ( fracEnMelt.EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
417 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
420 |
THSICE_CALC_THICKN |
frace = MIN( enFrcMlt(i,j), MAX( 0. _d 0, frace ) ) |
|
./pkg/thsice/thsice_calc_thickn.F |
423 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
425 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
428 |
THSICE_CALC_THICKN |
frace = 1. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
436 |
THSICE_CALC_THICKN |
frace = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
443 |
THSICE_CALC_THICKN |
IF ( sHeat(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
444 |
THSICE_CALC_THICKN |
etop(i,j) = (1. _d 0-frace)*sHeat(i,j) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
447 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
448 |
THSICE_CALC_THICKN |
etope(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
464 |
THSICE_CALC_THICKN |
IF (ebot(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
468 |
THSICE_CALC_THICKN |
ebote(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
496 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
497 |
THSICE_CALC_THICKN |
& etop(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
498 |
THSICE_CALC_THICKN |
& hSnow1(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
508 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
511 |
THSICE_CALC_THICKN |
hSnow1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
522 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
536 |
THSICE_CALC_THICKN |
IF (etop(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
541 |
THSICE_CALC_THICKN |
etop(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
544 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
547 |
THSICE_CALC_THICKN |
etop(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
567 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0 .AND. ebot(i,j) .LT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
571 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
614 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
615 |
THSICE_CALC_THICKN |
& ebot(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
616 |
THSICE_CALC_THICKN |
& hnew(i,j,k) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
621 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
624 |
THSICE_CALC_THICKN |
hnew(i,j,k) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
637 |
THSICE_CALC_THICKN |
IF (iceMask(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
638 |
THSICE_CALC_THICKN |
& ebot(i,j) .GT. 0. _d 0 .AND. |
|
./pkg/thsice/thsice_calc_thickn.F |
639 |
THSICE_CALC_THICKN |
& hSnow1(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
644 |
THSICE_CALC_THICKN |
ebot(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
647 |
THSICE_CALC_THICKN |
hSnow1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
662 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
673 |
THSICE_CALC_THICKN |
& .AND. (hIce(i,j)+hSnow1(i,j)).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
677 |
THSICE_CALC_THICKN |
hIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
678 |
THSICE_CALC_THICKN |
hSnow1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
679 |
THSICE_CALC_THICKN |
tSrf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
680 |
THSICE_CALC_THICKN |
icFrac(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
681 |
THSICE_CALC_THICKN |
qicen(i,j,1) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
682 |
THSICE_CALC_THICKN |
qicen(i,j,2) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
697 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
704 |
THSICE_CALC_THICKN |
IF ( hIce(i,j) .LE. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
718 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
720 |
THSICE_CALC_THICKN |
IF ( hIce(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
729 |
THSICE_CALC_THICKN |
IF (hSnow1(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
732 |
THSICE_CALC_THICKN |
hSnow1(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
735 |
THSICE_CALC_THICKN |
evapLoc(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
758 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
766 |
THSICE_CALC_THICKN |
IF (hIce(i,j).GT.0. _d 0.AND.evapLoc(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
798 |
THSICE_CALC_THICKN |
hnew(i,j,k)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
806 |
THSICE_CALC_THICKN |
evapLoc(i,j)=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
835 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
836 |
THSICE_CALC_THICKN |
IF (hIce(i,j) .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
840 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).GT.0. _d 0 .AND. hIce(i,j).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
846 |
THSICE_CALC_THICKN |
hIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
847 |
THSICE_CALC_THICKN |
hSnow1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
848 |
THSICE_CALC_THICKN |
tSrf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
849 |
THSICE_CALC_THICKN |
icFrac(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
850 |
THSICE_CALC_THICKN |
qicen(i,j,1) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
851 |
THSICE_CALC_THICKN |
qicen(i,j,2) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
878 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
880 |
THSICE_CALC_THICKN |
IF ( hIce(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
927 |
THSICE_CALC_THICKN |
hnew(i,j,1)=hnew(i,j,1)-chi/2. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
928 |
THSICE_CALC_THICKN |
hnew(i,j,2)=hnew(i,j,2)-chi/2. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
960 |
THSICE_CALC_THICKN |
q2tmp = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
973 |
THSICE_CALC_THICKN |
qicen(i,j,1) = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
996 |
THSICE_CALC_THICKN |
IF (iceMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
999 |
THSICE_CALC_THICKN |
IF (hIce(i,j).LE.0. _d 0) icFrac(i,j)=0. _d 0 |
|
./model/src/ini_model_io.F |
200 |
INI_MODEL_IO |
xy_buffer_r8(i) = 0. _d 0 |
|
./pkg/thsice/thsice_check.F |
116 |
THSICE_CHECK |
& .AND. tauRelax_MxL.NE. -1. _d 0 ) THEN |
|
./pkg/thsice/thsice_cost_final.F |
44 |
THSICE_COST_FINAL |
f_thsice = 0. _d 0 |
|
./pkg/thsice/thsice_cost_final.F |
45 |
THSICE_COST_FINAL |
no_thsice = 0. _d 0 |
|
./pkg/thsice/thsice_cost_init_varia.F |
52 |
THSICE_COST_INIT_VARIA |
objf_thsice(bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_cost_init_varia.F |
53 |
THSICE_COST_INIT_VARIA |
num_thsice(bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_cost_test.F |
82 |
THSICE_COST_TEST |
tempVar = 1. _d 0/ |
|
./pkg/thsice/thsice_cost_test.F |
83 |
THSICE_COST_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./pkg/thsice/thsice_diagnostics_state.F |
58 |
THSICE_DIAGNOSTICS_STATE |
tmpFac = 1. _d 0 |
|
./pkg/thsice/thsice_diffusion.F |
72 |
THSICE_DIFFUSION |
hIceEpsil = 1. _d -10 |
|
./pkg/thsice/thsice_do_advect.F |
109 |
THSICE_DO_ADVECT |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_do_advect.F |
128 |
THSICE_DO_ADVECT |
IF ( stressReduction.GT. 0. _d 0 ) |
|
./pkg/thsice/thsice_extend.F |
127 |
THSICE_EXTEND |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
128 |
THSICE_EXTEND |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
129 |
THSICE_EXTEND |
fsalt (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
172 |
THSICE_EXTEND |
IF (fzMlOc(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
181 |
THSICE_EXTEND |
iceFormed = 0. _d 0 |
|
./pkg/thsice/thsice_extend.F |
185 |
THSICE_EXTEND |
IF ( iceFrac.LE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_extend.F |
187 |
THSICE_EXTEND |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
|
./pkg/thsice/thsice_extend.F |
190 |
THSICE_EXTEND |
qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0 |
|
./pkg/thsice/thsice_extend.F |
193 |
THSICE_EXTEND |
IF ( icFrac(i,j).EQ.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_extend.F |
243 |
THSICE_EXTEND |
IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN |
|
./pkg/thsice/thsice_get_bulkf.F |
110 |
THSICE_GET_BULKF |
evap(i,j) = EVPloc(1) * 1. _d -3 |
|
./pkg/thsice/thsice_get_bulkf.F |
111 |
THSICE_GET_BULKF |
dEvdT(i,j) = dEvp(1) * 1. _d -3 |
|
./pkg/thsice/thsice_get_bulkf.F |
86 |
THSICE_GET_BULKF |
IF ( icFlag(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_get_bulkf.F |
89 |
THSICE_GET_BULKF |
IF ( hSnow(i,j).GT.3. _d -1 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
189 |
THSICE_GET_EXF |
tstar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
190 |
THSICE_GET_EXF |
qstar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
191 |
THSICE_GET_EXF |
ustar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
192 |
THSICE_GET_EXF |
rdn(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
193 |
THSICE_GET_EXF |
rd(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
194 |
THSICE_GET_EXF |
rh(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
195 |
THSICE_GET_EXF |
re(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
196 |
THSICE_GET_EXF |
delq(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
197 |
THSICE_GET_EXF |
deltap(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
198 |
THSICE_GET_EXF |
ssq(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
206 |
THSICE_GET_EXF |
IF ( dBug(i,j,bi,bj) .AND. (icFlag(i,j).GT.0. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
230 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
231 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
232 |
THSICE_GET_EXF |
IF ( hSnow1(i,j).GT.3. _d -1 ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
251 |
THSICE_GET_EXF |
& (287.04 _d 0*atemp(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_exf.F |
252 |
THSICE_GET_EXF |
& *(1. _d 0 + humid_fac*aqh(i,j,bi,bj))) |
|
./pkg/thsice/thsice_get_exf.F |
265 |
THSICE_GET_EXF |
dflwupdT = emiss*stefanBoltzmann*Ts2*Tsf * 4. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
300 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
301 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
316 |
THSICE_GET_EXF |
rdn(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
333 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
334 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
359 |
THSICE_GET_EXF |
huol = MIN( MAX(-10. _d 0,huol), 10. _d 0 ) |
|
./pkg/thsice/thsice_get_exf.F |
371 |
THSICE_GET_EXF |
xsq = SQRT( ABS(exf_one - huol*16. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
374 |
THSICE_GET_EXF |
xsq = MAX(SQRT(ABS(exf_one - huol*16. _d 0)),exf_one) |
|
./pkg/thsice/thsice_get_exf.F |
380 |
THSICE_GET_EXF |
& *(exf_one+xsq)*0.125 _d 0 ) |
|
./pkg/thsice/thsice_get_exf.F |
384 |
THSICE_GET_EXF |
xsq = SQRT( ABS(exf_one - htol*16. _d 0) ) |
|
./pkg/thsice/thsice_get_exf.F |
387 |
THSICE_GET_EXF |
xsq = MAX(SQRT(ABS(exf_one - htol*16. _d 0)),exf_one) |
|
./pkg/thsice/thsice_get_exf.F |
432 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
433 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
464 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
465 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
511 |
THSICE_GET_EXF |
IF ( (icFlag(i,j).GT.0. _d 0) .AND. |
|
./pkg/thsice/thsice_get_exf.F |
512 |
THSICE_GET_EXF |
& (atemp(i,j,bi,bj).LE.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_get_exf.F |
514 |
THSICE_GET_EXF |
flxExcSw(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
515 |
THSICE_GET_EXF |
dFlxdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
516 |
THSICE_GET_EXF |
evapLoc (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_exf.F |
517 |
THSICE_GET_EXF |
dEvdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
100 |
THSICE_GET_OCEAN |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
101 |
THSICE_GET_OCEAN |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
102 |
THSICE_GET_OCEAN |
siceAlb (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
113 |
THSICE_GET_OCEAN |
& )*0.5 _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
127 |
THSICE_GET_OCEAN |
& )*0.5 _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
98 |
THSICE_GET_OCEAN |
v2ocMxL(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_ocean.F |
99 |
THSICE_GET_OCEAN |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
137 |
THSICE_GET_PRECIP |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_get_precip.F |
90 |
THSICE_GET_PRECIP |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_impl_temp.F |
84 |
THSICE_IMPL_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_ini_vars.F |
107 |
THSICE_INI_VARS |
adjustFrW = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
146 |
THSICE_INI_VARS |
Tf = -1.70 _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
151 |
THSICE_INI_VARS |
IF (iceMask(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_ini_vars.F |
153 |
THSICE_INI_VARS |
& + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf) |
|
./pkg/thsice/thsice_ini_vars.F |
57 |
THSICE_INI_VARS |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
58 |
THSICE_INI_VARS |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
59 |
THSICE_INI_VARS |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
60 |
THSICE_INI_VARS |
Tsrf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
61 |
THSICE_INI_VARS |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
62 |
THSICE_INI_VARS |
Tice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
63 |
THSICE_INI_VARS |
Qice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
64 |
THSICE_INI_VARS |
Qice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
65 |
THSICE_INI_VARS |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
71 |
THSICE_INI_VARS |
sHeating(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
72 |
THSICE_INI_VARS |
flxCndBt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
73 |
THSICE_INI_VARS |
siceAlb(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
74 |
THSICE_INI_VARS |
icFlxSW (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
75 |
THSICE_INI_VARS |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
76 |
THSICE_INI_VARS |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
78 |
THSICE_INI_VARS |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
79 |
THSICE_INI_VARS |
oceSflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
80 |
THSICE_INI_VARS |
oceQnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
88 |
THSICE_INI_VARS |
tOceMxL(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
99 |
THSICE_INI_VARS |
IF ( aim_landFr(i,j,bi,bj).EQ.1. _d 0 ) |
|
./model/src/ini_nh_vars.F |
48 |
INI_NH_VARS |
dPhiNH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
54 |
INI_NH_VARS |
phi_nh(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
55 |
INI_NH_VARS |
gW (i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
57 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,1) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
58 |
INI_NH_VARS |
gWnm (i,j,k,bi,bj,2) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
60 |
INI_NH_VARS |
gWnm1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
112 |
THSICE_MAIN |
prcAtm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
113 |
THSICE_MAIN |
snowPr (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
114 |
THSICE_MAIN |
qPrcRn (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
308 |
THSICE_MAIN |
IF ( stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_main.F |
312 |
THSICE_MAIN |
& *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
313 |
THSICE_MAIN |
fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj) |
|
./pkg/thsice/thsice_main.F |
319 |
THSICE_MAIN |
& *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0 |
|
./pkg/thsice/thsice_main.F |
320 |
THSICE_MAIN |
fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj) |
|
./pkg/thsice/thsice_map_exf.F |
99 |
THSICE_MAP_EXF |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_output.F |
349 |
THSICE_OUTPUT |
IF ( thSIce_monFreq.GT. 0. _d 0 ) |
|
./pkg/thsice/thsice_readparms.F |
108 |
THSICE_READPARMS |
rhos = 330. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
109 |
THSICE_READPARMS |
rhoi = 900. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
112 |
THSICE_READPARMS |
cpIce = 2106. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
114 |
THSICE_READPARMS |
kIce = 2.03 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
115 |
THSICE_READPARMS |
kSnow = 0.30 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
116 |
THSICE_READPARMS |
bMeltCoef=0.006 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
117 |
THSICE_READPARMS |
Lfresh = 3.34 _d 5 |
|
./pkg/thsice/thsice_readparms.F |
119 |
THSICE_READPARMS |
albColdSnow= 0.85 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
120 |
THSICE_READPARMS |
albWarmSnow= 0.70 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
121 |
THSICE_READPARMS |
tempSnowAlb= -10. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
122 |
THSICE_READPARMS |
albOldSnow = 0.55 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
123 |
THSICE_READPARMS |
albIceMax = 0.65 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
124 |
THSICE_READPARMS |
albIceMin = 0.20 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
125 |
THSICE_READPARMS |
hAlbIce = 0.50 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
126 |
THSICE_READPARMS |
hAlbSnow = 0.30 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
127 |
THSICE_READPARMS |
hNewSnowAge= 2. _d -3 |
|
./pkg/thsice/thsice_readparms.F |
128 |
THSICE_READPARMS |
snowAgTime = 50. _d 0 * 86400. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
129 |
THSICE_READPARMS |
i0swFrac = 0.3 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
130 |
THSICE_READPARMS |
ksolar = 1.5 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
131 |
THSICE_READPARMS |
dhSnowLin= 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
132 |
THSICE_READPARMS |
saltIce = 4. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
133 |
THSICE_READPARMS |
S_winton = 1. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
134 |
THSICE_READPARMS |
mu_Tf = 0.054 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
136 |
THSICE_READPARMS |
Terrmax = 5.0 _d -1 |
|
./pkg/thsice/thsice_readparms.F |
138 |
THSICE_READPARMS |
hIceMin = 1. _d -2 |
|
./pkg/thsice/thsice_readparms.F |
139 |
THSICE_READPARMS |
hiMax = 10. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
140 |
THSICE_READPARMS |
hsMax = 10. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
141 |
THSICE_READPARMS |
iceMaskMax = 1. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
142 |
THSICE_READPARMS |
iceMaskMin = 0.1 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
143 |
THSICE_READPARMS |
fracEnMelt = 0.4 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
144 |
THSICE_READPARMS |
fracEnFreez= 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
145 |
THSICE_READPARMS |
hThinIce = 0.2 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
146 |
THSICE_READPARMS |
hThickIce = 2.5 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
157 |
THSICE_READPARMS |
tauRelax_MxL = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
159 |
THSICE_READPARMS |
hMxL_default = 50. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
160 |
THSICE_READPARMS |
sMxL_default = 35. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
161 |
THSICE_READPARMS |
vMxL_default = 5. _d -2 |
|
./pkg/thsice/thsice_readparms.F |
162 |
THSICE_READPARMS |
thSIce_diffK = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
164 |
THSICE_READPARMS |
stressReduction = 1. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
165 |
THSICE_READPARMS |
IF ( useSEAICE ) stressReduction = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
192 |
THSICE_READPARMS |
mult_thsice = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
258 |
THSICE_READPARMS |
IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_readparms.F |
269 |
THSICE_READPARMS |
stressReduction = 0. _d 0 |
|
./pkg/thsice/thsice_reshape_layers.F |
58 |
THSICE_RESHAPE_LAYERS |
q2tmp = f1*qicen(1) + (1. _d 0-f1)*qicen(2) |
|
./pkg/thsice/thsice_reshape_layers.F |
71 |
THSICE_RESHAPE_LAYERS |
qicen(1) = f1*qicen(1) + (1. _d 0-f1)*qicen(2) |
|
./pkg/thsice/thsice_salt_plume.F |
106 |
THSICE_SALT_PLUME |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/thsice/thsice_salt_plume.F |
78 |
THSICE_SALT_PLUME |
locVar(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_slab_ocean.F |
104 |
THSICE_SLAB_OCEAN |
IF ( tauRelax_MxL .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
107 |
THSICE_SLAB_OCEAN |
dtFacR = 1. _d 0 /(1. _d 0 + dtFac) |
|
./pkg/thsice/thsice_slab_ocean.F |
108 |
THSICE_SLAB_OCEAN |
oceTfreez = - 1.9 _d 0 |
|
./pkg/thsice/thsice_slab_ocean.F |
111 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
125 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
139 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
147 |
THSICE_SLAB_OCEAN |
IF ( thSIce_taveFreq .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
79 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
91 |
THSICE_SLAB_OCEAN |
IF ( tauRelax_MxL_salt .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_slab_ocean.F |
94 |
THSICE_SLAB_OCEAN |
dtFacR = 1. _d 0 /(1. _d 0 + dtFac) |
|
./pkg/thsice/thsice_slab_ocean.F |
97 |
THSICE_SLAB_OCEAN |
IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
211 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
212 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
215 |
THSICE_SOLVE4TEMP |
flx0exSW(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
216 |
THSICE_SOLVE4TEMP |
flxTexSW(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
217 |
THSICE_SOLVE4TEMP |
dFlxdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
218 |
THSICE_SOLVE4TEMP |
evap00 (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
219 |
THSICE_SOLVE4TEMP |
evapT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
220 |
THSICE_SOLVE4TEMP |
dEvdT (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
221 |
THSICE_SOLVE4TEMP |
iceFlag (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
222 |
THSICE_SOLVE4TEMP |
Tsf (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
230 |
THSICE_SOLVE4TEMP |
IF ( dhSnowLin.GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
231 |
THSICE_SOLVE4TEMP |
recip_dhSnowLin = 1. _d 0 / dhSnowLin |
|
./pkg/thsice/thsice_solve4temp.F |
233 |
THSICE_SOLVE4TEMP |
recip_dhSnowLin = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
254 |
THSICE_SOLVE4TEMP |
IF ( icMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
256 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = 1. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
274 |
THSICE_SOLVE4TEMP |
frsnow = 1. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
277 |
THSICE_SOLVE4TEMP |
IF ( frsnow.GT.0. _d 0 ) frsnow = SQRT(frsnow) |
|
./pkg/thsice/thsice_solve4temp.F |
281 |
THSICE_SOLVE4TEMP |
fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac |
|
./pkg/thsice/thsice_solve4temp.F |
294 |
THSICE_SOLVE4TEMP |
k12(i,j) = 4. _d 0*kIce*kSnow |
|
./pkg/thsice/thsice_solve4temp.F |
295 |
THSICE_SOLVE4TEMP |
& / (kSnow*hIce(i,j) + 4. _d 0*kIce*hSnow1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
296 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
302 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1 |
|
./pkg/thsice/thsice_solve4temp.F |
306 |
THSICE_SOLVE4TEMP |
IF (tIc1(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
312 |
THSICE_SOLVE4TEMP |
IF ( tIc2(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
324 |
THSICE_SOLVE4TEMP |
a10(i,j) = rhoi*cpIce *hIce(i,j)/(2. _d 0*dt) + |
|
./pkg/thsice/thsice_solve4temp.F |
325 |
THSICE_SOLVE4TEMP |
& k32*( 4. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
326 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
329 |
THSICE_SOLVE4TEMP |
& /(2. _d 0*dt) |
|
./pkg/thsice/thsice_solve4temp.F |
330 |
THSICE_SOLVE4TEMP |
& - k32*( 4. _d 0*dt*k32*tFrz(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
332 |
THSICE_SOLVE4TEMP |
& / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) ) |
|
./pkg/thsice/thsice_solve4temp.F |
334 |
THSICE_SOLVE4TEMP |
c10(i,j) = rhoi*Lfresh*hIce(i,j)*Tmlt1 / (2. _d 0*dt) |
|
./pkg/thsice/thsice_solve4temp.F |
337 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
458 |
THSICE_SOLVE4TEMP |
IF ( iceFlag(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
481 |
THSICE_SOLVE4TEMP |
IF ( iceFlag(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
493 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./pkg/thsice/thsice_solve4temp.F |
498 |
THSICE_SOLVE4TEMP |
IF ( Tsf(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
506 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./pkg/thsice/thsice_solve4temp.F |
507 |
THSICE_SOLVE4TEMP |
Tsf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
513 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
525 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = 1. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
527 |
THSICE_SOLVE4TEMP |
iceFlag(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_solve4temp.F |
529 |
THSICE_SOLVE4TEMP |
iterate4Tsf = iterate4Tsf .OR. (iceFlag(i,j).GT.0. _d 0) |
|
./pkg/thsice/thsice_solve4temp.F |
540 |
THSICE_SOLVE4TEMP |
& (iceFlag(i,j).GT.0. _d 0) ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
547 |
THSICE_SOLVE4TEMP |
IF ( Tsf(i,j).LT.-70. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
572 |
THSICE_SOLVE4TEMP |
IF ( icMask(i,j).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
575 |
THSICE_SOLVE4TEMP |
k32 = 2. _d 0*kIce / hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
576 |
THSICE_SOLVE4TEMP |
tIc2(i,j) = ( 2. _d 0*dt*k32*(tIc1(i,j)+2. _d 0*tFrz(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
578 |
THSICE_SOLVE4TEMP |
& /(6. _d 0*dt*k32 + rhoi*cpIce*hIce(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
588 |
THSICE_SOLVE4TEMP |
flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
617 |
THSICE_SOLVE4TEMP |
& + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
627 |
THSICE_SOLVE4TEMP |
IF (tIc2(i,j) .GE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
646 |
THSICE_SOLVE4TEMP |
dTsrf1(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
133 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
135 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
137 |
THSICE_STEP_FWD |
frzSeaWat(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
142 |
THSICE_STEP_FWD |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
143 |
THSICE_STEP_FWD |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
144 |
THSICE_STEP_FWD |
fsalt (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
151 |
THSICE_STEP_FWD |
ageFac = 1. _d 0 - thSIce_deltaT/snowAgTime |
|
./pkg/thsice/thsice_step_fwd.F |
164 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
168 |
THSICE_STEP_FWD |
IF ( snowPrc(i,j).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
273 |
THSICE_STEP_FWD |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
282 |
THSICE_STEP_FWD |
opFrac= 1. _d 0-icFrac |
|
./pkg/thsice/thsice_step_fwd.F |
300 |
THSICE_STEP_FWD |
frzSeaWat(i,j) = MAX( -icFrac*frw2oc(i,j), 0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
309 |
THSICE_STEP_FWD |
ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
313 |
THSICE_STEP_FWD |
icFlxAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
314 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
325 |
THSICE_STEP_FWD |
flx2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
326 |
THSICE_STEP_FWD |
frw2oc(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
327 |
THSICE_STEP_FWD |
fsalt (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
358 |
THSICE_STEP_FWD |
frzSeaWat(i,j) = frzSeaWat(i,j) + MAX(-frw2oc(i,j), 0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
367 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
368 |
THSICE_STEP_FWD |
& isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
369 |
THSICE_STEP_FWD |
& .AND. iceFrac(i,j) .LE.0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
370 |
THSICE_STEP_FWD |
IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_fwd.F |
372 |
THSICE_STEP_FWD |
IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
373 |
THSICE_STEP_FWD |
& snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
375 |
THSICE_STEP_FWD |
iceMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
376 |
THSICE_STEP_FWD |
iceHeight(i,j,bi,bj)= 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
377 |
THSICE_STEP_FWD |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
378 |
THSICE_STEP_FWD |
snowAge(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
380 |
THSICE_STEP_FWD |
Tice1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
381 |
THSICE_STEP_FWD |
Tice2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
431 |
THSICE_STEP_FWD |
IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_step_temp.F |
100 |
THSICE_STEP_TEMP |
tmpFlx(2) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
103 |
THSICE_STEP_TEMP |
dTsrf(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
142 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
155 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
158 |
THSICE_STEP_TEMP |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |
|
./pkg/thsice/thsice_step_temp.F |
161 |
THSICE_STEP_TEMP |
tFrzOce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
189 |
THSICE_STEP_TEMP |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_step_temp.F |
191 |
THSICE_STEP_TEMP |
opFrac = 1. _d 0 - icFrac |
|
./pkg/thsice/thsice_step_temp.F |
99 |
THSICE_STEP_TEMP |
tmpFlx(1) = 0. _d 0 |
|
./pkg/thsice/thsice_test_addfluid.h |
21 |
NO PROCEDURE |
EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_p_ground.F |
129 |
INI_P_GROUND |
recip_kappa = 1. _d 0 / atm_kappa |
|
./model/src/ini_p_ground.F |
130 |
INI_P_GROUND |
plowHvR = 0.4 _d 0 |
|
./model/src/ini_p_ground.F |
138 |
INI_P_GROUND |
pMidHvR(k)= (pLevHvR(k)+pLevHvR(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
145 |
INI_P_GROUND |
ratioRm(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
146 |
INI_P_GROUND |
ratioRp(k) = 1. _d 0 |
|
./model/src/ini_p_ground.F |
147 |
INI_P_GROUND |
IF (k.GT.1 ) ratioRm(k) = 0.5 _d 0*drC(k)/(rF(k)-rC(k)) |
|
./model/src/ini_p_ground.F |
148 |
INI_P_GROUND |
IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/ini_p_ground.F |
180 |
INI_P_GROUND |
IF ( phiLoc .LE. 0. _d 0 ) THEN |
|
./model/src/ini_p_ground.F |
238 |
INI_P_GROUND |
IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
414 |
ANALYLIC_THETA |
& / 45. _d 0, 65. _d 0, 65. _d 0, .9 _d 0, .9 _d 0, 10. _d 0 / |
|
./model/src/ini_p_ground.F |
416 |
ANALYLIC_THETA |
& / 2.6 _d 0, 1.5 _d 0, 3.3 _d 0 / |
|
./model/src/ini_p_ground.F |
418 |
ANALYLIC_THETA |
& / .1 _d 0, .19 _d 0, .3 _d 0, .9 _d 0, .7 _d 0, .925 _d 0 / |
|
./model/src/ini_p_ground.F |
420 |
ANALYLIC_THETA |
& / 350. _d 0, 342. _d 0, 307. _d 0, 301. _d 0, 257. _d 0 / |
|
./model/src/ini_p_ground.F |
425 |
ANALYLIC_THETA |
yAtmp = yyA + MIN(0. _d 0,yAtmp/yyAd) + MAX(yAtmp, 0. _d 0) |
|
./model/src/ini_p_ground.F |
426 |
ANALYLIC_THETA |
yAtmp = COS( deg2rad*MAX(yAtmp, 0. _d 0) ) |
|
./model/src/ini_p_ground.F |
429 |
ANALYLIC_THETA |
yBtmp = COS( deg2rad*MAX( 0. _d 0, MIN(yBtmp,90. _d 0) ) ) |
|
./model/src/ini_p_ground.F |
431 |
ANALYLIC_THETA |
yCtmp = MAX( 0. _d 0, 1. _d 0 - (yCtmp/yyCd)**2 ) |
|
./model/src/ini_p_ground.F |
442 |
ANALYLIC_THETA |
& ( (1. _d 0 -ppr)*ttp1*ppN1**atm_kappa |
|
./model/src/ini_p_ground.F |
445 |
ANALYLIC_THETA |
& + a1tmp*(1. _d 0 /ppm - 1. _d 0/ppN1) |
|
./model/src/ini_p_ground.F |
447 |
ANALYLIC_THETA |
& + (ttdC+yCtmp)*MAX(0. _d 0,pNlev(k)-yDtmp)/(1-yDtmp) |
|
./pkg/timeave/timeave_cumul_2v.F |
113 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
128 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
145 |
TIMEAVE_CUMUL_2V |
& + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
162 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_cumul_2v.F |
179 |
TIMEAVE_CUMUL_2V |
& + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) ) |
|
./pkg/timeave/timeave_norma_2v.F |
40 |
TIMEAVE_NORMA_2V |
IF ( cumulWeight(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/timeave/timeave_normalize.F |
48 |
TIMEAVE_NORMALIZE |
IF ( timeave_cumul(bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/timeave/timeave_reset.F |
36 |
TIMEAVE_RESET |
fldtave(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_parms.F |
1063 |
INI_PARMS |
pCellMix_maxFac = 1. _d 4 |
|
./model/src/ini_parms.F |
1201 |
INI_PARMS |
rSphere = 6370. _d 3 |
|
./model/src/ini_parms.F |
1208 |
INI_PARMS |
recip_rSphere = 1. _d 0/rSphere |
|
./model/src/ini_parms.F |
1279 |
INI_PARMS |
IF ( phiEuler .NE. 0. _d 0 .OR. thetaEuler .NE. 0. _d 0 |
|
./model/src/ini_parms.F |
1280 |
INI_PARMS |
& .OR. psiEuler .NE. 0. _d 0 ) rotateGrid = .TRUE. |
|
./model/src/ini_parms.F |
1285 |
INI_PARMS |
IF ( usingSphericalPolarGrid ) latBandClimRelax= 180. _d 0 |
|
./model/src/ini_parms.F |
1286 |
INI_PARMS |
IF ( usingCurvilinearGrid ) latBandClimRelax= 180. _d 0 |
|
./model/src/ini_parms.F |
445 |
INI_PARMS |
IF ( implicitFreeSurface ) freeSurfFac = 1. _d 0 |
|
./model/src/ini_parms.F |
446 |
INI_PARMS |
IF ( rigidLid ) freeSurfFac = 0. _d 0 |
|
./model/src/ini_parms.F |
453 |
INI_PARMS |
omega = 0. _d 0 |
|
./model/src/ini_parms.F |
454 |
INI_PARMS |
IF ( rotationPeriod .NE. 0. _d 0 ) |
|
./model/src/ini_parms.F |
455 |
INI_PARMS |
& omega = 2. _d 0 * PI / rotationPeriod |
|
./model/src/ini_parms.F |
456 |
INI_PARMS |
ELSEIF ( omega .EQ. 0. _d 0 ) THEN |
|
./model/src/ini_parms.F |
457 |
INI_PARMS |
rotationPeriod = 0. _d 0 |
|
./model/src/ini_parms.F |
459 |
INI_PARMS |
rotationPeriod = 2. _d 0 * PI / omega |
|
./model/src/ini_parms.F |
641 |
INI_PARMS |
recip_rhoConst = 1. _d 0 |
|
./model/src/ini_parms.F |
643 |
INI_PARMS |
recip_rhoConst = 1. _d 0 / rhoConst |
|
./model/src/ini_parms.F |
662 |
INI_PARMS |
recip_gravity = 1. _d 0 |
|
./model/src/ini_parms.F |
664 |
INI_PARMS |
recip_gravity = 1. _d 0 / gravity |
|
./model/src/ini_parms.F |
826 |
INI_PARMS |
rCD = -1. _d 0 |
|
./model/src/ini_parms.F |
829 |
INI_PARMS |
deltaTtracer = 0. _d 0 |
|
./model/src/ini_parms.F |
960 |
INI_PARMS |
IF ( tauCD .EQ. 0. _d 0 ) tauCD = deltaTMom |
|
./model/src/ini_parms.F |
961 |
INI_PARMS |
IF ( rCD .LT. 0. ) rCD = 1. _d 0 - deltaTMom/tauCD |
|
./pkg/timeave/timeave_statvars.F |
111 |
TIMEAVE_STATVARS |
IF ( DDTT .NE. 0. _d 0) THEN |
|
./pkg/timeave/timeave_statvars.F |
91 |
TIMEAVE_STATVARS |
timeAve_half(bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_statvars.F |
92 |
TIMEAVE_STATVARS |
timeAve_full(bi,bj) = 0. _d 0 |
|
./pkg/timeave/timeave_statvars.F |
97 |
TIMEAVE_STATVARS |
DDTT = deltaTclock*(1. _d 0 - tave_lastIter) |
|
./model/src/ini_pressure.F |
100 |
INI_PRESSURE |
rmsTile = 0. _d 0 |
|
./model/src/ini_pressure.F |
101 |
INI_PRESSURE |
sumTile = 0. _d 0 |
|
./model/src/ini_pressure.F |
104 |
INI_PRESSURE |
phiHydF(i,j) = 0. _d 0 |
|
./model/src/ini_pressure.F |
141 |
INI_PRESSURE |
rmspp = 0. _d 0 |
|
./model/src/ini_pressure.F |
74 |
INI_PRESSURE |
totPhiHyd(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/ini_pressure.F |
88 |
INI_PRESSURE |
rmspp = 1. _d 0 |
|
./model/src/ini_pressure.F |
89 |
INI_PRESSURE |
rmsppold = 0. _d 0 |
|
./model/src/ini_pressure.F |
96 |
INI_PRESSURE |
rmspp = 0. _d 0 |
|
./model/src/ini_pressure.F |
97 |
INI_PRESSURE |
count = 0. _d 0 |
|
./model/src/ini_psurf.F |
58 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_psurf.F |
92 |
INI_PSURF |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_sigma_hfac.F |
104 |
INI_SIGMA_HFAC |
IF ( maskInC(i,j,bi,bj).NE.0. _d 0 ) THEN |
|
./model/src/ini_sigma_hfac.F |
151 |
INI_SIGMA_HFAC |
& + Ro_surf( i, j,bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
154 |
INI_SIGMA_HFAC |
& + R_low( i, j,bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
174 |
INI_SIGMA_HFAC |
& + Ro_surf(i, j, bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
177 |
INI_SIGMA_HFAC |
& + R_low(i, j, bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
74 |
INI_SIGMA_HFAC |
& tmpFld(i,j) = 0. _d 0 |
|
./model/src/ini_sigma_hfac.F |
85 |
INI_SIGMA_HFAC |
IF ( tmpFld(i,j).GT.0. _d 0 ) THEN |
|
./model/src/ini_sigma_hfac.F |
89 |
INI_SIGMA_HFAC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpFld(i,j) |
|
./model/src/ini_sigma_hfac.F |
94 |
INI_SIGMA_HFAC |
recip_Rcol(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
118 |
INI_SPHERICAL_POLAR_GRID |
lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_spherical_polar_grid.F |
146 |
INI_SPHERICAL_POLAR_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
162 |
INI_SPHERICAL_POLAR_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
176 |
INI_SPHERICAL_POLAR_GRID |
dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
177 |
INI_SPHERICAL_POLAR_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
187 |
INI_SPHERICAL_POLAR_GRID |
lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_spherical_polar_grid.F |
193 |
INI_SPHERICAL_POLAR_GRID |
lat = yC(i,j,bi,bj) - delYloc(j)*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
194 |
INI_SPHERICAL_POLAR_GRID |
dlat= yC(i,j,bi,bj) + delYloc(j)*0.5 _d 0 |
|
./model/src/ini_spherical_polar_grid.F |
205 |
INI_SPHERICAL_POLAR_GRID |
rAw(i,j,bi,bj) = 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
221 |
INI_SPHERICAL_POLAR_GRID |
dlat = 0.5 _d 0*( delYloc(j) + delYloc(j-1) ) |
|
./model/src/ini_spherical_polar_grid.F |
235 |
INI_SPHERICAL_POLAR_GRID |
lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1)) |
|
./model/src/ini_spherical_polar_grid.F |
236 |
INI_SPHERICAL_POLAR_GRID |
dlon = 0.5 _d 0*( delXloc(i) + delXloc(i-1) ) |
|
./model/src/ini_spherical_polar_grid.F |
237 |
INI_SPHERICAL_POLAR_GRID |
dlat = 0.5 _d 0*( delYloc(j) + delYloc(j-1) ) |
|
./model/src/ini_spherical_polar_grid.F |
247 |
INI_SPHERICAL_POLAR_GRID |
lat=0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1)) |
|
./model/src/ini_spherical_polar_grid.F |
249 |
INI_SPHERICAL_POLAR_GRID |
lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_spherical_polar_grid.F |
261 |
INI_SPHERICAL_POLAR_GRID |
lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1)) |
|
./model/src/ini_spherical_polar_grid.F |
263 |
INI_SPHERICAL_POLAR_GRID |
lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j)) |
|
./model/src/ini_spherical_polar_grid.F |
89 |
INI_SPHERICAL_POLAR_GRID |
xC(i,j,bi,bj) = 0.25 _d 0*( |
|
./model/src/ini_spherical_polar_grid.F |
91 |
INI_SPHERICAL_POLAR_GRID |
yC(i,j,bi,bj) = 0.25 _d 0*( |
|
./verification/advect_cs/code/ini_vel.F |
59 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/advect_cs/code/ini_vel.F |
61 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_theta.F |
134 |
INI_THETA |
Tfreezing=-1.9 _d 0 |
|
./verification/advect_xy/code/ini_salt.F |
65 |
INI_SALT |
rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
66 |
INI_SALT |
& +( yC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
67 |
INI_SALT |
& +( rC(k) + 50. _d 3 )**2 |
|
./verification/advect_xy/code/ini_salt.F |
69 |
INI_SALT |
IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0 |
|
./verification/advect_xy/code/ini_theta.F |
132 |
INI_THETA |
Tfreezing=-1.9 _d 0 |
|
./verification/advect_xy/code/ini_theta.F |
66 |
INI_THETA |
rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
67 |
INI_THETA |
& +( yC(i,j,bi,bj) - 40. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
68 |
INI_THETA |
& +( rC(k) + 50. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
70 |
INI_THETA |
theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 ) |
|
./verification/advect_xy/code/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=1. _d 0 |
|
./verification/advect_xy/code/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=1. _d 0 |
|
./model/src/ini_vel.F |
51 |
INI_VEL |
uVel(i,j,k,bi,bj)=0. _d 0 |
|
./model/src/ini_vel.F |
52 |
INI_VEL |
vVel(i,j,k,bi,bj)=0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
112 |
AIM_SURF_BC |
tYear = 0.25 _d 0 - 10. _d 0/365. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
137 |
AIM_SURF_BC |
tmprd = t0prd - 0.5 _d 0 + tNcyc |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
144 |
AIM_SURF_BC |
aim_sWght1 = 0.5 _d 0+(dTprd-0.5 _d 0)*aim_surfForc_TransRatio |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
145 |
AIM_SURF_BC |
aim_sWght1 = MAX( 0. _d 0, MIN(1. _d 0, aim_sWght1) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
146 |
AIM_SURF_BC |
aim_sWght0 = 1. _d 0 - aim_sWght1 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
168 |
AIM_SURF_BC |
SDEP1 = 70. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
169 |
AIM_SURF_BC |
IDEP2 = 3. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
173 |
AIM_SURF_BC |
RSW = 1. _d 0/(SDEP1*SWCAP+SDEP2*(SWCAP-SWWIL)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
180 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
184 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
188 |
AIM_SURF_BC |
soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
206 |
AIM_SURF_BC |
oceTfreez = celsius2K - 1.9 _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
209 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
214 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
225 |
AIM_SURF_BC |
RSD=1. _d 0/SDALB |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
226 |
AIM_SURF_BC |
ALPHA= 2. _d 0*PI*(TYEAR+10. _d 0/365. _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
232 |
AIM_SURF_BC |
RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
244 |
AIM_SURF_BC |
& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
245 |
AIM_SURF_BC |
& *MIN( 1. _d 0, RSD*snow1(I2)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
256 |
AIM_SURF_BC |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
257 |
AIM_SURF_BC |
CZEN = 0.0 _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
258 |
AIM_SURF_BC |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
259 |
AIM_SURF_BC |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
260 |
AIM_SURF_BC |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
264 |
AIM_SURF_BC |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
265 |
AIM_SURF_BC |
CZEN2= 2.0 _d 0*TMPA*TMPA*hlim |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
266 |
AIM_SURF_BC |
& + 4.0 _d 0*TMPA*TMPB*SIN(hlim) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
267 |
AIM_SURF_BC |
& + TMPB*TMPB*( hlim + 0.5 _d 0*SIN(2.0 _d 0*hlim) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
270 |
AIM_SURF_BC |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
271 |
AIM_SURF_BC |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
272 |
AIM_SURF_BC |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
276 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
277 |
AIM_SURF_BC |
& + 0.5 _d 0 * ALBSEA1 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
288 |
AIM_SURF_BC |
aim_sWght1 = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
289 |
AIM_SURF_BC |
aim_sWght0 = 1. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
337 |
AIM_SURF_BC |
& +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
403 |
AIM_SURF_BC |
pCO2scl = 1. _d 6 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
433 |
AIM_SURF_BC |
fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
435 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
455 |
AIM_SURF_BC |
fMask1(J,3,myThid) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
456 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
79 |
INI_DEPTHS |
R_low(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
80 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
81 |
INI_DEPTHS |
topoZ(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
100 |
INI_VERTICAL_GRID |
drF( k ) = 0.5 _d 0 *delRc(k) |
|
./model/src/ini_vertical_grid.F |
101 |
INI_VERTICAL_GRID |
drF(k-1) = 0.5 _d 0 *delRc(k) + drF(k-1) |
|
./model/src/ini_vertical_grid.F |
126 |
INI_VERTICAL_GRID |
drC(1) = 0.5 _d 0 *delR(1) |
|
./model/src/ini_vertical_grid.F |
128 |
INI_VERTICAL_GRID |
drC(k) = 0.5 _d 0 *(delR(k-1)+delR(k)) |
|
./model/src/ini_vertical_grid.F |
130 |
INI_VERTICAL_GRID |
drC(Nr+1) = 0.5 _d 0 *delR(Nr) |
|
./model/src/ini_vertical_grid.F |
175 |
INI_VERTICAL_GRID |
checkRatio1 = 1. _d 0 / checkRatio2 |
|
./model/src/ini_vertical_grid.F |
199 |
INI_VERTICAL_GRID |
recip_drC(k) = 1. _d 0/drC(k) |
|
./model/src/ini_vertical_grid.F |
202 |
INI_VERTICAL_GRID |
recip_drF(k) = 1. _d 0/drF(k) |
|
./model/src/ini_vertical_grid.F |
208 |
INI_VERTICAL_GRID |
aHybSigmF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
209 |
INI_VERTICAL_GRID |
bHybSigmF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
210 |
INI_VERTICAL_GRID |
dAHybSigC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
211 |
INI_VERTICAL_GRID |
dAHybSigC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
214 |
INI_VERTICAL_GRID |
aHybSigmC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
215 |
INI_VERTICAL_GRID |
bHybSigmC(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
216 |
INI_VERTICAL_GRID |
dAHybSigF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
217 |
INI_VERTICAL_GRID |
dAHybSigF(k) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
221 |
INI_VERTICAL_GRID |
recip_fullDepth = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
222 |
INI_VERTICAL_GRID |
IF ( rFullDepth.GT.0. ) recip_fullDepth = 1. _d 0 / rFullDepth |
|
./model/src/ini_vertical_grid.F |
263 |
INI_VERTICAL_GRID |
aHybSigmF(k) = (1. _d 0 - bHybSigmF(k)) |
|
./model/src/ini_vertical_grid.F |
281 |
INI_VERTICAL_GRID |
aHybSigmC(k) = (1. _d 0 - bHybSigmC(k)) |
|
./model/src/ini_vertical_grid.F |
329 |
INI_VERTICAL_GRID |
bHybSigmF(1) = 1. _d 0 |
|
./model/src/ini_vertical_grid.F |
330 |
INI_VERTICAL_GRID |
aHybSigmF(1) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
331 |
INI_VERTICAL_GRID |
bHybSigmF(Nr+1) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
332 |
INI_VERTICAL_GRID |
aHybSigmF(Nr+1) = 0. _d 0 |
|
./model/src/ini_vertical_grid.F |
334 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( bHybSigmC(k) + bHybSigmC(k-1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
335 |
INI_VERTICAL_GRID |
aHybSigmF(k) = ( aHybSigmC(k) + aHybSigmC(k-1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
341 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( bHybSigmF(k) + bHybSigmF(k+1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
342 |
INI_VERTICAL_GRID |
aHybSigmC(k) = ( aHybSigmF(k) + aHybSigmF(k+1) )*0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
363 |
INI_VERTICAL_GRID |
epsil = 1. _d -9 |
|
./model/src/ini_vertical_grid.F |
56 |
INI_VERTICAL_GRID |
rkSign = -1. _d 0 |
|
./model/src/ini_vertical_grid.F |
57 |
INI_VERTICAL_GRID |
gravitySign = -1. _d 0 |
|
./model/src/ini_vertical_grid.F |
59 |
INI_VERTICAL_GRID |
gravitySign = 1. _d 0 |
|
./model/src/integr_continuity.F |
162 |
INTEGR_CONTINUITY |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./model/src/integr_continuity.F |
206 |
INTEGR_CONTINUITY |
IF (implicDiv2Dflow.EQ. 0. _d 0) THEN |
|
./model/src/integr_continuity.F |
302 |
INTEGR_CONTINUITY |
& .AND. implicDiv2Dflow .NE. 0. _d 0 ) |
|
./model/src/integr_continuity.F |
97 |
INTEGR_CONTINUITY |
hDivFlow(i,j) = 0. _d 0 |
|
./model/src/integr_continuity.F |
98 |
INTEGR_CONTINUITY |
utrans(i,j) = 0. _d 0 |
|
./model/src/integr_continuity.F |
99 |
INTEGR_CONTINUITY |
vtrans(i,j) = 0. _d 0 |
|
./verification/dome/code/obcs_calc.F |
156 |
OBCS_CALC |
x=(xC(I,1,bi,bj)-Xcenter)/Lrho +Width/2. _d 0 |
|
./verification/dome/code/obcs_calc.F |
164 |
OBCS_CALC |
IF (zt.GE.(Rit/(2. _d 0 -Rit))) THEN |
|
./verification/dome/code/obcs_calc.F |
168 |
OBCS_CALC |
Fz=1. _d 0/Rit*zt/(zt+1. _d 0) + 0.5 _d 0 |
|
./verification/dome/code/obcs_calc.F |
181 |
OBCS_CALC |
& *(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
188 |
OBCS_CALC |
IF (tRef(K).LE. (-dTemp*(1. _d 0 - Fz))) THEN |
|
./verification/dome/code/obcs_calc.F |
191 |
OBCS_CALC |
OBNt(I,K,bi,bj) = -dTemp*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
199 |
OBCS_CALC |
OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz) |
|
./verification/dome/code/obcs_calc.F |
55 |
OBCS_CALC |
Dmax = 600. _d 0 |
|
./verification/dome/code/obcs_calc.F |
57 |
OBCS_CALC |
delh=5. _d 0 |
|
./verification/dome/code/obcs_calc.F |
59 |
OBCS_CALC |
Dinf=300. _d 0 |
|
./verification/dome/code/obcs_calc.F |
61 |
OBCS_CALC |
dTemp=(2. _d 0/rhonil)/(2. _d -4) |
|
./verification/dome/code/obcs_calc.F |
66 |
OBCS_CALC |
Width=100. _d 3 |
|
./verification/dome/code/obcs_calc.F |
71 |
OBCS_CALC |
Xcenter = 1700. _d 3 |
|
./verification/dome/code/obcs_calc.F |
73 |
OBCS_CALC |
Rit = 1. _d 0/3. _d 0 |
|
./verification/dome/code/obcs_calc.F |
80 |
OBCS_CALC |
z(1) = -delR(1)/2. _d 0 |
|
./verification/dome/code/obcs_calc.F |
89 |
OBCS_CALC |
rampTime2 = 4. _d 0*44567. _d 0 |
|
./verification/dome/code/obcs_calc.F |
90 |
OBCS_CALC |
rexpt=1. _d 0/exp(futureTime/rampTime2) |
|
./model/src/load_fields_driver.F |
100 |
LOAD_FIELDS_DRIVER |
addMass(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/load_fields_driver.F |
116 |
LOAD_FIELDS_DRIVER |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/load_grid_spacing.F |
176 |
LOAD_GRID_SPACING |
latBandClimRelax = delYsum*3. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
78 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.99 _d 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F |
80 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.01 _d 0 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
261 |
GETSST |
pio2 = pi / 2. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
262 |
GETSST |
pio3 = pi / 3. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
263 |
GETSST |
pio36 = pi / 36. _d 0 |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
264 |
GETSST |
mpio3 = -1. _d 0 * pi / 3. _d 0 |
|
./model/src/load_ref_files.F |
136 |
LOAD_REF_FILES |
gravFacF(1) = 1. _d 0 |
|
./model/src/load_ref_files.F |
152 |
LOAD_REF_FILES |
recip_gravFacC(k) = 1. _d 0/gravFacC(k) |
|
./model/src/load_ref_files.F |
155 |
LOAD_REF_FILES |
recip_gravFacF(k) = 1. _d 0/gravFacF(k) |
|
./model/src/load_ref_files.F |
161 |
LOAD_REF_FILES |
gravFacC(k) = 1. _d 0 |
|
./model/src/load_ref_files.F |
162 |
LOAD_REF_FILES |
recip_gravFacC(k) = 1. _d 0 |
|
./model/src/load_ref_files.F |
165 |
LOAD_REF_FILES |
gravFacF(k) = 1. _d 0 |
|
./model/src/load_ref_files.F |
166 |
LOAD_REF_FILES |
recip_gravFacF(k) = 1. _d 0 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
161 |
DO_FIZHI |
kF=1. _d 0/86400. _d 0 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
162 |
DO_FIZHI |
sigma_b = 0.7 _d 0 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
163 |
DO_FIZHI |
ka=1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
164 |
DO_FIZHI |
ks=1. _d 0/(4. _d 0 *86400. _d 0) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
173 |
DO_FIZHI |
recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
175 |
DO_FIZHI |
termP=0.5 _d 0*((pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj)) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
177 |
DO_FIZHI |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
183 |
DO_FIZHI |
term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
184 |
DO_FIZHI |
termP=0.5 _d 0*( pephy(i,j,L,bi,bj) + pephy(i,j,L+1,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
185 |
DO_FIZHI |
term2=10. _d 0*log(termP/atm_po) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
187 |
DO_FIZHI |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
188 |
DO_FIZHI |
thetaEq=315. _d 0-term1-term2 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
191 |
DO_FIZHI |
& *MAX(0. _d 0, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
192 |
DO_FIZHI |
& (termP*recip_P0g-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
85 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.5 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
87 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.5 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
90 |
FIZHI_INIT_VEG |
tilefrac(i,j,1,bi,bj) = 0.99 _d 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F |
92 |
FIZHI_INIT_VEG |
tilefrac(i,j,2,bi,bj) = 0.01 _d 0 |
|
./verification/global_ocean.cs32x15/code_ad/cost_test.F |
57 |
COST_TEST |
thetaRef = 24.0 _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
89 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
77 |
CTRL_MAP_INI_GENARR |
fac = 1. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
156 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
89 |
CTRL_MAP_GENTIM2D |
bdot_streamice(i,j,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
77 |
CTRL_MAP_INI_GENARR |
fac = 1. _d 0 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
120 |
EXTERNAL_FORCING_V |
kF=1. _d 0/86400. _d 0 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
121 |
EXTERNAL_FORCING_V |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
131 |
EXTERNAL_FORCING_V |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
188 |
EXTERNAL_FORCING_T |
ka=1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
189 |
EXTERNAL_FORCING_T |
ks=1. _d 0/(4. _d 0 *86400. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
190 |
EXTERNAL_FORCING_T |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
193 |
EXTERNAL_FORCING_T |
term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
195 |
EXTERNAL_FORCING_T |
term2=10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
197 |
EXTERNAL_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
198 |
EXTERNAL_FORCING_T |
thetaEq=315. _d 0-term1-term2 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
202 |
EXTERNAL_FORCING_T |
& *MAX(0. _d 0, |
|
./verification/hs94.128x64x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
52 |
EXTERNAL_FORCING_U |
kF=1. _d 0/86400. _d 0 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
53 |
EXTERNAL_FORCING_U |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.128x64x5/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
63 |
EXTERNAL_FORCING_U |
kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
160 |
APPLY_FORCING_V |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
252 |
APPLY_FORCING_T |
ka = 1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
253 |
APPLY_FORCING_T |
ks = 1. _d 0/(4. _d 0 *86400. _d 0) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
254 |
APPLY_FORCING_T |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
67 |
APPLY_FORCING_U |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
72 |
INI_THETA |
thetaEq=315. _d 0-term1-term2 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
160 |
APPLY_FORCING_V |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
252 |
APPLY_FORCING_T |
ka = 1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
253 |
APPLY_FORCING_T |
ks = 1. _d 0/(4. _d 0 *86400. _d 0) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
254 |
APPLY_FORCING_T |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
67 |
APPLY_FORCING_U |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
49 |
COST_TEST |
objf_test(bi,bj)= 0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
54 |
COST_TEST |
thetaRef = 24.0 _d 0 |
|
./verification/hs94.1x64x5/code_ad/cost_test.F |
78 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
124 |
CTRL_MAP_GENTIM2D |
LOCsumGlob=0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
127 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
87 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
73 |
CTRL_MAP_INI_GENARR |
fac = 1. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
72 |
INI_THETA |
thetaEq=315. _d 0-term1-term2 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
160 |
APPLY_FORCING_V |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
252 |
APPLY_FORCING_T |
ka = 1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
253 |
APPLY_FORCING_T |
ks = 1. _d 0/(4. _d 0 *86400. _d 0) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
254 |
APPLY_FORCING_T |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
67 |
APPLY_FORCING_U |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
49 |
COST_TEST |
objf_test(bi,bj)= 0. _d 0 |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
54 |
COST_TEST |
thetaRef = 24.0 _d 0 |
|
./verification/hs94.1x64x5/code_oad/cost_test.F |
78 |
COST_TEST |
objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
124 |
CTRL_MAP_GENTIM2D |
LOCsumGlob=0. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
127 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=0. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
87 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
73 |
CTRL_MAP_INI_GENARR |
fac = 1. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
72 |
INI_THETA |
thetaEq=315. _d 0-term1-term2 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
160 |
APPLY_FORCING_V |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
252 |
APPLY_FORCING_T |
ka = 1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
253 |
APPLY_FORCING_T |
ks = 1. _d 0/(4. _d 0 *86400. _d 0) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
254 |
APPLY_FORCING_T |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
67 |
APPLY_FORCING_U |
sigma_b = 0.7 _d 0 |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
72 |
INI_THETA |
thetaEq=315. _d 0-term1-term2 |
|
./model/src/post_cg3d.F |
130 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/post_cg3d.F |
76 |
POST_CG3D |
& )/(1. _d 0 + locGamma ) |
|
./verification/internal_wave/code/obcs_calc.F |
115 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
118 |
OBCS_CALC |
& *sin(2. _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
123 |
OBCS_CALC |
& *cos(kx*(3. _d 0-2. _d 0-0.5 _d 0)*delX(1)) |
|
./verification/internal_wave/code/obcs_calc.F |
124 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
126 |
OBCS_CALC |
& *f0/(2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
128 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale ) |
|
./verification/internal_wave/code/obcs_calc.F |
134 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
135 |
OBCS_CALC |
& * sin(2.0 _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
137 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0*PI/obTimeScale - f0*f0) |
|
./verification/internal_wave/code/obcs_calc.F |
138 |
OBCS_CALC |
& /(2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
145 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale - f0*f0) |
|
./verification/internal_wave/code/obcs_calc.F |
147 |
OBCS_CALC |
& 2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
148 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
149 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
57 |
OBCS_CALC |
mz=1.0 _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
59 |
OBCS_CALC |
strat = 1.0 _d -6 / (gravity*tAlpha) |
|
./verification/internal_wave/code/obcs_calc.F |
72 |
OBCS_CALC |
obTimeScale = 44567.0 _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
73 |
OBCS_CALC |
kx=mz*2. _d 0*pi/400.0 _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
74 |
OBCS_CALC |
& *sqrt((2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale) |
|
./verification/internal_wave/code/obcs_calc.F |
75 |
OBCS_CALC |
& - f0*f0)/(1.0 _d -6 |
|
./verification/internal_wave/code/obcs_calc.F |
76 |
OBCS_CALC |
& - 2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale))) |
|
./verification/internal_wave/code/obcs_calc.F |
77 |
OBCS_CALC |
Uinflow = 0.024 _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
81 |
OBCS_CALC |
rampTime2 = 4. _d 0*44567.0 _d 0 |
|
./model/src/pre_cg3d.F |
131 |
PRE_CG3D |
& /( 1. _d 0 + locGamma ) |
|
./model/src/pre_cg3d.F |
79 |
PRE_CG3D |
wSurfP2d(i,j) = 0. _d 0 |
|
./verification/isomip/code_ad/cost_test.F |
57 |
COST_TEST |
thetaRef = 24.0 _d 0 |
|
./verification/isomip/code_oad/cost_test.F |
57 |
COST_TEST |
thetaRef = 24.0 _d 0 |
|
./model/src/reset_nlfs_vars.F |
60 |
RESET_NLFS_VARS |
pStarFacK(i,j,bi,bj) = 1. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
104 |
ROTATE_SPHERICAL_POLAR_GRID |
Binv(1,3) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
108 |
ROTATE_SPHERICAL_POLAR_GRID |
Binv(2,3) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
110 |
ROTATE_SPHERICAL_POLAR_GRID |
Binv(3,1) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
111 |
ROTATE_SPHERICAL_POLAR_GRID |
Binv(3,2) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
112 |
ROTATE_SPHERICAL_POLAR_GRID |
Binv(3,3) = 1. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
116 |
ROTATE_SPHERICAL_POLAR_GRID |
Ainv(iA,jA) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
117 |
ROTATE_SPHERICAL_POLAR_GRID |
CB (iA,jA) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
152 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZgeo(iA) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
162 |
ROTATE_SPHERICAL_POLAR_GRID |
IF(XYZgeo(1) .EQ. 0. _d 0 .AND. XYZgeo(2) .EQ. 0. _d 0)THEN |
|
./model/src/rotate_spherical_polar_grid.F |
164 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
167 |
ROTATE_SPHERICAL_POLAR_GRID |
IF ( X(I,J,bi,bj) .LT. 0. _d 0 ) |
|
./model/src/rotate_spherical_polar_grid.F |
168 |
ROTATE_SPHERICAL_POLAR_GRID |
& X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
170 |
ROTATE_SPHERICAL_POLAR_GRID |
IF(hypotxy .EQ. 0. _d 0 .AND. XYZgeo(3) .EQ. 0. _d 0)THEN |
|
./model/src/rotate_spherical_polar_grid.F |
172 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
80 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(1,3) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
84 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(2,3) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
86 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(3,1) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
87 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(3,2) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
88 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(3,3) = 1. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
90 |
ROTATE_SPHERICAL_POLAR_GRID |
Cinv(1,1) = 1. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
91 |
ROTATE_SPHERICAL_POLAR_GRID |
Cinv(1,2) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
92 |
ROTATE_SPHERICAL_POLAR_GRID |
Cinv(1,3) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
94 |
ROTATE_SPHERICAL_POLAR_GRID |
Cinv(2,1) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
98 |
ROTATE_SPHERICAL_POLAR_GRID |
Cinv(3,1) = 0. _d 0 |
|
./model/src/rotate_uv2en.F |
100 |
ROTATE_UV2EN_RL |
tmpV(i,j) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
159 |
ROTATE_UV2EN_RL |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
161 |
ROTATE_UV2EN_RL |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
279 |
ROTATE_UV2EN_RS |
tmpU(i,j) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
281 |
ROTATE_UV2EN_RS |
tmpV(i,j) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
340 |
ROTATE_UV2EN_RS |
uFldX(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
342 |
ROTATE_UV2EN_RS |
vFldY(i,j,k,bi,bj) = 0.5 _d 0 |
|
./model/src/rotate_uv2en.F |
98 |
ROTATE_UV2EN_RL |
tmpU(i,j) = 0.5 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
491 |
APPLY_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./verification/rotating_tank/code/apply_forcing.F |
518 |
APPLY_FORCING_T |
& .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN |
|
./verification/rotating_tank/code/apply_forcing.F |
595 |
APPLY_FORCING_T |
& )*maskC(i,j,km,bi,bj)*0.25 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
608 |
APPLY_FORCING_T |
& )*maskC(i,j,kp,bi,bj)*0.25 _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
673 |
APPLY_FORCING_T |
swfracb(2)=0. _d 0 |
|
./verification/rotating_tank/code/apply_forcing.F |
688 |
APPLY_FORCING_T |
kDiffCyl = 3. _d -7 |
|
./verification/rotating_tank/code/apply_forcing.F |
938 |
APPLY_FORCING_S |
& .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN |
|
./model/src/salt_integrate.F |
208 |
SALT_INTEGRATE |
gS_loc(i,j,k) = 0. _d 0 |
|
./model/src/salt_integrate.F |
214 |
SALT_INTEGRATE |
fVer(i,j,1) = 0. _d 0 |
|
./model/src/salt_integrate.F |
215 |
SALT_INTEGRATE |
fVer(i,j,2) = 0. _d 0 |
|
./model/src/salt_integrate.F |
222 |
SALT_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/salt_integrate.F |
323 |
SALT_INTEGRATE |
gsForc(i,j) = 0. _d 0 |
|
./model/src/seawater.F |
152 |
NO PROCEDURE |
sref = 35. _d 0 |
|
./model/src/seawater.F |
153 |
NO PROCEDURE |
a0 = 3.5803 _d -5 |
|
./model/src/seawater.F |
154 |
NO PROCEDURE |
a1 = +8.5258 _d -6 |
|
./model/src/seawater.F |
155 |
NO PROCEDURE |
a2 = -6.836 _d -8 |
|
./model/src/seawater.F |
156 |
NO PROCEDURE |
a3 = 6.6228 _d -10 |
|
./model/src/seawater.F |
158 |
NO PROCEDURE |
b0 = +1.8932 _d -6 |
|
./model/src/seawater.F |
159 |
NO PROCEDURE |
b1 = -4.2393 _d -8 |
|
./model/src/seawater.F |
161 |
NO PROCEDURE |
c0 = +1.8741 _d -8 |
|
./model/src/seawater.F |
162 |
NO PROCEDURE |
c1 = -6.7795 _d -10 |
|
./model/src/seawater.F |
163 |
NO PROCEDURE |
c2 = +8.733 _d -12 |
|
./model/src/seawater.F |
164 |
NO PROCEDURE |
c3 = -5.4481 _d -14 |
|
./model/src/seawater.F |
166 |
NO PROCEDURE |
d0 = -1.1351 _d -10 |
|
./model/src/seawater.F |
167 |
NO PROCEDURE |
d1 = 2.7759 _d -12 |
|
./model/src/seawater.F |
169 |
NO PROCEDURE |
e0 = -4.6206 _d -13 |
|
./model/src/seawater.F |
170 |
NO PROCEDURE |
e1 = +1.8676 _d -14 |
|
./model/src/seawater.F |
171 |
NO PROCEDURE |
e2 = -2.1687 _d -16 |
|
./model/src/seawater.F |
52 |
NO PROCEDURE |
PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 ) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
244 |
EXTERNAL_FORCING_T |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./verification/tidal_basin_2d/code/external_forcing.F |
271 |
EXTERNAL_FORCING_T |
swfracb(2)=0. _d 0 |
|
./model/src/set_defaults.F |
100 |
SET_DEFAULTS |
thetaEuler = 0. _d 0 |
|
./model/src/set_defaults.F |
101 |
SET_DEFAULTS |
psiEuler = 0. _d 0 |
|
./model/src/set_defaults.F |
104 |
SET_DEFAULTS |
nh_Am2 = 1. _d 0 |
|
./model/src/set_defaults.F |
105 |
SET_DEFAULTS |
gravity = 9.81 _d 0 |
|
./model/src/set_defaults.F |
107 |
SET_DEFAULTS |
rhoNil = 999.8 _d 0 |
|
./model/src/set_defaults.F |
114 |
SET_DEFAULTS |
f0 = 1. _d -4 |
|
./model/src/set_defaults.F |
115 |
SET_DEFAULTS |
beta = 1. _d -11 |
|
./model/src/set_defaults.F |
116 |
SET_DEFAULTS |
fPrime = 0. _d 0 |
|
./model/src/set_defaults.F |
118 |
SET_DEFAULTS |
rotationPeriod = 86164. _d 0 |
|
./model/src/set_defaults.F |
121 |
SET_DEFAULTS |
viscAh = 0. _d 3 |
|
./model/src/set_defaults.F |
122 |
SET_DEFAULTS |
smag3D_coeff = 1. _d -2 |
|
./model/src/set_defaults.F |
123 |
SET_DEFAULTS |
viscAhGrid = 0. _d 0 |
|
./model/src/set_defaults.F |
124 |
SET_DEFAULTS |
viscAhGridMin = 0. _d 0 |
|
./model/src/set_defaults.F |
125 |
SET_DEFAULTS |
viscAhGridMax = 1. _d 21 |
|
./model/src/set_defaults.F |
126 |
SET_DEFAULTS |
viscAhMax = 1. _d 21 |
|
./model/src/set_defaults.F |
127 |
SET_DEFAULTS |
viscAhReMax = 0. _d 0 |
|
./model/src/set_defaults.F |
128 |
SET_DEFAULTS |
viscC2leith = 0. _d 0 |
|
./model/src/set_defaults.F |
129 |
SET_DEFAULTS |
viscC2leithD = 0. _d 0 |
|
./model/src/set_defaults.F |
130 |
SET_DEFAULTS |
viscC2smag = 0. _d 0 |
|
./model/src/set_defaults.F |
131 |
SET_DEFAULTS |
viscArDefault = 0. _d -3 |
|
./model/src/set_defaults.F |
132 |
SET_DEFAULTS |
viscFacAdj = 1. _d 0 |
|
./model/src/set_defaults.F |
136 |
SET_DEFAULTS |
sideDragFactor = 2. _d 0 |
|
./model/src/set_defaults.F |
140 |
SET_DEFAULTS |
viscA4 = 0. _d 11 |
|
./model/src/set_defaults.F |
141 |
SET_DEFAULTS |
viscA4Grid = 0. _d 0 |
|
./model/src/set_defaults.F |
142 |
SET_DEFAULTS |
viscA4GridMax = 1. _d 21 |
|
./model/src/set_defaults.F |
143 |
SET_DEFAULTS |
viscA4GridMin = 0. _d 0 |
|
./model/src/set_defaults.F |
144 |
SET_DEFAULTS |
viscA4Max = 1. _d 21 |
|
./model/src/set_defaults.F |
145 |
SET_DEFAULTS |
viscA4ReMax = 0. _d 0 |
|
./model/src/set_defaults.F |
146 |
SET_DEFAULTS |
viscC4leith = 0. _d 0 |
|
./model/src/set_defaults.F |
147 |
SET_DEFAULTS |
viscC4leithD = 0. _d 0 |
|
./model/src/set_defaults.F |
148 |
SET_DEFAULTS |
viscC4smag = 0. _d 0 |
|
./model/src/set_defaults.F |
153 |
SET_DEFAULTS |
diffKhT = 0. _d 3 |
|
./model/src/set_defaults.F |
154 |
SET_DEFAULTS |
diffKhS = 0. _d 3 |
|
./model/src/set_defaults.F |
155 |
SET_DEFAULTS |
diffK4T = 0. _d 11 |
|
./model/src/set_defaults.F |
156 |
SET_DEFAULTS |
diffK4S = 0. _d 11 |
|
./model/src/set_defaults.F |
157 |
SET_DEFAULTS |
diffKrTDefault = 0. _d -3 |
|
./model/src/set_defaults.F |
158 |
SET_DEFAULTS |
diffKrSDefault = 0. _d -3 |
|
./model/src/set_defaults.F |
159 |
SET_DEFAULTS |
diffKrBL79surf = 0. _d 0 |
|
./model/src/set_defaults.F |
160 |
SET_DEFAULTS |
diffKrBL79deep = 0. _d 0 |
|
./model/src/set_defaults.F |
161 |
SET_DEFAULTS |
diffKrBL79scl = 200. _d 0 |
|
./model/src/set_defaults.F |
162 |
SET_DEFAULTS |
diffKrBL79Ho = -2000. _d 0 |
|
./model/src/set_defaults.F |
174 |
SET_DEFAULTS |
HeatCapacity_Cp = 3994. _d 0 |
|
./model/src/set_defaults.F |
178 |
SET_DEFAULTS |
smoothAbsFuncRange = 0. _d 0 |
|
./model/src/set_defaults.F |
179 |
SET_DEFAULTS |
hFacMin = 1. _d 0 |
|
./model/src/set_defaults.F |
180 |
SET_DEFAULTS |
hFacMinDrDefault = 0. _d 0 |
|
./model/src/set_defaults.F |
218 |
SET_DEFAULTS |
ivdc_kappa = 0. _d 0 |
|
./model/src/set_defaults.F |
219 |
SET_DEFAULTS |
hMixCriteria = -.8 _d 0 |
|
./model/src/set_defaults.F |
220 |
SET_DEFAULTS |
dRhoSmall = 1. _d -6 |
|
./model/src/set_defaults.F |
221 |
SET_DEFAULTS |
hMixSmooth = 0. _d 0 |
|
./model/src/set_defaults.F |
249 |
SET_DEFAULTS |
implicSurfPress = 1. _d 0 |
|
./model/src/set_defaults.F |
250 |
SET_DEFAULTS |
implicDiv2DFlow = 1. _d 0 |
|
./model/src/set_defaults.F |
255 |
SET_DEFAULTS |
hFacInf = 0.2 _d 0 |
|
./model/src/set_defaults.F |
256 |
SET_DEFAULTS |
hFacSup = 2.0 _d 0 |
|
./model/src/set_defaults.F |
272 |
SET_DEFAULTS |
celsius2K = 273.15 _d 0 |
|
./model/src/set_defaults.F |
273 |
SET_DEFAULTS |
atm_Po = 1. _d 5 |
|
./model/src/set_defaults.F |
274 |
SET_DEFAULTS |
atm_Cp = 1004. _d 0 |
|
./model/src/set_defaults.F |
276 |
SET_DEFAULTS |
atm_kappa = 2. _d 0 / 7. _d 0 |
|
./model/src/set_defaults.F |
277 |
SET_DEFAULTS |
atm_Rq = 0. _d 0 |
|
./model/src/set_defaults.F |
283 |
SET_DEFAULTS |
cg2dTargetResidual = 1. _d -7 |
|
./model/src/set_defaults.F |
287 |
SET_DEFAULTS |
cg2dpcOffDFac = 0.51 _d 0 |
|
./model/src/set_defaults.F |
290 |
SET_DEFAULTS |
cg3dTargetResidual = 1. _d -7 |
|
./model/src/set_defaults.F |
295 |
SET_DEFAULTS |
deltaT = 0. _d 0 |
|
./model/src/set_defaults.F |
296 |
SET_DEFAULTS |
deltaTMom = 0. _d 0 |
|
./model/src/set_defaults.F |
297 |
SET_DEFAULTS |
deltaTFreeSurf = 0. _d 0 |
|
./model/src/set_defaults.F |
299 |
SET_DEFAULTS |
dTtracerLev(k) = 0. _d 0 |
|
./model/src/set_defaults.F |
301 |
SET_DEFAULTS |
baseTime = 0. _d 0 |
|
./model/src/set_defaults.F |
307 |
SET_DEFAULTS |
endTime = 0. _d 0 |
|
./model/src/set_defaults.F |
312 |
SET_DEFAULTS |
abEps = 0.01 _d 0 |
|
./model/src/set_defaults.F |
314 |
SET_DEFAULTS |
alph_AB = 0.5 _d 0 |
|
./model/src/set_defaults.F |
315 |
SET_DEFAULTS |
beta_AB = 5. _d 0 / 12. _d 0 |
|
./model/src/set_defaults.F |
322 |
SET_DEFAULTS |
cAdjFreq = 0. _d 0 |
|
./model/src/set_defaults.F |
323 |
SET_DEFAULTS |
tauCD = 0. _d 0 |
|
./model/src/set_defaults.F |
324 |
SET_DEFAULTS |
tauThetaClimRelax = 0. _d 0 |
|
./model/src/set_defaults.F |
325 |
SET_DEFAULTS |
tauSaltClimRelax = 0. _d 0 |
|
./model/src/set_defaults.F |
352 |
SET_DEFAULTS |
tave_lastIter = 0.5 _d 0 |
|
./model/src/set_defaults.F |
99 |
SET_DEFAULTS |
phiEuler = 0. _d 0 |
|
./model/src/set_grid_factors.F |
52 |
SET_GRID_FACTORS |
deepFacC(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
53 |
SET_GRID_FACTORS |
deepFac2C(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
54 |
SET_GRID_FACTORS |
recip_deepFacC(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
55 |
SET_GRID_FACTORS |
recip_deepFac2C(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
58 |
SET_GRID_FACTORS |
deepFacF(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
59 |
SET_GRID_FACTORS |
deepFac2F(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
60 |
SET_GRID_FACTORS |
recip_deepFacF(k) = 1. _d 0 |
|
./model/src/set_grid_factors.F |
61 |
SET_GRID_FACTORS |
recip_deepFac2F(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
88 |
SET_GRID_FACTORS |
recip_deepFacC(k) = 1. _d 0/deepFacC(k) |
|
./model/src/set_grid_factors.F |
89 |
SET_GRID_FACTORS |
recip_deepFac2C(k)= 1. _d 0/deepFac2C(k) |
|
./model/src/set_grid_factors.F |
92 |
SET_GRID_FACTORS |
recip_deepFacF(k) = 1. _d 0/deepFacF(k) |
|
./model/src/set_grid_factors.F |
93 |
SET_GRID_FACTORS |
recip_deepFac2F(k)= 1. _d 0/deepFac2F(k) |
|
./model/src/set_parms.F |
164 |
SET_PARMS |
vfFacMom = 1. _d 0 |
|
./model/src/set_parms.F |
166 |
SET_PARMS |
vfFacMom = 0. _d 0 |
|
./model/src/set_parms.F |
170 |
SET_PARMS |
afFacMom = 1. _d 0 |
|
./model/src/set_parms.F |
172 |
SET_PARMS |
afFacMom = 0. _d 0 |
|
./model/src/set_parms.F |
176 |
SET_PARMS |
foFacMom = 1. _d 0 |
|
./model/src/set_parms.F |
178 |
SET_PARMS |
foFacMom = 0. _d 0 |
|
./model/src/set_parms.F |
182 |
SET_PARMS |
cfFacMom = 1. _d 0 |
|
./model/src/set_parms.F |
184 |
SET_PARMS |
cfFacMom = 0. _d 0 |
|
./model/src/set_parms.F |
188 |
SET_PARMS |
pfFacMom = 1. _d 0 |
|
./model/src/set_parms.F |
190 |
SET_PARMS |
pfFacMom = 0. _d 0 |
|
./model/src/set_parms.F |
194 |
SET_PARMS |
mTFacMom = 1. _d 0 |
|
./model/src/set_parms.F |
196 |
SET_PARMS |
mTFacMom = 0. _d 0 |
|
./model/src/set_parms.F |
203 |
SET_PARMS |
tempVertDiff4 = tempVertDiff4 .OR. ( diffKr4T(k).GT.0. _d 0 ) |
|
./model/src/set_parms.F |
204 |
SET_PARMS |
saltVertDiff4 = saltVertDiff4 .OR. ( diffKr4S(k).GT.0. _d 0 ) |
|
./model/src/set_parms.F |
215 |
SET_PARMS |
& .AND. ( tauThetaClimRelax.GT.0. _d 0 ) |
|
./model/src/set_parms.F |
217 |
SET_PARMS |
& .AND. ( tauSaltClimRelax .GT.0. _d 0 ) |
|
./model/src/set_parms.F |
271 |
SET_PARMS |
IF ( ABS(endTime-tmpVar).GT.deltaTClock*1. _d -6 ) THEN |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
49 |
COST_TRACER |
locfc = 0. _d 0 |
|
./model/src/set_ref_state.F |
178 |
SET_REF_STATE |
maxResid = rhoConst* 1. _d -14 |
|
./model/src/set_ref_state.F |
189 |
SET_REF_STATE |
dBdrRef(1) = 0. _d 0 |
|
./model/src/set_ref_state.F |
221 |
SET_REF_STATE |
dBdrRef(1) = 0. _d 0 |
|
./model/src/set_ref_state.F |
233 |
SET_REF_STATE |
rhoLoc = ( rhoDw + rhoUp )*0.5 _d 0 |
|
./model/src/set_ref_state.F |
244 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k) |
|
./model/src/set_ref_state.F |
251 |
SET_REF_STATE |
dBdrRef(1) = 0. _d 0 |
|
./model/src/set_ref_state.F |
273 |
SET_REF_STATE |
thetaLoc = (tRef(k) + tRef(k-1))*0.5 _d 0 |
|
./model/src/set_ref_state.F |
275 |
SET_REF_STATE |
IF ( thetaLoc.GT.0. _d 0 .AND. rF(k).GT.0. _d 0 ) THEN |
|
./model/src/set_ref_state.F |
279 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k) |
|
./model/src/set_ref_state.F |
340 |
SET_REF_STATE |
rhoFacF(1) = 1. _d 0 |
|
./model/src/set_ref_state.F |
357 |
SET_REF_STATE |
recip_rhoFacC(k) = 1. _d 0/rhoFacC(k) |
|
./model/src/set_ref_state.F |
360 |
SET_REF_STATE |
recip_rhoFacF(k) = 1. _d 0/rhoFacF(k) |
|
./model/src/set_ref_state.F |
69 |
SET_REF_STATE |
rVel2wUnit(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
70 |
SET_REF_STATE |
wUnit2rVel(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
75 |
SET_REF_STATE |
rhoFacC(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
76 |
SET_REF_STATE |
recip_rhoFacC(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
79 |
SET_REF_STATE |
rhoFacF(k) = 1. _d 0 |
|
./model/src/set_ref_state.F |
80 |
SET_REF_STATE |
recip_rhoFacF(k) = 1. _d 0 |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
49 |
COST_TRACER |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
73 |
CTRL_MAP_INI_GENARR |
fac = 1. _d 0 |
|
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F |
92 |
PTRACERS_APPLY_FORCING |
& + 1. _d 0 * maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
114 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
71 |
PTRACERS_FORCING_SURF |
& + 1. _d 0 / (10. _d 0 * 86400. _d 0) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
72 |
PTRACERS_FORCING_SURF |
& * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) ) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
84 |
PTRACERS_FORCING_SURF |
epsil = 1. _d -10 |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
85 |
PTRACERS_FORCING_SURF |
cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks) |
|
./model/src/solve_pentadiagonal.F |
101 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
114 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
115 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
117 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
135 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
136 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./model/src/solve_pentadiagonal.F |
138 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
217 |
SOLVE_PENTADIAGONAL |
c5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
218 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
219 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
220 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
221 |
SOLVE_PENTADIAGONAL |
y5d_update(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
257 |
SOLVE_PENTADIAGONAL |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
258 |
SOLVE_PENTADIAGONAL |
recVar = 1. _d 0 / tmpVar |
|
./model/src/solve_pentadiagonal.F |
263 |
SOLVE_PENTADIAGONAL |
d5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
264 |
SOLVE_PENTADIAGONAL |
e5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
265 |
SOLVE_PENTADIAGONAL |
y5d_prime(k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
301 |
SOLVE_PENTADIAGONAL |
c5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
302 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
303 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
304 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
352 |
SOLVE_PENTADIAGONAL |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
353 |
SOLVE_PENTADIAGONAL |
recVar = 1. _d 0 / tmpVar |
|
./model/src/solve_pentadiagonal.F |
358 |
SOLVE_PENTADIAGONAL |
d5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
359 |
SOLVE_PENTADIAGONAL |
e5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
360 |
SOLVE_PENTADIAGONAL |
y5d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_pentadiagonal.F |
98 |
SOLVE_PENTADIAGONAL |
IF ( c5d(i,j,k).NE.0. _d 0 ) THEN |
|
./model/src/solve_pentadiagonal.F |
99 |
SOLVE_PENTADIAGONAL |
c5d(i,j,k) = 1. _d 0 / c5d(i,j,k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
40 |
COST_HFLUX |
tmpC = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
51 |
COST_HFLUX |
IF ( tmpC.GT.0. ) tmpC = 1. _d 0 / tmpC |
|
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F |
56 |
COST_HFLUX |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
44 |
COST_TEMP |
tmp = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
57 |
COST_TEMP |
IF ( tmp.GT.0. ) tmp = 1. _d 0 / tmp |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
62 |
COST_TEMP |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
109 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
126 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
130 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
62 |
COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
68 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
72 |
COST_WEIGHTS |
wunit(k,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
73 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
74 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
143 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
144 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
80 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
102 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
104 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
108 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
110 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
49 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
50 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
51 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
52 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
53 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
54 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
55 |
INI_FORCING |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
56 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
57 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
58 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingU(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingV(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
61 |
INI_FORCING |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
62 |
INI_FORCING |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
63 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
65 |
INI_FORCING |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
66 |
INI_FORCING |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
67 |
INI_FORCING |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
68 |
INI_FORCING |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
69 |
INI_FORCING |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
70 |
INI_FORCING |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
71 |
INI_FORCING |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
72 |
INI_FORCING |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
73 |
INI_FORCING |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
74 |
INI_FORCING |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
75 |
INI_FORCING |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
76 |
INI_FORCING |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
77 |
INI_FORCING |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
78 |
INI_FORCING |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
80 |
INI_FORCING |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
81 |
INI_FORCING |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
84 |
INI_FORCING |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
85 |
INI_FORCING |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
89 |
INI_FORCING |
Qnetm (i,j,bi,bj) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
104 |
SOLVE_TRIDIAGONAL |
IF ( tmpVar .NE. 0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
105 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
107 |
SOLVE_TRIDIAGONAL |
b3d(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
163 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
164 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
165 |
SOLVE_TRIDIAGONAL |
y3d_update(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
171 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
175 |
SOLVE_TRIDIAGONAL |
c3d_prime(1) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
176 |
SOLVE_TRIDIAGONAL |
y3d_prime(1) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
181 |
SOLVE_TRIDIAGONAL |
IF ( tmpVar .NE. 0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
182 |
SOLVE_TRIDIAGONAL |
recVar = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
187 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
188 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
217 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
218 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
233 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
234 |
SOLVE_TRIDIAGONAL |
recVar = 1. _d 0 / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
238 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,1) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
239 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,1) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
244 |
SOLVE_TRIDIAGONAL |
IF ( tmpVar .NE. 0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
245 |
SOLVE_TRIDIAGONAL |
recVar = 1. _d 0 / tmpVar |
|
./model/src/solve_tridiagonal.F |
251 |
SOLVE_TRIDIAGONAL |
c3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
252 |
SOLVE_TRIDIAGONAL |
y3d_prime(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
90 |
SOLVE_TRIDIAGONAL |
IF ( b3d(i,j,1).NE.0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
91 |
SOLVE_TRIDIAGONAL |
b3d(i,j,1) = 1. _d 0 / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
93 |
SOLVE_TRIDIAGONAL |
b3d(i,j,1) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
40 |
COST_HFLUX |
tmpC = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
51 |
COST_HFLUX |
IF ( tmpC.GT.0. ) tmpC = 1. _d 0 / tmpC |
|
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F |
56 |
COST_HFLUX |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
44 |
COST_TEMP |
tmp = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
57 |
COST_TEMP |
IF ( tmp.GT.0. ) tmp = 1. _d 0 / tmp |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
62 |
COST_TEMP |
locfc = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
109 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
126 |
COST_WEIGHTS |
IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
127 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
130 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
62 |
COST_WEIGHTS |
wti(k) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
68 |
COST_WEIGHTS |
whfluxm(i,j,bi,bj)= 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
72 |
COST_WEIGHTS |
wunit(k,bi,bj) = 1. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
73 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
74 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
143 |
EXTERNAL_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
144 |
EXTERNAL_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
80 |
EXTERNAL_FORCING_SURF |
recip_Cp = 1. _d 0 / HeatCapacity_Cp |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
102 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
104 |
INI_FORCING |
lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
108 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
110 |
INI_FORCING |
lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
49 |
INI_FORCING |
fu (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
50 |
INI_FORCING |
fv (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
51 |
INI_FORCING |
Qnet (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
52 |
INI_FORCING |
EmPmR (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
53 |
INI_FORCING |
saltFlux (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
54 |
INI_FORCING |
SST (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
55 |
INI_FORCING |
SSS (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
56 |
INI_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
57 |
INI_FORCING |
pLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
58 |
INI_FORCING |
sIceLoad (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingU(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingV(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
61 |
INI_FORCING |
surfaceForcingT(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
62 |
INI_FORCING |
surfaceForcingS(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
63 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
65 |
INI_FORCING |
taux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
66 |
INI_FORCING |
taux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
67 |
INI_FORCING |
tauy0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
68 |
INI_FORCING |
tauy1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
69 |
INI_FORCING |
Qnet0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
70 |
INI_FORCING |
Qnet1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
71 |
INI_FORCING |
EmPmR0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
72 |
INI_FORCING |
EmPmR1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
73 |
INI_FORCING |
saltFlux0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
74 |
INI_FORCING |
saltFlux1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
75 |
INI_FORCING |
SST0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
76 |
INI_FORCING |
SST1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
77 |
INI_FORCING |
SSS0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
78 |
INI_FORCING |
SSS1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
80 |
INI_FORCING |
Qsw0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
81 |
INI_FORCING |
Qsw1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
84 |
INI_FORCING |
pLoad0 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
85 |
INI_FORCING |
pLoad1 (i,j,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
89 |
INI_FORCING |
Qnetm (i,j,bi,bj) = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
115 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
116 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
118 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
132 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
133 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
135 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
202 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
203 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
205 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
246 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
247 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
249 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
314 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
315 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
317 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
331 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
332 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
334 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
389 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
390 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
392 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./model/src/solve_uv_tridiago.F |
433 |
SOLVE_UV_TRIDIAGO |
IF ( tmpVar.NE.0. _d 0 ) THEN |
|
./model/src/solve_uv_tridiago.F |
434 |
SOLVE_UV_TRIDIAGO |
tmpVar = 1. _d 0 / tmpVar |
|
./model/src/solve_uv_tridiago.F |
436 |
SOLVE_UV_TRIDIAGO |
tmpVar = 0. _d 0 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
159 |
APPLY_FORCING_V |
kF = 1. _d 0/86400. _d 0 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
160 |
APPLY_FORCING_V |
sigma_b = 0.7 _d 0 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
189 |
APPLY_FORCING_V |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
252 |
APPLY_FORCING_T |
ka = 1. _d 0/(40. _d 0*86400. _d 0) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
253 |
APPLY_FORCING_T |
ks = 1. _d 0/(4. _d 0 *86400. _d 0) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
254 |
APPLY_FORCING_T |
sigma_b = 0.7 _d 0 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
258 |
APPLY_FORCING_T |
term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
260 |
APPLY_FORCING_T |
term2 = 10. _d 0*LOG(termP/atm_po) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
262 |
APPLY_FORCING_T |
thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
263 |
APPLY_FORCING_T |
thetaEq = 315. _d 0 - term1 - term2 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
287 |
APPLY_FORCING_T |
& *MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
66 |
APPLY_FORCING_U |
kF = 1. _d 0/86400. _d 0 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
67 |
APPLY_FORCING_U |
sigma_b = 0.7 _d 0 |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
96 |
APPLY_FORCING_U |
kV = kF*MAX( zeroRL, (termP-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
72 |
CTRL_MAP_INI_GENARR |
fac = 1. _d 0 |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
109 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
79 |
PTRACERS_FORCING_SURF |
epsil = 1. _d -10 |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
80 |
PTRACERS_FORCING_SURF |
cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks) |
|
./model/src/swfrac.F |
102 |
SWFRAC |
IF ( facz .LT. -200. _d 0 ) THEN |
|
./model/src/swfrac.F |
103 |
SWFRAC |
swdk(i) = 0. _d 0 |
|
./model/src/swfrac.F |
106 |
SWFRAC |
& + (1. _d 0 - rfac(jwtype)) * exp( facz/a2(jwtype) ) |
|
./model/src/swfrac.F |
77 |
SWFRAC |
DATA rfac / 0.58 _d 0, 0.62 _d 0, 0.67 _d 0, 0.77 _d 0, 0.78 _d 0/ |
|
./model/src/swfrac.F |
78 |
SWFRAC |
DATA a1 / 0.35 _d 0, 0.6 _d 0, 1.0 _d 0, 1.5 _d 0, 1.4 _d 0/ |
|
./model/src/swfrac.F |
79 |
SWFRAC |
DATA a2 / 23.0 _d 0, 20.0 _d 0, 17.0 _d 0, 14.0 _d 0, 7.9 _d 0/ |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
73 |
CTRL_MAP_INI_GENARR |
fac = 1. _d 0 |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
109 |
PTRACERS_FORCING_SURF |
add2EmP(i,j) = 0. _d 0 |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
79 |
PTRACERS_FORCING_SURF |
epsil = 1. _d -10 |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
80 |
PTRACERS_FORCING_SURF |
cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks) |
|
./model/src/temp_integrate.F |
216 |
TEMP_INTEGRATE |
gT_loc(i,j,k) = 0. _d 0 |
|
./model/src/temp_integrate.F |
222 |
TEMP_INTEGRATE |
fVer(i,j,1) = 0. _d 0 |
|
./model/src/temp_integrate.F |
223 |
TEMP_INTEGRATE |
fVer(i,j,2) = 0. _d 0 |
|
./model/src/temp_integrate.F |
230 |
TEMP_INTEGRATE |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/temp_integrate.F |
331 |
TEMP_INTEGRATE |
gtForc(i,j) = 0. _d 0 |
|
./model/src/thermodynamics.F |
136 |
THERMODYNAMICS |
TsurfCor = 0. _d 0 |
|
./model/src/thermodynamics.F |
137 |
THERMODYNAMICS |
SsurfCor = 0. _d 0 |
|
./model/src/thermodynamics.F |
156 |
THERMODYNAMICS |
meanSurfCorPTr(k) = 0.0 _d 0 |
|
./model/src/thermodynamics.F |
192 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = 0. _d 0 |
|
./model/src/thermodynamics.F |
194 |
THERMODYNAMICS |
kappaRk(i,j,k) = 0. _d 0 |
|
./model/src/thermodynamics.F |
219 |
THERMODYNAMICS |
& /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/thermodynamics.F |
232 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/thermodynamics.F |
373 |
THERMODYNAMICS |
frictionHeating(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/timestep.F |
293 |
TIMESTEP |
& /( 1. _d 0 + dEtaWdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/timestep.F |
298 |
TIMESTEP |
& /( 1. _d 0 + dEtaSdt(i,j,bi,bj)*deltaTFreeSurf |
|
./model/src/timestep.F |
324 |
TIMESTEP |
IF ( use3Dsolver .AND. implicitNHPress.NE.1. _d 0 ) THEN |
|
./model/src/timestep.F |
325 |
TIMESTEP |
nhFac = pfFacMom*(1. _d 0 - implicitNHPress) |
|
./model/src/timestep.F |
81 |
TIMESTEP |
psFac = pfFacMom*(1. _d 0 - implicSurfPress) |
|
./model/src/timestep.F |
93 |
TIMESTEP |
guExt(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
94 |
TIMESTEP |
gvExt(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
95 |
TIMESTEP |
gUtmp(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
96 |
TIMESTEP |
gVtmp(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
98 |
TIMESTEP |
guCor(i,j) = 0. _d 0 |
|
./model/src/timestep.F |
99 |
TIMESTEP |
gvCor(i,j) = 0. _d 0 |
|
./model/src/timestep_wvel.F |
54 |
TIMESTEP_WVEL |
igwFac = 0. _d 0 |
|
./model/src/timestep_wvel.F |
55 |
TIMESTEP_WVEL |
IF ( implicitIntGravWave ) igwFac = 1. _d 0 |
|
./model/src/timestep_wvel.F |
61 |
TIMESTEP_WVEL |
IF ( nh_Am2.NE.0. ) nh_Fac = 1. _d 0 / nh_Am2 |
|
./model/src/timestep_wvel.F |
66 |
TIMESTEP_WVEL |
IF ( implicitNHPress.NE.1. _d 0 ) THEN |
|
./model/src/timestep_wvel.F |
68 |
TIMESTEP_WVEL |
tmpFac = pfFacMom*(1. _d 0 - implicitNHPress) |
|
./model/src/timestep_wvel.F |
99 |
TIMESTEP_WVEL |
IF (tmpFac.GT.0. ) tmpFac = 1. _d 0 / tmpFac |
|
./model/src/tracers_iigw_correction.F |
57 |
TRACERS_IIGW_CORRECTION |
dWp1(i,j) = 0. _d 0 |
|
./model/src/tracers_iigw_correction.F |
75 |
TRACERS_IIGW_CORRECTION |
dTr_k = 0. _d 0 |
|
./model/src/tracers_iigw_correction.F |
79 |
TRACERS_IIGW_CORRECTION |
& (dTr_k.NE.0. _d 0 .OR. dTrp1.NE.0. _d 0) ) THEN |
|
./model/src/tracers_iigw_correction.F |
83 |
TRACERS_IIGW_CORRECTION |
& -dTtracerLev(k)*0.5 _d 0 |
|
./model/src/tracers_iigw_correction.F |
91 |
TRACERS_IIGW_CORRECTION |
dTr_k = 0. _d 0 |
|
./model/src/tracers_iigw_correction.F |
95 |
TRACERS_IIGW_CORRECTION |
& (dTr_k.NE.0. _d 0 .OR. dTrp1.NE.0. _d 0) ) THEN |
|
./model/src/tracers_iigw_correction.F |
99 |
TRACERS_IIGW_CORRECTION |
& -dTtracerLev(k)*0.5 _d 0 |
|
./model/src/update_cg2d.F |
172 |
UPDATE_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./model/src/update_cg2d.F |
174 |
UPDATE_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
74 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
75 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
77 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_etah.F |
62 |
UPDATE_ETAH |
IF (implicDiv2Dflow.EQ. 1. _d 0) THEN |
|
./model/src/update_etah.F |
92 |
UPDATE_ETAH |
IF ( implicDiv2Dflow .NE. 1. _d 0 .OR. |
|
./model/src/update_etaws.F |
66 |
UPDATE_ETAWS |
& + etaH ( i ,j,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etaws.F |
68 |
UPDATE_ETAWS |
& + etaH (i, j ,bi,bj) )*0.5 _d 0 |
|
./model/src/update_masks_etc.F |
103 |
UPDATE_MASKS_ETC |
IF ( hFacCtmp .LE. 0. _d 0 ) THEN |
|
./model/src/update_masks_etc.F |
105 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
106 |
UPDATE_MASKS_ETC |
ELSEIF ( hFacCtmp .GT. 1. _d 0 ) THEN |
|
./model/src/update_masks_etc.F |
107 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
194 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
299 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
307 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 1. _d 0 / hFacw(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
315 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 1. _d 0 / hFacS(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
85 |
UPDATE_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |
|
./model/src/update_r_star.F |
110 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
112 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
114 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
75 |
UPDATE_R_STAR |
& recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
77 |
UPDATE_R_STAR |
& recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj) |
|
./model/src/update_r_star.F |
79 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
109 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1W(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
118 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1S(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
130 |
UPDATE_SURF_DR |
recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / h0FacC(i,j,k,bi,bj) |
|
./model/src/update_surf_dr.F |
60 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
73 |
UPDATE_SURF_DR |
recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
82 |
UPDATE_SURF_DR |
recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj) |
|
./model/src/update_surf_dr.F |
96 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1C(i,j,bi,bj) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
111 |
ADMTLM_DSVD2MODEL |
fmin = 0. _d 0 |
|
./pkg/admtlm/admtlm_init_fixed.F |
43 |
ADMTLM_INIT_FIXED |
wtheta(k,bi,bj) = 1. / (1. _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
44 |
ADMTLM_INIT_FIXED |
wsalt (k,bi,bj) = 1. / (0.1 _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
45 |
ADMTLM_INIT_FIXED |
wuvvel(k,bi,bj) = 1. / (0.01 _d 0)**2 |
|
./pkg/admtlm/admtlm_init_fixed.F |
50 |
ADMTLM_INIT_FIXED |
wetan(i,j,bi,bj) = 1. / (0.1 _d 0)**2 |
|
./pkg/admtlm/admtlm_metric.F |
42 |
ADMTLM_METRIC |
myMetric = 0. _d 0 |
|
./pkg/admtlm/admtlm_metric.F |
43 |
ADMTLM_METRIC |
stdDevSST = 0.52 _d 0 |
|
./pkg/admtlm/admtlm_metric.F |
44 |
ADMTLM_METRIC |
stdDevSSS = 0.134 _d 0 |
|
./pkg/admtlm/admtlm_model2dsvd.F |
97 |
ADMTLM_MODEL2DSVD |
fmin = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2land.F |
102 |
AIM_AIM2LAND |
IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR. |
|
./pkg/aim_v23/aim_aim2land.F |
103 |
AIM_AIM2LAND |
& land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2land.F |
67 |
AIM_AIM2LAND |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2land.F |
68 |
AIM_AIM2LAND |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2land.F |
78 |
AIM_AIM2LAND |
conv_Precip = 1. _d -3 |
|
./pkg/aim_v23/aim_aim2sioce.F |
101 |
AIM_AIM2SIOCE |
IF ( land_frc(i,j,bi,bj).GE.1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
104 |
AIM_AIM2SIOCE |
prcAtm(i,j) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
105 |
AIM_AIM2SIOCE |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
106 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
107 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
152 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
163 |
AIM_AIM2SIOCE |
IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
165 |
AIM_AIM2SIOCE |
IF ( EnPrec(I2,myThid).GE.0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
169 |
AIM_AIM2SIOCE |
snowPrc(i,j) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
175 |
AIM_AIM2SIOCE |
snowPrc(i,j) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
191 |
AIM_AIM2SIOCE |
icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj)) |
|
./pkg/aim_v23/aim_aim2sioce.F |
192 |
AIM_AIM2SIOCE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/aim_v23/aim_aim2sioce.F |
97 |
AIM_AIM2SIOCE |
convPrcEvp = 1. _d -3 |
|
./pkg/aim_v23/aim_do_co2.F |
85 |
AIM_DO_CO2 |
flxCO2tile(bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_do_physics.F |
121 |
AIM_DO_PHYSICS |
tYear = MOD(myTime/yearLength, 1. _d 0) |
|
./pkg/aim_v23/aim_dyn2aim.F |
180 |
AIM_DYN2AIM |
TA(I2,Katm) = 300. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
181 |
AIM_DYN2AIM |
QA(I2,Katm) = 0. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
182 |
AIM_DYN2AIM |
ThA(I2,Katm) = 300. _d 0 |
|
./pkg/aim_v23/aim_fields_load.F |
296 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0 |
|
./pkg/aim_v23/aim_fields_load.F |
305 |
AIM_FIELDS_LOAD |
& MAX(0. _d 0, aim_veget(i,j,bi,bj)/100. _d 0) |
|
./pkg/aim_v23/aim_fields_load.F |
87 |
AIM_FIELDS_LOAD |
tmprd = t0prd - 0.5 _d 0 + tNcyc |
|
./pkg/aim_v23/aim_land2aim.F |
119 |
AIM_LAND2AIM |
recip_hSnWet = 0. _d 0 |
|
./pkg/aim_v23/aim_land2aim.F |
120 |
AIM_LAND2AIM |
IF ( hSnowWetness .NE. 0. _d 0 ) |
|
./pkg/aim_v23/aim_land2aim.F |
121 |
AIM_LAND2AIM |
& recip_hSnWet = 1. _d 0 / hSnowWetness |
|
./pkg/aim_v23/aim_land2aim.F |
126 |
AIM_LAND2AIM |
aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 ) |
|
./pkg/aim_v23/aim_land2aim.F |
131 |
AIM_LAND2AIM |
recip_mSnWet = 0. _d 0 |
|
./pkg/aim_v23/aim_land2aim.F |
132 |
AIM_LAND2AIM |
IF ( hSnowWetness .NE. 0. _d 0 ) |
|
./pkg/aim_v23/aim_land2aim.F |
134 |
AIM_LAND2AIM |
& / (land_rhoSnow*hSnowWetness*1000. _d 0) |
|
./pkg/aim_v23/aim_land2aim.F |
139 |
AIM_LAND2AIM |
aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 ) |
|
./pkg/aim_v23/aim_land2aim.F |
188 |
AIM_LAND2AIM |
RSD = 1. _d 0/SDALB |
|
./pkg/aim_v23/aim_land2aim.F |
192 |
AIM_LAND2AIM |
& + MAX( 0. _d 0, ALBSN-grnd_alb(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_land2aim.F |
193 |
AIM_LAND2AIM |
& *MIN( 1. _d 0, RSD*snowFld(i,j) ) |
|
./pkg/aim_v23/aim_land_impl.F |
103 |
AIM_LAND_IMPL |
IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR. |
|
./pkg/aim_v23/aim_land_impl.F |
104 |
AIM_LAND_IMPL |
& land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
92 |
AIM_LAND_IMPL |
land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_land_impl.F |
93 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_readparms.F |
261 |
AIM_READPARMS |
aim_ref_pCO2 = 320. _d -6 |
|
./pkg/aim_v23/aim_readparms.F |
270 |
AIM_READPARMS |
OBLIQ = 23.45 _d 0 |
|
./pkg/aim_v23/aim_sice2aim.F |
129 |
AIM_SICE2AIM |
IF ( tauRelax_MxL .EQ. -1. _d 0 |
|
./pkg/aim_v23/aim_sice2aim.F |
137 |
AIM_SICE2AIM |
IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_sice2aim.F |
156 |
AIM_SICE2AIM |
IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
120 |
AIM_SURF_BC |
tmprd = t0prd - 0.5 _d 0 + tNcyc |
|
./pkg/aim_v23/aim_surf_bc.F |
127 |
AIM_SURF_BC |
aim_sWght1 = 0.5 _d 0+(dTprd-0.5 _d 0)*aim_surfForc_TransRatio |
|
./pkg/aim_v23/aim_surf_bc.F |
128 |
AIM_SURF_BC |
aim_sWght1 = MAX( 0. _d 0, MIN(1. _d 0, aim_sWght1) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
129 |
AIM_SURF_BC |
aim_sWght0 = 1. _d 0 - aim_sWght1 |
|
./pkg/aim_v23/aim_surf_bc.F |
151 |
AIM_SURF_BC |
SDEP1 = 70. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
152 |
AIM_SURF_BC |
IDEP2 = 3. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
156 |
AIM_SURF_BC |
RSW = 1. _d 0/(SDEP1*SWCAP+SDEP2*(SWCAP-SWWIL)) |
|
./pkg/aim_v23/aim_surf_bc.F |
163 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
167 |
AIM_SURF_BC |
& MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
171 |
AIM_SURF_BC |
soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
189 |
AIM_SURF_BC |
oceTfreez = celsius2K - 1.9 _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
192 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
197 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
208 |
AIM_SURF_BC |
RSD=1. _d 0/SDALB |
|
./pkg/aim_v23/aim_surf_bc.F |
209 |
AIM_SURF_BC |
ALPHA= 2. _d 0*PI*(TYEAR+10. _d 0/365. _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
215 |
AIM_SURF_BC |
RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad) |
|
./pkg/aim_v23/aim_surf_bc.F |
227 |
AIM_SURF_BC |
& + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
228 |
AIM_SURF_BC |
& *MIN( 1. _d 0, RSD*snow1(I2)) |
|
./pkg/aim_v23/aim_surf_bc.F |
239 |
AIM_SURF_BC |
IF (TMPL .GE. 1.0 _d 0) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
240 |
AIM_SURF_BC |
CZEN = 0.0 _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
241 |
AIM_SURF_BC |
ELSEIF (TMPL .LE. -1.0 _d 0) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
242 |
AIM_SURF_BC |
CZEN = (2.0 _d 0)*TMPA*PI |
|
./pkg/aim_v23/aim_surf_bc.F |
243 |
AIM_SURF_BC |
CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB) |
|
./pkg/aim_v23/aim_surf_bc.F |
247 |
AIM_SURF_BC |
CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim)) |
|
./pkg/aim_v23/aim_surf_bc.F |
248 |
AIM_SURF_BC |
CZEN2= 2.0 _d 0*TMPA*TMPA*hlim |
|
./pkg/aim_v23/aim_surf_bc.F |
249 |
AIM_SURF_BC |
& + 4.0 _d 0*TMPA*TMPB*SIN(hlim) |
|
./pkg/aim_v23/aim_surf_bc.F |
250 |
AIM_SURF_BC |
& + TMPB*TMPB*( hlim + 0.5 _d 0*SIN(2.0 _d 0*hlim) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
253 |
AIM_SURF_BC |
ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
254 |
AIM_SURF_BC |
& + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0) |
|
./pkg/aim_v23/aim_surf_bc.F |
255 |
AIM_SURF_BC |
& * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
259 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
|
./pkg/aim_v23/aim_surf_bc.F |
260 |
AIM_SURF_BC |
& + 0.5 _d 0 * ALBSEA1 |
|
./pkg/aim_v23/aim_surf_bc.F |
271 |
AIM_SURF_BC |
aim_sWght1 = 0. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
272 |
AIM_SURF_BC |
aim_sWght0 = 1. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
371 |
AIM_SURF_BC |
pCO2scl = 1. _d 6 |
|
./pkg/aim_v23/aim_surf_bc.F |
401 |
AIM_SURF_BC |
fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid)) |
|
./pkg/aim_v23/aim_surf_bc.F |
403 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
423 |
AIM_SURF_BC |
fMask1(J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
424 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
135 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
300 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
323 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,k,bi,bj) |
|
./pkg/aim_v23/phy_const.h |
10 |
NO PROCEDURE |
ALBSEA = 0.07 _d 0 |
|
./pkg/aim_v23/phy_const.h |
11 |
NO PROCEDURE |
ALBICE = 0.60 _d 0 |
|
./pkg/aim_v23/phy_const.h |
12 |
NO PROCEDURE |
ALBSN = 0.60 _d 0 |
|
./pkg/aim_v23/phy_const.h |
13 |
NO PROCEDURE |
SDALB = 60. _d 0 |
|
./pkg/aim_v23/phy_const.h |
15 |
NO PROCEDURE |
SWCAP = 0.30 _d 0 |
|
./pkg/aim_v23/phy_const.h |
16 |
NO PROCEDURE |
SWWIL = 0.17 _d 0 |
|
./pkg/aim_v23/phy_const.h |
17 |
NO PROCEDURE |
hSnowWetness = 1. _d -2 |
|
./pkg/aim_v23/phy_const.h |
21 |
NO PROCEDURE |
PSMIN = 0.7 _d 0 |
|
./pkg/aim_v23/phy_const.h |
22 |
NO PROCEDURE |
TRCNV = 6. _d 0 |
|
./pkg/aim_v23/phy_const.h |
23 |
NO PROCEDURE |
QBL = 15. _d 0 |
|
./pkg/aim_v23/phy_const.h |
24 |
NO PROCEDURE |
RHBL = 0.8 _d 0 |
|
./pkg/aim_v23/phy_const.h |
25 |
NO PROCEDURE |
RHIL = 0.7 _d 0 |
|
./pkg/aim_v23/phy_const.h |
26 |
NO PROCEDURE |
ENTMAX = 0.5 _d 0 |
|
./pkg/aim_v23/phy_const.h |
27 |
NO PROCEDURE |
SMF = 0.5 _d 0 |
|
./pkg/aim_v23/phy_const.h |
31 |
NO PROCEDURE |
TRLSC = 4. _d 0 |
|
./pkg/aim_v23/phy_const.h |
32 |
NO PROCEDURE |
RHLSC = 0.9 _d 0 |
|
./pkg/aim_v23/phy_const.h |
33 |
NO PROCEDURE |
DRHLSC = 0.1 _d 0 |
|
./pkg/aim_v23/phy_const.h |
34 |
NO PROCEDURE |
QSMAX = 50. _d 0 |
|
./pkg/aim_v23/phy_const.h |
38 |
NO PROCEDURE |
RHCL1 = 0.45 _d 0 |
|
./pkg/aim_v23/phy_const.h |
39 |
NO PROCEDURE |
RHCL2 = 0.85 _d 0 |
|
./pkg/aim_v23/phy_const.h |
40 |
NO PROCEDURE |
QACL1 = 0.10 _d 0 |
|
./pkg/aim_v23/phy_const.h |
41 |
NO PROCEDURE |
QACL2 = 1.00 _d 0 |
|
./pkg/aim_v23/phy_const.h |
42 |
NO PROCEDURE |
ALBCL = 0.40 _d 0 |
|
./pkg/aim_v23/phy_const.h |
44 |
NO PROCEDURE |
EPSSW = 0.015 _d 0 |
|
./pkg/aim_v23/phy_const.h |
45 |
NO PROCEDURE |
EPSLW = 0.00 _d 0 |
|
./pkg/aim_v23/phy_const.h |
46 |
NO PROCEDURE |
EMISFC = 0.98 _d 0 |
|
./pkg/aim_v23/phy_const.h |
48 |
NO PROCEDURE |
ABSDRY = 0.033 _d 0 |
|
./pkg/aim_v23/phy_const.h |
49 |
NO PROCEDURE |
ABSAER = 0.033 _d 0 |
|
./pkg/aim_v23/phy_const.h |
50 |
NO PROCEDURE |
ABSWV1 = 0.022 _d 0 |
|
./pkg/aim_v23/phy_const.h |
51 |
NO PROCEDURE |
ABSWV2 = 15.000 _d 0 |
|
./pkg/aim_v23/phy_const.h |
52 |
NO PROCEDURE |
ABSCL1 = 0.0 _d 0 |
|
./pkg/aim_v23/phy_const.h |
53 |
NO PROCEDURE |
ABSCL2 = 0.010 _d 0 |
|
./pkg/aim_v23/phy_const.h |
55 |
NO PROCEDURE |
ABLWIN = 0.7 _d 0 |
|
./pkg/aim_v23/phy_const.h |
56 |
NO PROCEDURE |
ABLCO2 = 4.0 _d 0 |
|
./pkg/aim_v23/phy_const.h |
57 |
NO PROCEDURE |
ABLWV1 = 0.7 _d 0 |
|
./pkg/aim_v23/phy_const.h |
58 |
NO PROCEDURE |
ABLWV2 = 50.0 _d 0 |
|
./pkg/aim_v23/phy_const.h |
59 |
NO PROCEDURE |
ABLCL1 = 12.0 _d 0 |
|
./pkg/aim_v23/phy_const.h |
60 |
NO PROCEDURE |
ABLCL2 = 0.0 _d 0 |
|
./pkg/aim_v23/phy_const.h |
65 |
NO PROCEDURE |
FWIND0 = 0.6 _d 0 |
|
./pkg/aim_v23/phy_const.h |
66 |
NO PROCEDURE |
FTEMP0 = 1. _d 0 |
|
./pkg/aim_v23/phy_const.h |
67 |
NO PROCEDURE |
FHUM0 = 1. _d 0 |
|
./pkg/aim_v23/phy_const.h |
69 |
NO PROCEDURE |
CDL = 1.8 _d -3 |
|
./pkg/aim_v23/phy_const.h |
70 |
NO PROCEDURE |
CDS = 0.8 _d -3 |
|
./pkg/aim_v23/phy_const.h |
71 |
NO PROCEDURE |
CHL = 1.2 _d -3 |
|
./pkg/aim_v23/phy_const.h |
72 |
NO PROCEDURE |
CHS = 0.8 _d -3 |
|
./pkg/aim_v23/phy_const.h |
74 |
NO PROCEDURE |
VGUST = 5. _d 0 |
|
./pkg/aim_v23/phy_const.h |
75 |
NO PROCEDURE |
CTDAY = 1. _d -2 |
|
./pkg/aim_v23/phy_const.h |
76 |
NO PROCEDURE |
DTHETA = 3. _d 0 |
|
./pkg/aim_v23/phy_const.h |
77 |
NO PROCEDURE |
FSTAB = 0.67 _d 0 |
|
./pkg/aim_v23/phy_const.h |
78 |
NO PROCEDURE |
HDRAG = 2000. _d 0 |
|
./pkg/aim_v23/phy_const.h |
79 |
NO PROCEDURE |
FHDRAG = 0.8 _d 0 |
|
./pkg/aim_v23/phy_const.h |
83 |
NO PROCEDURE |
TRSHC = 24. _d 0 |
|
./pkg/aim_v23/phy_const.h |
84 |
NO PROCEDURE |
TRVDI = 40. _d 0 |
|
./pkg/aim_v23/phy_const.h |
85 |
NO PROCEDURE |
TRVDS = 5. _d 0 |
|
./pkg/aim_v23/phy_const.h |
86 |
NO PROCEDURE |
RHGRAD = 0.5 _d 0 |
|
./pkg/aim_v23/phy_const.h |
87 |
NO PROCEDURE |
SEGRAD = 0.1 _d 0 |
|
./pkg/aim_v23/phy_const.h |
8 |
NO PROCEDURE |
SOLC = 342. _d 0 |
|
./pkg/aim_v23/phy_convmf.F |
149 |
CONVMF |
ENTR(K)= ( MAX( 0. _d 0, SIG(K)/PSA(J) - 0.5 _d 0) )**2 |
|
./pkg/aim_v23/phy_convmf.F |
210 |
CONVMF |
QMAX=MAX(1.01 _d 0 *QA(J,K),QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
286 |
CONVMF |
PRECNV(J)=MAX(FUQ-FMASS*QSATB, 0. _d 0) |
|
./pkg/aim_v23/phy_convmf.F |
78 |
CONVMF |
RDPS = 2. _d 0 /(1. _d 0 - PSMIN) |
|
./pkg/aim_v23/phy_convmf.F |
86 |
CONVMF |
FPSA = MIN(1. _d 0 ,(PSA(J)-PSMIN)*RDPS) |
|
./pkg/aim_v23/phy_convmf.F |
87 |
CONVMF |
FM0(J)=P0*DSIG(Ktmp)*dpFac(J,Ktmp)/(GG*TRCNV*3600. _d 0) |
|
./pkg/aim_v23/phy_driver.F |
148 |
PHY_DRIVER |
RPS_1 = 1. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
150 |
PHY_DRIVER |
PSG_1(J)=1. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
211 |
PHY_DRIVER |
EnPrec(J,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
348 |
PHY_DRIVER |
SHF (J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
349 |
PHY_DRIVER |
EVAP(J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
350 |
PHY_DRIVER |
SLR (J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_inphys.F |
127 |
INPHYS |
dTstab = 1. _d 0 |
|
./pkg/aim_v23/phy_inphys.F |
69 |
INPHYS |
ALHC = 2501. _d 0 |
|
./pkg/aim_v23/phy_inphys.F |
70 |
INPHYS |
ALHF = 334. _d 0 |
|
./pkg/aim_v23/phy_inphys.F |
71 |
INPHYS |
SBC = 5.67 _d -8 |
|
./pkg/aim_v23/phy_inphys.F |
74 |
INPHYS |
rainCP = 4200. _d 0 / 1000. _d 0 |
|
./pkg/aim_v23/phy_lscond.F |
85 |
LSCOND |
RHREF = RHLSC+DRHLSC*(SIG2/PSA2(J) - 1. _d 0) |
|
./pkg/aim_v23/phy_lscond.F |
86 |
LSCOND |
DQMAX = (1.1 _d 0-RHREF)*QSMAX*SIG2*RTLSC |
|
./pkg/aim_v23/phy_lscond.F |
87 |
LSCOND |
DQLSC(J,K) = MIN(0. _d 0,(RHREF*QSAT(J,K)-QA(J,K)))*RTLSC |
|
./pkg/aim_v23/phy_radiat.F |
100 |
SOL_OZ |
AST=0.025 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
101 |
SOL_OZ |
FS0=10. _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
106 |
SOL_OZ |
FLAT2 = 1.5 _d 0*SLAT(J)**2 - 0.5 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
111 |
SOL_OZ |
& MAX( 0. _d 0, 1. _d 0+CSR1*SLAT(J)+CSR2*FLAT2 ) |
|
./pkg/aim_v23/phy_radiat.F |
113 |
SOL_OZ |
IF ( CLAT(J) .EQ. 0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
114 |
SOL_OZ |
TanLat = SIGN(1. _d 0, SLAT(J) ) * largeTan |
|
./pkg/aim_v23/phy_radiat.F |
119 |
SOL_OZ |
cosH = MAX(MIN(cosH,1. _d 0), -1. _d 0) |
|
./pkg/aim_v23/phy_radiat.F |
121 |
SOL_OZ |
FSOL(J) = 4. _d 0 / PI * SOLC * |
|
./pkg/aim_v23/phy_radiat.F |
131 |
SOL_OZ |
& (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN |
|
./pkg/aim_v23/phy_radiat.F |
137 |
SOL_OZ |
& +MAX( FS0-FSOL(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_radiat.F |
237 |
RADSW |
FBAND2=0.05 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
274 |
RADSW |
DQACL=(QACL2-QACL1)/(0.5 _d 0 - SIG(2)) |
|
./pkg/aim_v23/phy_radiat.F |
283 |
RADSW |
CLDCLW(J,K)=MAX(0. _d 0,RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
284 |
RADSW |
CLDCLW(J,K)=MIN(1. _d 0,CLDCLW(J,K)*RRCL) |
|
./pkg/aim_v23/phy_radiat.F |
293 |
RADSW |
CLOUDC(J)=MIN(1. _d 0,CLOUDC(J)*RRCL) |
|
./pkg/aim_v23/phy_radiat.F |
295 |
RADSW |
CLOUDC(J)=CLOUDC(J)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
298 |
RADSW |
CLDCLW(J,K)=CLDCLW(J,K)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
434 |
RADSW |
DFABS(J,K)= 0. _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
67 |
SOL_OZ |
largeTan = 1. _d 16 |
|
./pkg/aim_v23/phy_radiat.F |
73 |
SOL_OZ |
ALPHA = 4. _d 0*ASIN(1. _d 0)*(TYEAR+10. _d 0/365. _d 0) |
|
./pkg/aim_v23/phy_radiat.F |
75 |
SOL_OZ |
CSR1=-0.796 _d 0*COS(ALPHA) |
|
./pkg/aim_v23/phy_radiat.F |
76 |
SOL_OZ |
CSR2= 0.147 _d 0*COS(2. _d 0*ALPHA)-0.477 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
771 |
RADSET |
EPS3=0.95 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
775 |
RADSET |
FBAND(JTEMP,2)= 0.148 _d 0 - 3.0 _d -6 *(JTEMP-247)**2 |
|
./pkg/aim_v23/phy_radiat.F |
776 |
RADSET |
FBAND(JTEMP,3)=(0.375 _d 0 - 5.5 _d -6 *(JTEMP-282)**2)*EPS3 |
|
./pkg/aim_v23/phy_radiat.F |
777 |
RADSET |
FBAND(JTEMP,4)= 0.314 _d 0 + 1.0 _d -5 *(JTEMP-315)**2 |
|
./pkg/aim_v23/phy_radiat.F |
778 |
RADSET |
FBAND(JTEMP,1)= 1. _d 0 -(FBAND(JTEMP,0)+FBAND(JTEMP,2) |
|
./pkg/aim_v23/phy_radiat.F |
77 |
SOL_OZ |
COZ1= 1.0 _d 0 * COS(ALPHA) |
|
./pkg/aim_v23/phy_radiat.F |
78 |
SOL_OZ |
COZ2= 1.8 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
84 |
SOL_OZ |
SZEN = - SIN( OBLIQ * PI/180. _d 0) * COS(ALPHA) |
|
./pkg/aim_v23/phy_radiat.F |
87 |
SOL_OZ |
IF ( SZEN .EQ. 1. _d 0 ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
89 |
SOL_OZ |
ELSEIF ( SZEN .EQ. -1. _d 0 ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
95 |
SOL_OZ |
RZEN=-COS(ALPHA)*23.45 _d 0*ASIN(1. _d 0)/90. _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
50 |
SHTORH |
E0= 6.108 _d -3 |
|
./pkg/aim_v23/phy_shtorh.F |
51 |
SHTORH |
C1= 17.269 _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
52 |
SHTORH |
C2= 21.875 _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
53 |
SHTORH |
T0=273.16 _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
54 |
SHTORH |
T1= 35.86 _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
55 |
SHTORH |
T2= 7.66 _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
56 |
SHTORH |
QS1= 622. _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
57 |
SHTORH |
QS2= .378 _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
69 |
SHTORH |
recT = 1. _d 0 / (TA(J)-T1) |
|
./pkg/aim_v23/phy_shtorh.F |
74 |
SHTORH |
recT = 1. _d 0 / (TA(J)-T2) |
|
./pkg/aim_v23/phy_suflux_land.F |
108 |
SUFLUX_LAND |
TSFC(J)=273.16 _d 0 + dTskin(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
123 |
SUFLUX_LAND |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_suflux_land.F |
131 |
SUFLUX_LAND |
dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0)) |
|
./pkg/aim_v23/phy_suflux_land.F |
138 |
SUFLUX_LAND |
CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp, |
|
./pkg/aim_v23/phy_suflux_land.F |
140 |
SUFLUX_LAND |
CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY, |
|
./pkg/aim_v23/phy_suflux_land.F |
145 |
SUFLUX_LAND |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_suflux_land.F |
162 |
SUFLUX_LAND |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_suflux_land.F |
165 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
166 |
SUFLUX_LAND |
Evp0(J) = Shf0(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
168 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
175 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
176 |
SUFLUX_LAND |
Evp0(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
184 |
SUFLUX_LAND |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_suflux_land.F |
191 |
SUFLUX_LAND |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_suflux_land.F |
212 |
SUFLUX_LAND |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
100 |
SUFLUX_OCEAN |
CALL SHTORH (0, NGP, Tsurf, PSA, 1. _d 0, QDUMMY, RDUMMY, |
|
./pkg/aim_v23/phy_suflux_prep.F |
125 |
SUFLUX_PREP |
RCP = 1. _d 0 /CP |
|
./pkg/aim_v23/phy_suflux_prep.F |
140 |
SUFLUX_PREP |
T0(J) = 273.16 _d 0 |
|
./pkg/aim_v23/phy_suflux_prep.F |
141 |
SUFLUX_PREP |
T1(J) = 273.16 _d 0 |
|
./pkg/aim_v23/phy_suflux_prep.F |
155 |
SUFLUX_PREP |
CALL SHTORH (-1,NGP,T0, PSA, 1. _d 0, Q0, tmpRH, QSAT0, myThid) |
|
./pkg/aim_v23/phy_suflux_prep.F |
255 |
SFLSET |
FOROG(J) = 1. _d 0 |
|
./pkg/aim_v23/phy_suflux_prep.F |
256 |
SFLSET |
& + FHDRAG*(1. _d 0 - EXP(-MAX(PHI0(J),0. _d 0)*RHDRAG) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
115 |
SUFLUX_SICE |
TSFC(J)=273.16 _d 0 |
|
./pkg/aim_v23/phy_suflux_sice.F |
129 |
SUFLUX_SICE |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_suflux_sice.F |
137 |
SUFLUX_SICE |
dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
148 |
SUFLUX_SICE |
CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp, |
|
./pkg/aim_v23/phy_suflux_sice.F |
150 |
SUFLUX_SICE |
CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY, |
|
./pkg/aim_v23/phy_suflux_sice.F |
153 |
SUFLUX_SICE |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_suflux_sice.F |
171 |
SUFLUX_SICE |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_suflux_sice.F |
178 |
SUFLUX_SICE |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
199 |
SUFLUX_SICE |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
|
./pkg/aim_v23/phy_vdifsc.F |
135 |
VDIFSC |
FSHCQ = DSIG(Ktmp)*dpFac(J,Ktmp)/(TRSHC*3600. _d 0) |
|
./pkg/aim_v23/phy_vdifsc.F |
194 |
VDIFSC |
& +SEGRAD*CP*DeltaPI(K)*(SE(J,K+1)+SE(J,K))*0.5 _d 0 |
|
./pkg/aim_v23/phy_vdifsc.F |
97 |
VDIFSC |
CVDI(J) = (SIGH(NL1)-SIGH(1))/((NL1-1)*3600. _d 0) |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
106 |
FILL_CS_CORNER_TR_RL |
trFld(sNx+i, 1-j ) = 0. _d 0 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
113 |
FILL_CS_CORNER_TR_RL |
trFld( 1-i ,sNy+j) = 0. _d 0 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
120 |
FILL_CS_CORNER_TR_RL |
trFld(sNx+i,sNy+j) = 0. _d 0 |
|
./eesupp/src/fill_cs_corner_tr_rl.F |
99 |
FILL_CS_CORNER_TR_RL |
trFld( 1-i , 1-j ) = 0. _d 0 |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
72 |
FILL_CS_CORNER_UV_RL |
negOne = 1. _d 0 |
|
./eesupp/src/fill_cs_corner_uv_rl.F |
73 |
FILL_CS_CORNER_UV_RL |
IF (withSigns) negOne = -1. _d 0 |
|
./pkg/atm2d/atm2d_readparms.F |
113 |
ATM2D_READPARMS |
IF (tauThetaRelax .NE. 0. _d 0) |
|
./pkg/atm2d/atm2d_readparms.F |
114 |
ATM2D_READPARMS |
& r_tauThetaRelax= 1. _d 0/tauThetaRelax |
|
./pkg/atm2d/atm2d_readparms.F |
115 |
ATM2D_READPARMS |
IF (tauSaltRelax .NE. 0. _d 0) |
|
./pkg/atm2d/atm2d_readparms.F |
116 |
ATM2D_READPARMS |
& r_tauSaltRelax= 1. _d 0/tauSaltRelax |
|
./pkg/atm2d/atm2d_readparms.F |
81 |
ATM2D_READPARMS |
r_tauThetaRelax=0. _d 0 |
|
./pkg/atm2d/atm2d_readparms.F |
82 |
ATM2D_READPARMS |
r_tauSaltRelax=0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
141 |
CALC_WGHT2D |
IF (evapo_2D(i,j).GT.0. _d 0) THEN !convert negative evap. to precip |
|
./pkg/atm2d/calc_1dto2d.F |
143 |
CALC_WGHT2D |
evapo_2D(i,j)=0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
146 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
150 |
CALC_WGHT2D |
IF (evapi_2D(i,j).GT.0. _d 0) THEN !convert negative evap. to precip |
|
./pkg/atm2d/calc_1dto2d.F |
152 |
CALC_WGHT2D |
evapi_2D(i,j)=0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
164 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
175 |
CALC_WGHT2D |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/calc_1dto2d.F |
216 |
INIT_2DFLD |
precipo_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
217 |
INIT_2DFLD |
precipi_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
218 |
INIT_2DFLD |
solarnet_ocn_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
219 |
INIT_2DFLD |
slp_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
220 |
INIT_2DFLD |
pCO2_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
221 |
INIT_2DFLD |
wspeed_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
222 |
INIT_2DFLD |
fu_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
223 |
INIT_2DFLD |
fv_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
224 |
INIT_2DFLD |
qneto_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
225 |
INIT_2DFLD |
evapo_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
226 |
INIT_2DFLD |
qneti_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
227 |
INIT_2DFLD |
evapi_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
228 |
INIT_2DFLD |
dFdT_ice_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
229 |
INIT_2DFLD |
Tair_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
230 |
INIT_2DFLD |
solarinc_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
231 |
INIT_2DFLD |
runoff_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
47 |
CALC_1DTO2D |
run_b(ib)=0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
59 |
CALC_1DTO2D |
& atm_tauv(tauv_jpt(j)+1) * (1. _d 0 - tauv_jwght(j)) |
|
./pkg/atm2d/calc_1dto2d.F |
70 |
CALC_1DTO2D |
IF (atm_oc_wgt(j).LT.1. _d 0) |
|
./pkg/atm2d/calc_1dto2d.F |
72 |
CALC_1DTO2D |
& 1. _d 0-atm_oc_wgt(j)) |
|
./pkg/atm2d/calc_1dto2d.F |
79 |
CALC_1DTO2D |
& qneto_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
82 |
CALC_1DTO2D |
& evapo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
85 |
CALC_1DTO2D |
& precipo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_fileload.F |
77 |
CALC_FILELOAD |
wght0= 1. _d 0-wght1 |
|
./pkg/atm2d/calc_zonal_means.F |
119 |
CALC_ZONAL_MEANS |
IF (ocnArea(j_atm).GT.1. _d -32) THEN |
|
./pkg/atm2d/calc_zonal_means.F |
123 |
CALC_ZONAL_MEANS |
IF (cfice(j_atm).GT.1. _d -32) THEN |
|
./pkg/atm2d/calc_zonal_means.F |
129 |
CALC_ZONAL_MEANS |
IF ((1. _d 0-cfice(j_atm).GT.1. _d -32).AND.doAll) |
|
./pkg/atm2d/calc_zonal_means.F |
131 |
CALC_ZONAL_MEANS |
& /(1. _d 0-cfice(j_atm)) |
|
./pkg/atm2d/calc_zonal_means.F |
154 |
CALC_ZONAL_MEANS |
mmco2flux(1)= 0. _d 0 |
|
./pkg/atm2d/calc_zonal_means.F |
155 |
CALC_ZONAL_MEANS |
mmco2flux(jm0)= 0. _d 0 ! converted to mol/s; pole point contribution in jm0-1 |
|
./pkg/atm2d/calc_zonal_means.F |
52 |
CALC_ZONAL_MEANS |
ctocn(j_atm)=0. _d 0 |
|
./pkg/atm2d/calc_zonal_means.F |
53 |
CALC_ZONAL_MEANS |
cfice(j_atm)=0. _d 0 |
|
./pkg/atm2d/calc_zonal_means.F |
54 |
CALC_ZONAL_MEANS |
cco2flux(j_atm)=0. _d 0 |
|
./pkg/atm2d/calc_zonal_means.F |
56 |
CALC_ZONAL_MEANS |
ctice(j_atm)=0. _d 0 |
|
./pkg/atm2d/calc_zonal_means.F |
57 |
CALC_ZONAL_MEANS |
csAlb(j_atm)=0. _d 0 |
|
./pkg/atm2d/calc_zonal_means.F |
58 |
CALC_ZONAL_MEANS |
csAlbNIR(j_atm)=0. _d 0 |
|
./pkg/atm2d/calc_zonal_means.F |
78 |
CALC_ZONAL_MEANS |
& (1. _d 0-iceMask(i,j,1,1))*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
93 |
CALC_ZONAL_MEANS |
IF (atm_oc_wgt(j).LT.1. _d 0) THEN |
|
./pkg/atm2d/calc_zonal_means.F |
94 |
CALC_ZONAL_MEANS |
mWgt= 1. _d 0-atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
98 |
CALC_ZONAL_MEANS |
& (1. _d 0-iceMask(i,j,1,1))*mWgt |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
70 |
FILL_CS_CORNER_UV_RS |
negOne = 1. _d 0 |
|
./eesupp/src/fill_cs_corner_uv_rs.F |
71 |
FILL_CS_CORNER_UV_RS |
IF (withSigns) negOne = -1. _d 0 |
|
./pkg/atm2d/fixed_flux_add.F |
137 |
FIXED_FLUX_ADD |
IF ( (qfadj .NE. 0. _d 0) .AND. |
|
./pkg/atm2d/fixed_flux_add.F |
138 |
FIXED_FLUX_ADD |
& (iceMask(i,j,1,1) .LT. 0.999 _d 0)) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
140 |
FIXED_FLUX_ADD |
& / (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
147 |
FIXED_FLUX_ADD |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/fixed_flux_add.F |
156 |
FIXED_FLUX_ADD |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/get_ocnvars.F |
112 |
GET_OCNVARS |
& )*0.5 _d 0 |
|
./pkg/atm2d/init_atm2d.F |
101 |
INIT_ATM2D |
endwgt1 = endwgt1 + 1. _d 0 !and goes 90S to 90N |
|
./pkg/atm2d/init_atm2d.F |
102 |
INIT_ATM2D |
rsumwgt = 1. _d 0/(endwgt1 + endwgt2) |
|
./pkg/atm2d/init_atm2d.F |
105 |
INIT_ATM2D |
atm_yG(jm0)=90. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
125 |
INIT_ATM2D |
atm_oc_wgt(j)=1. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
127 |
INIT_ATM2D |
atm_oc_frac2(j)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
133 |
INIT_ATM2D |
tauv_jwght(1) = 1. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
140 |
INIT_ATM2D |
tauv_jwght(j)= 1. _d 0 - (yG(1,j,1,1) - atm_yC(j_atm)) / |
|
./pkg/atm2d/init_atm2d.F |
152 |
INIT_ATM2D |
cflan(j_atm)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
153 |
INIT_ATM2D |
ocnArea(j_atm)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
170 |
INIT_ATM2D |
cflan(j_atm)=1. _d 0 - ocnArea(j_atm) / |
|
./pkg/atm2d/init_atm2d.F |
171 |
INIT_ATM2D |
& (2. _d 0 * PI * 6.37 _d 6 * 6.37 _d 6 * |
|
./pkg/atm2d/init_atm2d.F |
173 |
INIT_ATM2D |
if (cflan(j_atm).LT.1. _d -14) cflan(j_atm)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
177 |
INIT_ATM2D |
cflan(2)= 1. _d 0 - ocnArea(2) / |
|
./pkg/atm2d/init_atm2d.F |
178 |
INIT_ATM2D |
& (2. _d 0*PI*6.37 _d 6*6.37 _d 6* |
|
./pkg/atm2d/init_atm2d.F |
179 |
INIT_ATM2D |
& (sin(atm_yG(3)*deg2rad)+1. _d 0)) |
|
./pkg/atm2d/init_atm2d.F |
180 |
INIT_ATM2D |
IF (cflan(2).LT.1. _d -14) cflan(2)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
183 |
INIT_ATM2D |
& (2. _d 0*PI*6.37 _d 6*6.37 _d 6* |
|
./pkg/atm2d/init_atm2d.F |
184 |
INIT_ATM2D |
& (1. _d 0-sin(atm_yG(jm0-1)*deg2rad))) |
|
./pkg/atm2d/init_atm2d.F |
185 |
INIT_ATM2D |
IF (cflan(jm0-1).LT.1. _d -14) cflan(jm0-1)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
202 |
INIT_ATM2D |
atau(j_atm,mn)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
203 |
INIT_ATM2D |
atav(j_atm,mn)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
204 |
INIT_ATM2D |
awind(j_atm,mn)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
258 |
INIT_ATM2D |
runoffVal(i,j)=1. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
288 |
INIT_ATM2D |
sum_tauu_ta(j_atm,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
289 |
INIT_ATM2D |
sum_tauv_ta(j_atm,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
290 |
INIT_ATM2D |
sum_wsocean_ta(j_atm,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
291 |
INIT_ATM2D |
sum_ps4ocean_ta(j_atm,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
299 |
INIT_ATM2D |
qnet_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
300 |
INIT_ATM2D |
evap_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
301 |
INIT_ATM2D |
precip_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
302 |
INIT_ATM2D |
runoff_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
303 |
INIT_ATM2D |
sum_qrel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
304 |
INIT_ATM2D |
sum_frel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
305 |
INIT_ATM2D |
sum_iceMask_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
306 |
INIT_ATM2D |
sum_iceHeight_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
307 |
INIT_ATM2D |
sum_iceTime_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
308 |
INIT_ATM2D |
sum_oceMxLT_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
309 |
INIT_ATM2D |
sum_oceMxLS_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
311 |
INIT_ATM2D |
qnet_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
312 |
INIT_ATM2D |
evap_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
313 |
INIT_ATM2D |
precip_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
314 |
INIT_ATM2D |
runoff_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
315 |
INIT_ATM2D |
sum_qrel(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
316 |
INIT_ATM2D |
sum_frel(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
317 |
INIT_ATM2D |
sum_iceMask(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
318 |
INIT_ATM2D |
sum_iceHeight(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
319 |
INIT_ATM2D |
sum_iceTime(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
320 |
INIT_ATM2D |
sum_oceMxLT(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
321 |
INIT_ATM2D |
sum_oceMxLS(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
326 |
INIT_ATM2D |
SHice_min = 1. _d 18 |
|
./pkg/atm2d/init_atm2d.F |
327 |
INIT_ATM2D |
NHice_min = 1. _d 18 |
|
./pkg/atm2d/init_atm2d.F |
328 |
INIT_ATM2D |
SHice_max = 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
329 |
INIT_ATM2D |
NHice_max = 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
330 |
INIT_ATM2D |
sst_tave= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
331 |
INIT_ATM2D |
sss_tave= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
332 |
INIT_ATM2D |
HF2ocn_tave= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
333 |
INIT_ATM2D |
FW2ocn_tave= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
334 |
INIT_ATM2D |
CO2flx_tave= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
341 |
INIT_ATM2D |
pass_runoff(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
342 |
INIT_ATM2D |
pass_qnet(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
343 |
INIT_ATM2D |
pass_evap(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
344 |
INIT_ATM2D |
pass_precip(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
345 |
INIT_ATM2D |
pass_fu(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
346 |
INIT_ATM2D |
pass_fv(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
347 |
INIT_ATM2D |
pass_wspeed(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
348 |
INIT_ATM2D |
pass_solarnet(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
349 |
INIT_ATM2D |
pass_slp(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
350 |
INIT_ATM2D |
pass_siceLoad(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
351 |
INIT_ATM2D |
pass_pCO2(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
352 |
INIT_ATM2D |
pass_prcAtm(i,j) = 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
353 |
INIT_ATM2D |
snowPrc (i,j) = 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
354 |
INIT_ATM2D |
sFluxFromIce(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
361 |
INIT_ATM2D |
oFluxCO2(i,j) = 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
85 |
INIT_ATM2D |
atm_oc_wgt(1)=1. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
89 |
INIT_ATM2D |
atm_oc_frac2(1)= 0. _d 0 ! assumes ocean(1) fits in atm(1) |
|
./pkg/atm2d/init_atm2d.F |
91 |
INIT_ATM2D |
atm_oc_wgt(sNy)=1. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
97 |
INIT_ATM2D |
atm_oc_frac2(sNy)= 0. _d 0 ! assumes ocean(1) fits in atm(1) |
|
./pkg/atm2d/init_sumvars.F |
31 |
INIT_SUMVARS |
sum_runoff(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
32 |
INIT_SUMVARS |
sum_precip(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
33 |
INIT_SUMVARS |
sum_evap(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
34 |
INIT_SUMVARS |
sum_qnet(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
35 |
INIT_SUMVARS |
sum_fu(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
36 |
INIT_SUMVARS |
sum_fv(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
37 |
INIT_SUMVARS |
sum_wspeed(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
38 |
INIT_SUMVARS |
sum_solarnet(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
39 |
INIT_SUMVARS |
sum_slp(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
40 |
INIT_SUMVARS |
sum_pCO2(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
41 |
INIT_SUMVARS |
sum_prcIce(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
42 |
INIT_SUMVARS |
sum_snowPrc(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
43 |
INIT_SUMVARS |
sum_evapIce(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
44 |
INIT_SUMVARS |
sum_sHeat(i,j)= 0. _d 0 |
|
./pkg/atm2d/init_sumvars.F |
45 |
INIT_SUMVARS |
sum_flxCnB(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
109 |
MONTH_END_DIAGS |
qnet_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
110 |
MONTH_END_DIAGS |
evap_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
111 |
MONTH_END_DIAGS |
precip_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
112 |
MONTH_END_DIAGS |
runoff_atm(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
113 |
MONTH_END_DIAGS |
sum_qrel(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
114 |
MONTH_END_DIAGS |
sum_frel(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
115 |
MONTH_END_DIAGS |
sum_iceMask(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
116 |
MONTH_END_DIAGS |
sum_iceHeight(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
117 |
MONTH_END_DIAGS |
sum_iceTime(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
118 |
MONTH_END_DIAGS |
sum_oceMxLT(i,j)= 0. _d 0 |
|
./pkg/atm2d/month_end_diags.F |
119 |
MONTH_END_DIAGS |
sum_oceMxLS(i,j)= 0. _d 0 |
|
./pkg/atm2d/norm_ocn_fluxes.F |
52 |
NORM_OCN_FLUXES |
pass_slp(i,j)= sum_slp(i,j)/nper*100. _d 0 !convert to Pa |
|
./pkg/atm2d/norm_ocn_fluxes.F |
53 |
NORM_OCN_FLUXES |
pass_pCO2(i,j)= sum_pCO2(i,j)*1. _d -6/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
66 |
NORM_OCN_FLUXES |
IF ( pass_wspeed(i,j) .LT. 0. _d 0) |
|
./pkg/atm2d/norm_ocn_fluxes.F |
67 |
NORM_OCN_FLUXES |
& pass_wspeed(i,j) = 0. _d 0 |
|
./pkg/atm2d/norm_ocn_fluxes.F |
74 |
NORM_OCN_FLUXES |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) |
|
./pkg/atm2d/pass_thsice_fluxes.F |
39 |
PASS_THSICE_FLUXES |
IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN |
|
./pkg/atm2d/pass_thsice_fluxes.F |
40 |
PASS_THSICE_FLUXES |
netSW(i,j) = solarinc_2D(i,j)*(1. _d 0 - siceAlb(i,j,1,1)) ! convert to netSW |
|
./pkg/atm2d/pass_thsice_fluxes.F |
49 |
PASS_THSICE_FLUXES |
IF (Tair_2D(i,j) .LE. 0. _d 0) |
|
./pkg/atm2d/read_atmos.F |
67 |
READ_ATMOS |
atm_dLdt_ice(j_atm) = 0. _d 0 ! -devidtg(j_atm)/secDay1000 |
|
./pkg/atm2d/read_atmos.F |
71 |
READ_ATMOS |
atm_dLdt_iceq(j_atm) = 0. _d 0 ! -devidtgeq(j_atm)/secDay1000 |
|
./pkg/atm2d/read_atmos.F |
82 |
READ_ATMOS |
IF (cflan(2).NE.1. _d 0) |
|
./pkg/atm2d/read_atmos.F |
84 |
READ_ATMOS |
IF (cflan(jm0-1).NE.1. _d 0) |
|
./pkg/atm2d/relax_add.F |
117 |
RELAX_ADD |
IF ((sstRelax(i,j).GT.2. _d 0).OR. |
|
./pkg/atm2d/relax_add.F |
118 |
RELAX_ADD |
& (iceMask(i,j,1,1) .EQ. 0. _d 0)) THEN |
|
./pkg/atm2d/relax_add.F |
120 |
RELAX_ADD |
ELSEIF (sstRelax(i,j) .LE. -1. _d 0) THEN |
|
./pkg/atm2d/relax_add.F |
133 |
RELAX_ADD |
IF (iceMask(i,j,1,1) .LT. 0.999 _d 0) THEN |
|
./pkg/atm2d/relax_add.F |
135 |
RELAX_ADD |
& / (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/relax_add.F |
145 |
RELAX_ADD |
IF (frelflux .GT. 0. _d 0) THEN |
|
./pkg/atm2d/relax_add.F |
149 |
RELAX_ADD |
IF (iceMask(i,j,1,1).GT.0. _d 0) |
|
./pkg/atm2d/relax_add.F |
153 |
RELAX_ADD |
IF (iceMask(i,j,1,1).GT.0. _d 0) |
|
./pkg/atm2d/relax_add.F |
89 |
RELAX_ADD |
& max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0) |
|
./pkg/atm2d/relax_add.F |
95 |
RELAX_ADD |
& max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
47 |
SUM_OCN_FLUXES |
fu_2D(i,j)= fu_2D(i,j) * (1. _d 0 - |
|
./pkg/atm2d/sum_ocn_fluxes.F |
48 |
SUM_OCN_FLUXES |
& (iceMask(i,j,1,1) + iceMask(i-1,j,1,1)) * 0.5 _d 0 ) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
49 |
SUM_OCN_FLUXES |
& / (1. _d 0 - windice_thres) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
50 |
SUM_OCN_FLUXES |
fv_2D(i,j)= fv_2D(i,j) * (1. _d 0 - |
|
./pkg/atm2d/sum_ocn_fluxes.F |
51 |
SUM_OCN_FLUXES |
& (iceMask(i,j,1,1) + iceMask(i,j-1,1,1)) * 0.5 _d 0 ) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
52 |
SUM_OCN_FLUXES |
& / (1. _d 0 - windice_thres) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
54 |
SUM_OCN_FLUXES |
& * (1. _d 0 - iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
55 |
SUM_OCN_FLUXES |
& / (1. _d 0 - windice_thres) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
60 |
SUM_OCN_FLUXES |
& precipo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
62 |
SUM_OCN_FLUXES |
& evapo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
64 |
SUM_OCN_FLUXES |
& qneto_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_ocn_fluxes.F |
69 |
SUM_OCN_FLUXES |
& solarnet_ocn_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/sum_thsice_out.F |
37 |
SUM_THSICE_OUT |
IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN |
|
./pkg/atm2d/sum_thsice_out.F |
45 |
SUM_THSICE_OUT |
icFlxSW(i,j,1,1)= 0. _d 0 |
|
./pkg/atm2d/sum_yr_end_diags.F |
37 |
SUM_YR_END_DIAGS |
iceArea = 0. _d 0 |
|
./pkg/atm2d/sum_yr_end_diags.F |
40 |
SUM_YR_END_DIAGS |
IF (iceMask(i,j,1,1).GT. 0. _d 0) |
|
./pkg/atm2d/sum_yr_end_diags.F |
47 |
SUM_YR_END_DIAGS |
iceArea = 0. _d 0 |
|
./pkg/atm2d/sum_yr_end_diags.F |
50 |
SUM_YR_END_DIAGS |
IF (iceMask(i,j,1,1).GT. 0. _d 0) |
|
./pkg/atm2d/tave_end_diags.F |
106 |
TAVE_END_DIAGS |
qnet_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
107 |
TAVE_END_DIAGS |
evap_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
108 |
TAVE_END_DIAGS |
precip_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
109 |
TAVE_END_DIAGS |
runoff_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
110 |
TAVE_END_DIAGS |
sum_qrel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
111 |
TAVE_END_DIAGS |
sum_frel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
112 |
TAVE_END_DIAGS |
sum_iceMask_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
113 |
TAVE_END_DIAGS |
sum_iceHeight_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
114 |
TAVE_END_DIAGS |
sum_iceTime_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
115 |
TAVE_END_DIAGS |
sum_oceMxLT_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
116 |
TAVE_END_DIAGS |
sum_oceMxLS_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
200 |
TAVE_END_DIAGS |
sum_tauu_ta(j_atm,mn) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
201 |
TAVE_END_DIAGS |
sum_tauv_ta(j_atm,mn) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
202 |
TAVE_END_DIAGS |
sum_wsocean_ta(j_atm,mn) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
203 |
TAVE_END_DIAGS |
sum_ps4ocean_ta(j_atm,mn) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
38 |
TAVE_END_DIAGS |
DATA secYr /31536000. _d 0/ |
|
./pkg/atm2d/tave_end_diags.F |
65 |
TAVE_END_DIAGS |
qnet_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
66 |
TAVE_END_DIAGS |
evap_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
67 |
TAVE_END_DIAGS |
precip_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
68 |
TAVE_END_DIAGS |
runoff_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
69 |
TAVE_END_DIAGS |
qrel_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
70 |
TAVE_END_DIAGS |
frel_ann(i,j) = 0. _d 0 |
|
./pkg/atm2d/yr_end_diags.F |
53 |
YR_END_DIAGS |
WRITE(25,*) 'SH ICE', SHice_max*1. _d -12, SHice_min*1. _d -12 |
|
./pkg/atm2d/yr_end_diags.F |
54 |
YR_END_DIAGS |
WRITE(25,*) 'NH ICE', NHice_max*1. _d -12, NHice_min*1. _d -12 |
|
./pkg/atm2d/yr_end_diags.F |
55 |
YR_END_DIAGS |
IF (CO2flx_tave .NE. 0. _d 0) |
|
./pkg/atm2d/yr_end_diags.F |
62 |
YR_END_DIAGS |
SHice_min = 1. _d 18 |
|
./pkg/atm2d/yr_end_diags.F |
63 |
YR_END_DIAGS |
NHice_min = 1. _d 18 |
|
./pkg/atm2d/yr_end_diags.F |
64 |
YR_END_DIAGS |
SHice_max = 0. _d 0 |
|
./pkg/atm2d/yr_end_diags.F |
65 |
YR_END_DIAGS |
NHice_max = 0. _d 0 |
|
./pkg/atm2d/yr_end_diags.F |
66 |
YR_END_DIAGS |
sst_tave = 0. _d 0 |
|
./pkg/atm2d/yr_end_diags.F |
67 |
YR_END_DIAGS |
sss_tave = 0. _d 0 |
|
./pkg/atm2d/yr_end_diags.F |
68 |
YR_END_DIAGS |
HF2ocn_tave = 0. _d 0 |
|
./pkg/atm2d/yr_end_diags.F |
69 |
YR_END_DIAGS |
FW2ocn_tave = 0. _d 0 |
|
./pkg/atm2d/yr_end_diags.F |
70 |
YR_END_DIAGS |
CO2flx_tave = 0. _d 0 |
|
./pkg/atm_compon_interf/atm_apply_import.F |
154 |
ATM_APPLY_IMPORT |
ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0) THEN |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
78 |
ATM_CHECK_CPLCONFIG |
atm_waterOnly = 0. _d 0 |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
79 |
ATM_CHECK_CPLCONFIG |
atm_landOnly = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_check_cplconfig.F |
80 |
ATM_CHECK_CPLCONFIG |
mxlD_noWater = 0. _d 0 |
|
./pkg/atm_compon_interf/atm_export_fld.F |
58 |
ATM_EXPORT_FLD |
IF ( ABS(countTime(bi,bj) -1. _d 0).GT. 1. _d -12 |
|
./pkg/atm_compon_interf/atm_export_fld.F |
60 |
ATM_EXPORT_FLD |
recipAvT = 1. _d 0/countTime(bi,bj) |
|
./pkg/atm_compon_interf/atm_get_atmconfig.F |
57 |
ATM_GET_ATMCONFIG |
landMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_compon_interf/atm_store_aim_fields.F |
64 |
ATM_STORE_AIM_FIELDS |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
101 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
103 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
104 |
ATM_STORE_AIM_WNDSTR |
& )* 0.5 _d 0 * vVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
120 |
ATM_STORE_AIM_WNDSTR |
& * 0.5 _d 0 * uVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
132 |
ATM_STORE_AIM_WNDSTR |
& * 0.5 _d 0 * vVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
72 |
ATM_STORE_AIM_WNDSTR |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
78 |
ATM_STORE_AIM_WNDSTR |
IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
86 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
88 |
ATM_STORE_AIM_WNDSTR |
& *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction) |
|
./pkg/atm_compon_interf/atm_store_aim_wndstr.F |
89 |
ATM_STORE_AIM_WNDSTR |
& )* 0.5 _d 0 * uVel(i,j,ks,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_dynvars.F |
56 |
ATM_STORE_DYNVARS |
atmSLPrTime(bi,bj) = 1. _d 0 |
|
./eesupp/src/get_periodic_interval.F |
111 |
GET_PERIODIC_INTERVAL |
wght1 = 1. _d 0 - wght2 |
|
./eesupp/src/get_periodic_interval.F |
131 |
GET_PERIODIC_INTERVAL |
wght1 = 1. _d 0 - wght2 |
|
./eesupp/src/get_periodic_interval.F |
99 |
GET_PERIODIC_INTERVAL |
IF ( cycleLength.EQ.0. _d 0 ) THEN |
|
./pkg/atm_compon_interf/atm_store_land.F |
62 |
ATM_STORE_LAND |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/atm_compon_interf/atm_store_land.F |
73 |
ATM_STORE_LAND |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/atm_compon_interf/atm_store_surfflux.F |
53 |
ATM_STORE_SURFFLUX |
cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
61 |
ATM_STORE_THSICE |
sIceMassTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
77 |
ATM_STORE_THSICE |
sIceFracTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
88 |
ATM_STORE_THSICE |
sIceThickTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
89 |
ATM_STORE_THSICE |
sIceSnowHTime(bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
90 |
ATM_STORE_THSICE |
sIceQ1Time (bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
91 |
ATM_STORE_THSICE |
sIceQ2Time (bi,bj) = 1. _d 0 |
|
./pkg/atm_compon_interf/cpl_diagnostics_fill.F |
69 |
CPL_DIAGNOSTICS_FILL |
tmpFac = 1. _d 0 |
|
./pkg/atm_compon_interf/cpl_readparms.F |
210 |
CPL_READPARMS |
IF ( tmpLoc.GT.1. _d -12 .OR. cpl_atmSendFrq.EQ.zeroRL ) THEN |
|
./eesupp/src/global_sum.F |
159 |
GLOBAL_SUM_R8 |
tmp = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
74 |
CPL_CHECK_CPLCONFIG |
tmpVar(i,j) = landMask_atm(i,j) .EQ. 1. _d 0 |
|
./eesupp/src/global_sum_singlecpu.F |
113 |
GLOBAL_SUM_SINGLECPU_RL |
sumAll = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
39 |
CPL_INIT_ATM_VARS |
landMask_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
40 |
CPL_INIT_ATM_VARS |
OcMxlD_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
41 |
CPL_INIT_ATM_VARS |
SST_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
42 |
CPL_INIT_ATM_VARS |
SSS_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
43 |
CPL_INIT_ATM_VARS |
vSq_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
44 |
CPL_INIT_ATM_VARS |
fluxCO2_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
45 |
CPL_INIT_ATM_VARS |
atmSLPr_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
46 |
CPL_INIT_ATM_VARS |
HeatFlux_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
47 |
CPL_INIT_ATM_VARS |
qShortWave_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
48 |
CPL_INIT_ATM_VARS |
TauX_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
49 |
CPL_INIT_ATM_VARS |
TauY_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
50 |
CPL_INIT_ATM_VARS |
EvMPr_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
51 |
CPL_INIT_ATM_VARS |
RunOff_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
52 |
CPL_INIT_ATM_VARS |
ROEnFx_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
53 |
CPL_INIT_ATM_VARS |
SaltFlx_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
54 |
CPL_INIT_ATM_VARS |
sIceMass_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
55 |
CPL_INIT_ATM_VARS |
saltPlmFlx_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
56 |
CPL_INIT_ATM_VARS |
aCO2_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
57 |
CPL_INIT_ATM_VARS |
wSpeed_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
58 |
CPL_INIT_ATM_VARS |
sIceFrac_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
59 |
CPL_INIT_ATM_VARS |
sIceThick_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
60 |
CPL_INIT_ATM_VARS |
sIceSnowH_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
61 |
CPL_INIT_ATM_VARS |
sIceQ1_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
62 |
CPL_INIT_ATM_VARS |
sIceQ2_atm (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
39 |
CPL_INIT_OCN_VARS |
landMask_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
40 |
CPL_INIT_OCN_VARS |
OcMxlD_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
41 |
CPL_INIT_OCN_VARS |
SST_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
42 |
CPL_INIT_OCN_VARS |
SSS_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
43 |
CPL_INIT_OCN_VARS |
vSq_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
44 |
CPL_INIT_OCN_VARS |
fluxCO2_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
45 |
CPL_INIT_OCN_VARS |
atmSLPr_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
46 |
CPL_INIT_OCN_VARS |
HeatFlux_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
47 |
CPL_INIT_OCN_VARS |
qShortWave_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
48 |
CPL_INIT_OCN_VARS |
TauX_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
49 |
CPL_INIT_OCN_VARS |
TauY_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
50 |
CPL_INIT_OCN_VARS |
FWFlux_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
51 |
CPL_INIT_OCN_VARS |
SaltFlx_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
52 |
CPL_INIT_OCN_VARS |
sIceMass_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
53 |
CPL_INIT_OCN_VARS |
saltPlmFlx_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
54 |
CPL_INIT_OCN_VARS |
RunOff_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
55 |
CPL_INIT_OCN_VARS |
aCO2_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
56 |
CPL_INIT_OCN_VARS |
wSpeed_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
57 |
CPL_INIT_OCN_VARS |
sIceFrac_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
58 |
CPL_INIT_OCN_VARS |
sIceThick_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
59 |
CPL_INIT_OCN_VARS |
sIceSnowH_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
60 |
CPL_INIT_OCN_VARS |
sIceQ1_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
61 |
CPL_INIT_OCN_VARS |
sIceQ2_ocn (i,j) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_driver.F |
282 |
ATM_PHYS_DRIVER |
q_ref = 100. _d 0 * q3d_tmp/q_ref |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
121 |
ATM_PHYS_DYN2PHYS |
q3d(:,:,k) = MAX( salt(1:sNx,1:sNy,kc,bi,bj), 0. _d 0 ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
123 |
ATM_PHYS_DYN2PHYS |
& + uVel(2:sNx+1,1:sNy,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
125 |
ATM_PHYS_DYN2PHYS |
& + vVel(1:sNx,2:sNy+1,kc,bi,bj) )*0.5 _d 0 |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
132 |
ATM_PHYS_INIT_FIXED |
atmPhys_Qflx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
44 |
ATM_PHYS_INIT_VARIA |
atmPhys_dT(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
45 |
ATM_PHYS_INIT_VARIA |
atmPhys_dQ(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
46 |
ATM_PHYS_INIT_VARIA |
atmPhys_dU(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
47 |
ATM_PHYS_INIT_VARIA |
atmPhys_dV(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_init_varia.F |
55 |
ATM_PHYS_INIT_VARIA |
atmPhys_SST(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_readparms.F |
61 |
ATM_PHYS_READPARMS |
atmPhys_tauDampUV = 0. _d 0 |
|
./pkg/atm_phys/atm_phys_readparms.F |
63 |
ATM_PHYS_READPARMS |
atmPhys_dampUVfac(k) = 1. _d 0 |
|
./pkg/atm_phys/atm_phys_readparms.F |
95 |
ATM_PHYS_READPARMS |
atmPhys_dampUVfac(k) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
129 |
ACTIVE_READ_3D_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
183 |
ACTIVE_READ_3D_RL |
active_var(i,j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control.F |
311 |
ACTIVE_READ_3D_RS |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
365 |
ACTIVE_READ_3D_RS |
active_var(i,j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control.F |
480 |
ACTIVE_WRITE_3D_RL |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control.F |
599 |
ACTIVE_WRITE_3D_RS |
active_data_t(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
1054 |
ACTIVE_WRITE_YZ_RL |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
1171 |
ACTIVE_WRITE_YZ_RS |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
130 |
ACTIVE_READ_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
180 |
ACTIVE_READ_XZ_RL |
active_var(i,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
306 |
ACTIVE_READ_XZ_RS |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
356 |
ACTIVE_READ_XZ_RS |
active_var(i,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
481 |
ACTIVE_READ_YZ_RL |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
531 |
ACTIVE_READ_YZ_RL |
active_var(j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
657 |
ACTIVE_READ_YZ_RS |
active_data_t(j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
707 |
ACTIVE_READ_YZ_RS |
active_var(j,k,bi,bj) = 0 _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
820 |
ACTIVE_WRITE_XZ_RL |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/active_file_control_slice.F |
937 |
ACTIVE_WRITE_XZ_RS |
active_data_t(i,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/addamp_adj.F |
46 |
ADDAMP_ADJ |
facDamp=(1. _d 0-deltaTClock/timeDamp) |
|
./pkg/autodiff/addamp_adj.F |
48 |
ADDAMP_ADJ |
facDamp=1. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
120 |
ADZERO_ADJ |
adFieldFwd(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
41 |
ADZERO_ADJ_1D |
adFieldFwd(k) = 0. _d 0 |
|
./pkg/autodiff/adzero_adj.F |
78 |
ADZERO_ADJ_LOC |
adFieldFwd(i,j,k) = 0. _d 0 |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
53 |
ADAUTODIFF_INADMODE_UNSET |
viscFacAdj=1. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
45 |
AUTODIFF_INIT_VARIA |
TsurfCor = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
46 |
AUTODIFF_INIT_VARIA |
SsurfCor = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
69 |
AUTODIFF_INIT_VARIA |
dEtaHdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
70 |
AUTODIFF_INIT_VARIA |
PmEpR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
74 |
AUTODIFF_INIT_VARIA |
EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/autodiff/autodiff_readparms.F |
73 |
AUTODIFF_READPARMS |
viscFacInAd = 1. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
114 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) = max ( 0. _d 0 , |
|
./pkg/bbl/bbl_calc_rhs.F |
118 |
BBL_CALC_RHS |
& bbl_eta(i,j,bi,bj) .EQ. 0. _d 0 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
121 |
BBL_CALC_RHS |
bbl_eta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
193 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
194 |
BBL_CALC_RHS |
& resThk_r * rA(i,r,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
214 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
295 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
296 |
BBL_CALC_RHS |
& resThk_r * rA(i,r,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
316 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
398 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
399 |
BBL_CALC_RHS |
& resThk_r * rA(r,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
419 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
500 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
501 |
BBL_CALC_RHS |
& resThk_r * rA(r,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
521 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
87 |
BBL_CALC_RHS |
bbl_TendTheta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
88 |
BBL_CALC_RHS |
bbl_TendSalt (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_init_varia.F |
44 |
BBL_INIT_VARIA |
bbl_eta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_init_varia.F |
45 |
BBL_INIT_VARIA |
bbl_TendTheta(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_init_varia.F |
46 |
BBL_INIT_VARIA |
bbl_TendSalt (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_readparms.F |
54 |
BBL_READPARMS |
bbl_wvel = 1. _d -5 |
|
./pkg/bbl/bbl_readparms.F |
55 |
BBL_READPARMS |
bbl_hvel = 1. _d 0 |
|
./pkg/bbl/bbl_readparms.F |
56 |
BBL_READPARMS |
bbl_initEta = 20. _d 0 |
|
./pkg/bling/bling_airseaflux.F |
146 |
BLING_AIRSEAFLUX |
pisvel(i,j) = 0.337 _d 0 * wind(i,j,bi,bj)**2/3.6 _d 5 |
|
./pkg/bling/bling_airseaflux.F |
148 |
BLING_AIRSEAFLUX |
& * (1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/bling/bling_airseaflux.F |
162 |
BLING_AIRSEAFLUX |
IF ( maskC(i,j,klev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bling/bling_airseaflux.F |
177 |
BLING_AIRSEAFLUX |
pCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_airseaflux.F |
186 |
BLING_AIRSEAFLUX |
IF ( maskC(i,j,1,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bling/bling_airseaflux.F |
195 |
BLING_AIRSEAFLUX |
SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j)) |
|
./pkg/bling/bling_airseaflux.F |
214 |
BLING_AIRSEAFLUX |
& / sqrt(SchmidtNoDIC(i,j)/660.0 _d 0) |
|
./pkg/bling/bling_airseaflux.F |
225 |
BLING_AIRSEAFLUX |
FluxCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_airseaflux.F |
264 |
BLING_AIRSEAFLUX |
& / sqrt(SchmidtNoO2(i,j)/660.0 _d 0) |
|
./pkg/bling/bling_airseaflux.F |
268 |
BLING_AIRSEAFLUX |
aTT = 298.15 _d 0 -ttemp |
|
./pkg/bling/bling_airseaflux.F |
269 |
BLING_AIRSEAFLUX |
aTK = 273.15 _d 0 +ttemp |
|
./pkg/bling/bling_airseaflux.F |
284 |
BLING_AIRSEAFLUX |
O2sat(i,j) = o2s/22391.6 _d 0 * 1. _d 3 |
|
./pkg/bling/bling_airseaflux.F |
301 |
BLING_AIRSEAFLUX |
FluxO2(i,j) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
435 |
CALC_PCO2_APPROX |
IF (siooh3g.GT.0.2 _d 0*ta) siooh3g = 0.2 _d 0*ta |
|
./pkg/bling/bling_carbon_chem.F |
439 |
CALC_PCO2_APPROX |
& - hpo4g - 2.0 _d 0*po4g + h3po4g |
|
./pkg/bling/bling_carbon_chem.F |
445 |
CALC_PCO2_APPROX |
stuff = (1.0 _d 0-gamm)*(1.0 _d 0-gamm)*k1local*k1local |
|
./pkg/bling/bling_carbon_chem.F |
446 |
CALC_PCO2_APPROX |
& - 4.0 _d 0*k1local*k2local*(1.0 _d 0-2.0 _d 0*gamm) |
|
./pkg/bling/bling_carbon_chem.F |
447 |
CALC_PCO2_APPROX |
hnew = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) ) |
|
./pkg/bling/bling_carbon_chem.F |
450 |
CALC_PCO2_APPROX |
& (1.0 _d 0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew))) |
|
./pkg/bling/bling_carbon_chem.F |
576 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/bling/bling_carbon_chem.F |
580 |
CARBON_COEFFS |
tk = 273.15 _d 0 + t |
|
./pkg/bling/bling_carbon_chem.F |
581 |
CARBON_COEFFS |
tk100 = tk/100. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
583 |
CARBON_COEFFS |
invtk=1.0 _d 0/tk |
|
./pkg/bling/bling_carbon_chem.F |
585 |
CARBON_COEFFS |
is=19.924 _d 0*s/(1000. _d 0-1.005 _d 0*s) |
|
./pkg/bling/bling_carbon_chem.F |
590 |
CARBON_COEFFS |
s15=s**1.5 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
591 |
CARBON_COEFFS |
scl=s/1.80655 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
597 |
CARBON_COEFFS |
P1atm = 1.01325 _d 0 ! bars |
|
./pkg/bling/bling_carbon_chem.F |
598 |
CARBON_COEFFS |
Rgas = 83.1451 _d 0 ! bar*cm3/(mol*K) |
|
./pkg/bling/bling_carbon_chem.F |
600 |
CARBON_COEFFS |
delta = (57.7 _d 0 - 0.118 _d 0*tk) |
|
./pkg/bling/bling_carbon_chem.F |
601 |
CARBON_COEFFS |
B1 = -1636.75 _d 0 + 12.0408 _d 0*tk - 0.0327957 _d 0*tk*tk |
|
./pkg/bling/bling_carbon_chem.F |
602 |
CARBON_COEFFS |
B = B1 + 3.16528 _d 0*tk*tk*tk*(0.00001 _d 0) |
|
./pkg/bling/bling_carbon_chem.F |
605 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * |
|
./pkg/bling/bling_carbon_chem.F |
609 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/bling/bling_carbon_chem.F |
615 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/bling/bling_carbon_chem.F |
616 |
CARBON_COEFFS |
& 90.9241 _d 0*log(tk100) - 1.47696 _d 0*tk1002 + |
|
./pkg/bling/bling_carbon_chem.F |
617 |
CARBON_COEFFS |
& s * (.025695 _d 0 - .025225 _d 0*tk100 + |
|
./pkg/bling/bling_carbon_chem.F |
618 |
CARBON_COEFFS |
& 0.0049867 _d 0*tk1002)) |
|
./pkg/bling/bling_carbon_chem.F |
621 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
622 |
CARBON_COEFFS |
& 23.3585 _d 0 * log(tk100) + |
|
./pkg/bling/bling_carbon_chem.F |
623 |
CARBON_COEFFS |
& s * (0.023517 _d 0 - 0.023656 _d 0*tk100 + |
|
./pkg/bling/bling_carbon_chem.F |
624 |
CARBON_COEFFS |
& 0.0047036 _d 0*tk1002)) |
|
./pkg/bling/bling_carbon_chem.F |
629 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/bling/bling_carbon_chem.F |
630 |
CARBON_COEFFS |
& 62.008 _d 0 + 9.7944 _d 0*dlogtk - |
|
./pkg/bling/bling_carbon_chem.F |
631 |
CARBON_COEFFS |
& 0.0118 _d 0 * s + 0.000116 _d 0*s2)) |
|
./pkg/bling/bling_carbon_chem.F |
632 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0- |
|
./pkg/bling/bling_carbon_chem.F |
633 |
CARBON_COEFFS |
& 0.0184 _d 0*s + 0.000118 _d 0*s2)) |
|
./pkg/bling/bling_carbon_chem.F |
637 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/bling/bling_carbon_chem.F |
638 |
CARBON_COEFFS |
& 77.942 _d 0*s + 1.728 _d 0*s15 - 0.0996 _d 0*s2)*invtk + |
|
./pkg/bling/bling_carbon_chem.F |
639 |
CARBON_COEFFS |
& (148.0248 _d 0 + 137.1942 _d 0*sqrts + 1.62142 _d 0*s) + |
|
./pkg/bling/bling_carbon_chem.F |
640 |
CARBON_COEFFS |
& (-24.4344 _d 0 - 25.085 _d 0*sqrts - 0.2474 _d 0*s) * |
|
./pkg/bling/bling_carbon_chem.F |
641 |
CARBON_COEFFS |
& dlogtk + 0.053105 _d 0*sqrts*tk) |
|
./pkg/bling/bling_carbon_chem.F |
645 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
646 |
CARBON_COEFFS |
& 18.453 _d 0*dlogtk + |
|
./pkg/bling/bling_carbon_chem.F |
647 |
CARBON_COEFFS |
& (-106.736 _d 0*invtk + 0.69171 _d 0)*sqrts + |
|
./pkg/bling/bling_carbon_chem.F |
648 |
CARBON_COEFFS |
& (-0.65643 _d 0*invtk - 0.01844 _d 0)*s) |
|
./pkg/bling/bling_carbon_chem.F |
652 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
653 |
CARBON_COEFFS |
& 27.927 _d 0*dlogtk + |
|
./pkg/bling/bling_carbon_chem.F |
654 |
CARBON_COEFFS |
& (-160.340 _d 0*invtk + 1.3566 _d 0) * sqrts + |
|
./pkg/bling/bling_carbon_chem.F |
655 |
CARBON_COEFFS |
& (0.37335 _d 0*invtk - 0.05778 _d 0) * s) |
|
./pkg/bling/bling_carbon_chem.F |
659 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
660 |
CARBON_COEFFS |
& (17.27039 _d 0*invtk + 2.81197 _d 0) * |
|
./pkg/bling/bling_carbon_chem.F |
661 |
CARBON_COEFFS |
& sqrts + (-44.99486 _d 0*invtk - 0.09984 _d 0) * s) |
|
./pkg/bling/bling_carbon_chem.F |
665 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
666 |
CARBON_COEFFS |
& 19.334 _d 0*dlogtk + |
|
./pkg/bling/bling_carbon_chem.F |
667 |
CARBON_COEFFS |
& (-458.79 _d 0*invtk + 3.5913 _d 0) * sqrtis + |
|
./pkg/bling/bling_carbon_chem.F |
668 |
CARBON_COEFFS |
& (188.74 _d 0*invtk - 1.5998 _d 0) * is + |
|
./pkg/bling/bling_carbon_chem.F |
669 |
CARBON_COEFFS |
& (-12.1652 _d 0*invtk + 0.07871 _d 0) * is2 + |
|
./pkg/bling/bling_carbon_chem.F |
670 |
CARBON_COEFFS |
& log(1.0 _d 0-0.001005 _d 0*s)) |
|
./pkg/bling/bling_carbon_chem.F |
674 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
675 |
CARBON_COEFFS |
& 23.6521 _d 0*dlogtk + |
|
./pkg/bling/bling_carbon_chem.F |
676 |
CARBON_COEFFS |
& (118.67 _d 0*invtk - 5.977 _d 0 + 1.0495 _d 0 * dlogtk) |
|
./pkg/bling/bling_carbon_chem.F |
677 |
CARBON_COEFFS |
& * sqrts - 0.01615 _d 0 * s) |
|
./pkg/bling/bling_carbon_chem.F |
681 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/bling/bling_carbon_chem.F |
682 |
CARBON_COEFFS |
& 23.093 _d 0*dlogtk + |
|
./pkg/bling/bling_carbon_chem.F |
683 |
CARBON_COEFFS |
& (-13856. _d 0*invtk + 324.57 _d 0 - 47.986 _d 0*dlogtk)*sqrtis+ |
|
./pkg/bling/bling_carbon_chem.F |
684 |
CARBON_COEFFS |
& (35474. _d 0*invtk - 771.54 _d 0 + 114.723 _d 0*dlogtk)*is - |
|
./pkg/bling/bling_carbon_chem.F |
685 |
CARBON_COEFFS |
& 2698. _d 0*invtk*is**1.5 _d 0 + 1776. _d 0*invtk*is2 + |
|
./pkg/bling/bling_carbon_chem.F |
686 |
CARBON_COEFFS |
& log(1.0 _d 0 - 0.001005 _d 0*s)) |
|
./pkg/bling/bling_carbon_chem.F |
690 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/bling/bling_carbon_chem.F |
691 |
CARBON_COEFFS |
& 1.525 _d 0*sqrtis + log(1.0 _d 0 - 0.001005 _d 0*s) + |
|
./pkg/bling/bling_carbon_chem.F |
692 |
CARBON_COEFFS |
& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/bling/bling_carbon_chem.F |
696 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
698 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
700 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
704 |
CARBON_COEFFS |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
705 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
706 |
CARBON_COEFFS |
ak0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
707 |
CARBON_COEFFS |
ak1(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
708 |
CARBON_COEFFS |
ak2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
709 |
CARBON_COEFFS |
akb(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
710 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
711 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
712 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
713 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
714 |
CARBON_COEFFS |
akw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
715 |
CARBON_COEFFS |
aks(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
716 |
CARBON_COEFFS |
akf(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
717 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
718 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
719 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
893 |
CARBON_COEFFS_PRESSURE_DEP |
P1atm = 1.01325 _d 0 ! bars |
|
./pkg/bling/bling_carbon_chem.F |
894 |
CARBON_COEFFS_PRESSURE_DEP |
Rgas = 83.1451 _d 0 ! bar*cm3/(mol*K) |
|
./pkg/bling/bling_carbon_chem.F |
896 |
CARBON_COEFFS_PRESSURE_DEP |
delta = (57.7 _d 0 - 0.118 _d 0*tk) |
|
./pkg/bling/bling_carbon_chem.F |
897 |
CARBON_COEFFS_PRESSURE_DEP |
B1 = -1636.75 _d 0 + 12.0408 _d 0*tk - 0.0327957 _d 0*tk*tk |
|
./pkg/bling/bling_carbon_chem.F |
898 |
CARBON_COEFFS_PRESSURE_DEP |
B = B1 + 3.16528 _d 0*tk*tk*tk*(0.00001 _d 0) |
|
./pkg/bling/bling_carbon_chem.F |
902 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * |
|
./pkg/bling/bling_carbon_chem.F |
906 |
CARBON_COEFFS_PRESSURE_DEP |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/bling/bling_carbonate_init.F |
117 |
BLING_CARBONATE_INIT |
pH(i,j,k,bi,bj) = 8. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
128 |
BLING_CARBONATE_INIT |
ak0(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
129 |
BLING_CARBONATE_INIT |
ak1(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
130 |
BLING_CARBONATE_INIT |
ak2(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
131 |
BLING_CARBONATE_INIT |
akw(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
132 |
BLING_CARBONATE_INIT |
akb(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
133 |
BLING_CARBONATE_INIT |
akf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
134 |
BLING_CARBONATE_INIT |
ak1p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
135 |
BLING_CARBONATE_INIT |
ak2p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
136 |
BLING_CARBONATE_INIT |
ak3p(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
137 |
BLING_CARBONATE_INIT |
aksi(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
138 |
BLING_CARBONATE_INIT |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
139 |
BLING_CARBONATE_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
140 |
BLING_CARBONATE_INIT |
ft(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
141 |
BLING_CARBONATE_INIT |
st(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
142 |
BLING_CARBONATE_INIT |
bt(i,j,bi,bj)=0. _d 0 |
|
./pkg/bling/bling_carbonate_init.F |
196 |
BLING_CARBONATE_INIT |
IF ( maskC(i,j,k,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/bling/bling_carbonate_sys.F |
110 |
BLING_CARBONATE_SYS |
IF ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_carbonate_sys.F |
115 |
BLING_CARBONATE_SYS |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
121 |
BLING_CARBONATE_SYS |
silicaDEEP = 0.03 _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
155 |
BLING_CARBONATE_SYS |
pH(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
156 |
BLING_CARBONATE_SYS |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbonate_sys.F |
157 |
BLING_CARBONATE_SYS |
omegaAr(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
101 |
BLING_DVM |
Fe_burial(i,j) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
139 |
BLING_DVM |
IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_dvm.F |
151 |
BLING_DVM |
o2_upper = o2_upper + PTR_O2(i,j,k) * drf(k)*1.0 _d 3 |
|
./pkg/bling/bling_dvm.F |
153 |
BLING_DVM |
if ( (abs(depth_l) .gt. 140.0 _d 0) .and. |
|
./pkg/bling/bling_dvm.F |
154 |
BLING_DVM |
& (abs(depth_l) .lt. 515. _d 0)) then |
|
./pkg/bling/bling_dvm.F |
157 |
BLING_DVM |
o2_lower = o2_lower + PTR_O2(i,j,k) * drf(k)*1.0 _d 3 |
|
./pkg/bling/bling_dvm.F |
175 |
BLING_DVM |
z_dvm_regr = 398. _d 0 |
|
./pkg/bling/bling_dvm.F |
176 |
BLING_DVM |
& - 0.56 _d 0*min(300. _d 0,max(-10. _d 0,(o2_upper - o2_lower))) |
|
./pkg/bling/bling_dvm.F |
177 |
BLING_DVM |
& - 115. _d 0*min(0.85 _d 0,max(-1.80 _d 0, |
|
./pkg/bling/bling_dvm.F |
179 |
BLING_DVM |
& + 0.36 _d 0*min(500. _d 0,max(epsln,mld(i,j))) |
|
./pkg/bling/bling_dvm.F |
180 |
BLING_DVM |
& - 2.40 _d 0*min(20. _d 0,max(-3. _d 0,(temp_upper-temp_lower))) |
|
./pkg/bling/bling_dvm.F |
189 |
BLING_DVM |
z_dvm_regr = 150. _d 0 + (z_dvm_regr - 150. _d 0) * |
|
./pkg/bling/bling_dvm.F |
190 |
BLING_DVM |
& irr_mem(i,j,1,bi,bj) / 10. _d 0 |
|
./pkg/bling/bling_dvm.F |
202 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
205 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
|
./pkg/bling/bling_dvm.F |
214 |
BLING_DVM |
z_dvm = min(700. _d 0,max(150. _d 0,z_dvm_regr),z_dvm,-rf(k+1)) |
|
./pkg/bling/bling_dvm.F |
222 |
BLING_DVM |
frac_migr = max( 0.0 _d 0, min( 1.0 _d 0, (2.0 _d 0 * z_dvm) / |
|
./pkg/bling/bling_dvm.F |
223 |
BLING_DVM |
& (epsln + 0.05 _d 0 * 0.5 _d 0 * 86400. _d 0))) |
|
./pkg/bling/bling_dvm.F |
232 |
BLING_DVM |
IF ( (hFacC(i,j,k,bi,bj).gt.0. _d 0) .and. (tmp.eq.0)) THEN |
|
./pkg/bling/bling_dvm.F |
250 |
BLING_DVM |
& ( (epsln + 2. _d 0 * sigma_dvm**2. _d 0)**0.5) |
|
./pkg/bling/bling_dvm.F |
254 |
BLING_DVM |
t_erfcc = 1. _d 0/(1. _d 0+0.5 _d 0*z_erfcc) |
|
./pkg/bling/bling_dvm.F |
266 |
BLING_DVM |
fdvm_stat = (1. _d 0 - frac_migr) / 2. _d 0 * erfcc |
|
./pkg/bling/bling_dvm.F |
274 |
BLING_DVM |
if (PTR_O2(i,j,k+2) .lt. (5. _d 0*oxic_min)) tmp = 1 |
|
./pkg/bling/bling_dvm.F |
96 |
BLING_DVM |
N_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
97 |
BLING_DVM |
P_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
98 |
BLING_DVM |
Fe_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_dvm.F |
99 |
BLING_DVM |
dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_fields_load.F |
56 |
BLING_FIELDS_LOAD |
IF ( BLING_forcingCycle.gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_ini_forcing.F |
79 |
BLING_INI_FORCING |
WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
80 |
BLING_INI_FORCING |
AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
81 |
BLING_INI_FORCING |
SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_ini_forcing.F |
82 |
BLING_INI_FORCING |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_ini_forcing.F |
83 |
BLING_INI_FORCING |
FluxCO2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bling/bling_ini_forcing.F |
84 |
BLING_INI_FORCING |
InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj) |
|
./pkg/bling/bling_init_fixed.F |
39 |
BLING_INIT_FIXED |
sca1 = 2073.1 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
40 |
BLING_INIT_FIXED |
sca2 = -125.62 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
41 |
BLING_INIT_FIXED |
sca3 = 3.6276 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
42 |
BLING_INIT_FIXED |
sca4 = -0.043219 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
46 |
BLING_INIT_FIXED |
sox1 = 1929.7 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
47 |
BLING_INIT_FIXED |
sox2 = -117.46 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
48 |
BLING_INIT_FIXED |
sox3 = 3.116 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
49 |
BLING_INIT_FIXED |
sox4 = -0.0306 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
52 |
BLING_INIT_FIXED |
oA0= 2.00907 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
53 |
BLING_INIT_FIXED |
oA1= 3.22014 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
54 |
BLING_INIT_FIXED |
oA2= 4.05010 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
55 |
BLING_INIT_FIXED |
oA3= 4.94457 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
56 |
BLING_INIT_FIXED |
oA4= -2.56847 _d -1 |
|
./pkg/bling/bling_init_fixed.F |
57 |
BLING_INIT_FIXED |
oA5= 3.88767 _d 0 |
|
./pkg/bling/bling_init_fixed.F |
58 |
BLING_INIT_FIXED |
oB0= -6.24523 _d -3 |
|
./pkg/bling/bling_init_fixed.F |
59 |
BLING_INIT_FIXED |
oB1= -7.37614 _d -3 |
|
./pkg/bling/bling_init_fixed.F |
60 |
BLING_INIT_FIXED |
oB2= -1.03410 _d -2 |
|
./pkg/bling/bling_init_fixed.F |
61 |
BLING_INIT_FIXED |
oB3= -8.17083 _d -3 |
|
./pkg/bling/bling_init_fixed.F |
62 |
BLING_INIT_FIXED |
oC0= -4.88682 _d -7 |
|
./pkg/bling/bling_init_varia.F |
143 |
BLING_INIT_VARIA |
phyto_sm(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
144 |
BLING_INIT_VARIA |
phyto_lg(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
145 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
43 |
BLING_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
44 |
BLING_INIT_VARIA |
omegaAr(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
45 |
BLING_INIT_VARIA |
irr_mem(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/bling/bling_init_varia.F |
46 |
BLING_INIT_VARIA |
chl(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
47 |
BLING_INIT_VARIA |
poc(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_init_varia.F |
48 |
BLING_INIT_VARIA |
phyto_sm(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
49 |
BLING_INIT_VARIA |
phyto_lg(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_init_varia.F |
50 |
BLING_INIT_VARIA |
phyto_diaz(i,j,k,bi,bj) = 4. _d -7 / permil |
|
./pkg/bling/bling_light.F |
103 |
BLING_LIGHT |
solar = 1360. _d 0 !solar constant |
|
./pkg/bling/bling_light.F |
104 |
BLING_LIGHT |
albedo = 0.6 _d 0 !planetary albedo |
|
./pkg/bling/bling_light.F |
112 |
BLING_LIGHT |
dayfrac=mod(myTime,360. _d 0*86400. _d 0) |
|
./pkg/bling/bling_light.F |
113 |
BLING_LIGHT |
& /(360. _d 0*86400. _d 0) !fraction of year |
|
./pkg/bling/bling_light.F |
114 |
BLING_LIGHT |
yday = 2. _d 0*PI*dayfrac !convert to radians |
|
./pkg/bling/bling_light.F |
115 |
BLING_LIGHT |
delta = (0.006918 _d 0 |
|
./pkg/bling/bling_light.F |
116 |
BLING_LIGHT |
& -(0.399912 _d 0*cos(yday)) !cosine zenith angle |
|
./pkg/bling/bling_light.F |
117 |
BLING_LIGHT |
& +(0.070257 _d 0*sin(yday)) !(paltridge+platt) |
|
./pkg/bling/bling_light.F |
118 |
BLING_LIGHT |
& -(0.006758 _d 0*cos(2. _d 0*yday)) |
|
./pkg/bling/bling_light.F |
119 |
BLING_LIGHT |
& +(0.000907 _d 0*sin(2. _d 0*yday)) |
|
./pkg/bling/bling_light.F |
120 |
BLING_LIGHT |
& -(0.002697 _d 0*cos(3. _d 0*yday)) |
|
./pkg/bling/bling_light.F |
121 |
BLING_LIGHT |
& +(0.001480 _d 0*sin(3. _d 0*yday)) ) |
|
./pkg/bling/bling_light.F |
128 |
BLING_LIGHT |
& lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) ) |
|
./pkg/bling/bling_light.F |
130 |
BLING_LIGHT |
IF (sun1.LE.-0.999 _d 0) sun1=-0.999 _d 0 |
|
./pkg/bling/bling_light.F |
131 |
BLING_LIGHT |
IF (sun1.GE. 0.999 _d 0) sun1= 0.999 _d 0 |
|
./pkg/bling/bling_light.F |
135 |
BLING_LIGHT |
IF (cosz.LE.5. _d -3) cosz= 5. _d -3 |
|
./pkg/bling/bling_light.F |
138 |
BLING_LIGHT |
fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac |
|
./pkg/bling/bling_light.F |
141 |
BLING_LIGHT |
sfac(j) = MAX(1. _d -5,fluxi) |
|
./pkg/bling/bling_light.F |
166 |
BLING_LIGHT |
SumMLIrr = 0. _d 0 |
|
./pkg/bling/bling_light.F |
167 |
BLING_LIGHT |
tmp_ML = 0. _d 0 |
|
./pkg/bling/bling_light.F |
176 |
BLING_LIGHT |
atten = k0*drF(1)/2. _d 0*hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_light.F |
180 |
BLING_LIGHT |
atten = k0*drF(k)/2. _d 0*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_light.F |
181 |
BLING_LIGHT |
& + k0*drF(k-1)/2. _d 0*hFacC(i,j,k-1,bi,bj) |
|
./pkg/bling/bling_light.F |
189 |
BLING_LIGHT |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_light.F |
207 |
BLING_LIGHT |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_light.F |
213 |
BLING_LIGHT |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_light.F |
90 |
BLING_LIGHT |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
114 |
BLING_MAIN |
G_DIC(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
115 |
BLING_MAIN |
G_ALK(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
116 |
BLING_MAIN |
G_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
117 |
BLING_MAIN |
G_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
118 |
BLING_MAIN |
G_FE(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
119 |
BLING_MAIN |
G_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
120 |
BLING_MAIN |
G_DON(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
121 |
BLING_MAIN |
G_DOP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
122 |
BLING_MAIN |
G_CaCO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
123 |
BLING_MAIN |
NCP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
124 |
BLING_MAIN |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
125 |
BLING_MAIN |
bio_DIC(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
126 |
BLING_MAIN |
bio_ALK(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
127 |
BLING_MAIN |
bio_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
128 |
BLING_MAIN |
bio_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
129 |
BLING_MAIN |
bio_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
130 |
BLING_MAIN |
bio_Fe(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
133 |
BLING_MAIN |
runoff_bgc(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
135 |
BLING_MAIN |
surf_DIC(i,j) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
136 |
BLING_MAIN |
surf_O2(i,j) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
137 |
BLING_MAIN |
surf_Fe(i,j) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
138 |
BLING_MAIN |
fluxO2(i,j) = 0. _d 0 |
|
./pkg/bling/bling_main.F |
200 |
BLING_MAIN |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_main.F |
203 |
BLING_MAIN |
& + 2. _d 0*G_CaCO3(i,j,k) |
|
./pkg/bling/bling_mixedlayer.F |
100 |
BLING_MIXEDLAYER |
IF (delta_dens(i,j,k) .LT. 0.03 _d 0) THEN |
|
./pkg/bling/bling_mixedlayer.F |
76 |
BLING_MIXEDLAYER |
delta_dens(i,j,1) = 0. _d 0 |
|
./pkg/bling/bling_mixedlayer.F |
78 |
BLING_MIXEDLAYER |
delta_dens(i,j,k) = 9999. _d 0 |
|
./pkg/bling/bling_mixedlayer.F |
98 |
BLING_MIXEDLAYER |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
212 |
BLING_PROD |
mld(i,j) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
218 |
BLING_PROD |
G_NO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
219 |
BLING_PROD |
G_PO4(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
220 |
BLING_PROD |
G_Fe(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
221 |
BLING_PROD |
G_O2(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
222 |
BLING_PROD |
G_DON(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
223 |
BLING_PROD |
G_DOP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
224 |
BLING_PROD |
G_CaCO3(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
225 |
BLING_PROD |
N_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
226 |
BLING_PROD |
N_fix(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
227 |
BLING_PROD |
N_den_pelag(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
228 |
BLING_PROD |
N_den_benthic(i,j,k)= 0. _d 0 |
|
./pkg/bling/bling_production.F |
229 |
BLING_PROD |
P_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
230 |
BLING_PROD |
Fe_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
231 |
BLING_PROD |
N_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
232 |
BLING_PROD |
P_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
233 |
BLING_PROD |
Fe_dvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
234 |
BLING_PROD |
CaCO3_uptake(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
235 |
BLING_PROD |
DON_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
236 |
BLING_PROD |
DOP_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
237 |
BLING_PROD |
O2_prod(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
238 |
BLING_PROD |
mu_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
239 |
BLING_PROD |
irr_eff(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
240 |
BLING_PROD |
irr_inst(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
241 |
BLING_PROD |
irrk(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
242 |
BLING_PROD |
NO3_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
243 |
BLING_PROD |
PO4_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
244 |
BLING_PROD |
Fe_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
245 |
BLING_PROD |
Fe_lim_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
246 |
BLING_PROD |
light_lim(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
247 |
BLING_PROD |
PtoN(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
248 |
BLING_PROD |
FetoN(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
249 |
BLING_PROD |
NPP(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
250 |
BLING_PROD |
N_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
251 |
BLING_PROD |
P_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
252 |
BLING_PROD |
Fe_reminsum(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
253 |
BLING_PROD |
N_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
254 |
BLING_PROD |
P_remindvm(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
265 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_NO3, 1. _d -7 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
266 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_PO4, 1. _d -8 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
267 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_FE, 1. _d -11 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
268 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_O2, 1. _d -11 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
269 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_DON, 1. _d -11 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
270 |
BLING_PROD |
CALL BLING_MIN_VAL( PTR_DOP, 1. _d -11 ,bi ,bj) |
|
./pkg/bling/bling_production.F |
319 |
BLING_PROD |
tmp_p_sm_ML = 0. _d 0 |
|
./pkg/bling/bling_production.F |
320 |
BLING_PROD |
tmp_p_lg_ML = 0. _d 0 |
|
./pkg/bling/bling_production.F |
321 |
BLING_PROD |
tmp_p_diaz_ML = 0. _d 0 |
|
./pkg/bling/bling_production.F |
322 |
BLING_PROD |
tmp_ML = 0. _d 0 |
|
./pkg/bling/bling_production.F |
326 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
328 |
BLING_PROD |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_production.F |
343 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj).gt.0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
345 |
BLING_PROD |
& (-rf(k+1).lt.200. _d 0)) THEN |
|
./pkg/bling/bling_production.F |
347 |
BLING_PROD |
Phy_lg_local(i,j,k) = max(1. _d -8,tmp_p_lg_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
348 |
BLING_PROD |
Phy_sm_local(i,j,k) = max(1. _d -8,tmp_p_sm_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
349 |
BLING_PROD |
Phy_diaz_local(i,j,k) = max(1. _d -8,tmp_p_diaz_ML/tmp_ML) |
|
./pkg/bling/bling_production.F |
376 |
BLING_PROD |
& min( 1. _d 0, gamma_irr_mem*PTRACERS_dTLev(k) ) |
|
./pkg/bling/bling_production.F |
389 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
437 |
BLING_PROD |
Pc_m = max(Pc_m ,maskC(i,j,k,bi,bj)*1. _d -15) |
|
./pkg/bling/bling_production.F |
438 |
BLING_PROD |
Pc_m_diaz = max(Pc_m_diaz,maskC(i,j,k,bi,bj)*1. _d -15) |
|
./pkg/bling/bling_production.F |
453 |
BLING_PROD |
& / (1. _d 0 + alpha_photo2d(i,j,bi,bj) |
|
./pkg/bling/bling_production.F |
455 |
BLING_PROD |
& *irr_mem(i,j,k,bi,bj)/(epsln + 2. _d 0*Pc_m)) |
|
./pkg/bling/bling_production.F |
473 |
BLING_PROD |
& + irr_mem(i,j,k,bi,bj)/2. _d 0 |
|
./pkg/bling/bling_production.F |
476 |
BLING_PROD |
mu(i,j,k) = Pc_m * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
479 |
BLING_PROD |
mu_diaz(i,j,k) = Pc_m_diaz * ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
482 |
BLING_PROD |
light_lim(i,j,k) = ( 1. _d 0 - exp(-irr_eff(i,j,k) |
|
./pkg/bling/bling_production.F |
488 |
BLING_PROD |
mu_diaz(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_production.F |
529 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
561 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
581 |
BLING_PROD |
chl(i,j,k,bi,bj) = max(chl_min, CtoN * 12.01 * 1. _d 3 * |
|
./pkg/bling/bling_production.F |
595 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
708 |
BLING_PROD |
IF (hFacC(i,j,k,bi,bj) .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_production.F |
714 |
BLING_PROD |
& *PTR_DON(i,j,k),0. _d 0) |
|
./pkg/bling/bling_production.F |
716 |
BLING_PROD |
& *PTR_DOP(i,j,k),0. _d 0) |
|
./pkg/bling/bling_production.F |
730 |
BLING_PROD |
& ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
739 |
BLING_PROD |
& + (O2toN - 1.25 _d 0) * N_fix(i,j,k) |
|
./pkg/bling/bling_production.F |
751 |
BLING_PROD |
& + (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
764 |
BLING_PROD |
& + (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
800 |
BLING_PROD |
& -O2toN * ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
807 |
BLING_PROD |
& -O2toN * ((1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
810 |
BLING_PROD |
& + N_den_benthic(i,j,k) * 1.25 _d 0 |
|
./pkg/bling/bling_production.F |
823 |
BLING_PROD |
& - (1. _d 0 - phi_DOM2d(i,j,bi,bj)) |
|
./pkg/bling/bling_production.F |
836 |
BLING_PROD |
& Phy_diaz_local(i,j,k) ) * 3.33333 _d 0 |
|
./pkg/bling/bling_readparms.F |
223 |
BLING_READPARMS |
secperday = 86400. _d 0 |
|
./pkg/bling/bling_readparms.F |
224 |
BLING_READPARMS |
permil = 1. _d 0 / 1024.5 _d 0 |
|
./pkg/bling/bling_readparms.F |
225 |
BLING_READPARMS |
Pa2Atm = 1.01325 _d 5 |
|
./pkg/bling/bling_readparms.F |
226 |
BLING_READPARMS |
CtoN = 6.75 _d 0 |
|
./pkg/bling/bling_readparms.F |
227 |
BLING_READPARMS |
HtoC = 48. _d 0 / 106. _d 0 |
|
./pkg/bling/bling_readparms.F |
228 |
BLING_READPARMS |
O2toN = CtoN * (1. _d 0 + 0.25 _d 0 * HtoC) |
|
./pkg/bling/bling_readparms.F |
229 |
BLING_READPARMS |
& + 2. _d 0 |
|
./pkg/bling/bling_readparms.F |
230 |
BLING_READPARMS |
NO3toN = CtoN * (1. _d 0 + 0.25 _d 0 * HtoC) |
|
./pkg/bling/bling_readparms.F |
231 |
BLING_READPARMS |
& * 0.8 _d 0 + 0.6 _d 0 |
|
./pkg/bling/bling_readparms.F |
232 |
BLING_READPARMS |
CatoN = CtoN * 0.015 _d 0 |
|
./pkg/bling/bling_readparms.F |
233 |
BLING_READPARMS |
masstoN = CtoN * 12.001 _d 0 |
|
./pkg/bling/bling_readparms.F |
234 |
BLING_READPARMS |
pivotal = 1.9 _d -3 / 1028. _d 0 / CtoN / permil |
|
./pkg/bling/bling_readparms.F |
235 |
BLING_READPARMS |
Pc_0 = 1.7 _d -5 |
|
./pkg/bling/bling_readparms.F |
236 |
BLING_READPARMS |
Pc_0_diaz = 0.01 _d -5 |
|
./pkg/bling/bling_readparms.F |
237 |
BLING_READPARMS |
lambda_0 = 0.19 _d 0 / secperday |
|
./pkg/bling/bling_readparms.F |
238 |
BLING_READPARMS |
chl_min = 1. _d -5 |
|
./pkg/bling/bling_readparms.F |
239 |
BLING_READPARMS |
alpha_photo = 0.7 _d -5 * 2.77 _d 18 / 6.022 _d 17 |
|
./pkg/bling/bling_readparms.F |
240 |
BLING_READPARMS |
theta_Fe_max_hi = 0.04 _d 0 |
|
./pkg/bling/bling_readparms.F |
241 |
BLING_READPARMS |
theta_Fe_max_lo = 0.01 _d 0 |
|
./pkg/bling/bling_readparms.F |
242 |
BLING_READPARMS |
gamma_irr_mem = 1. _d 0 / secperday |
|
./pkg/bling/bling_readparms.F |
243 |
BLING_READPARMS |
gamma_DON = 0.25 _d 0 / (365.25 _d 0 * secperday) |
|
./pkg/bling/bling_readparms.F |
244 |
BLING_READPARMS |
gamma_DOP = 0.5 _d 0 / (365.25 _d 0 * secperday) |
|
./pkg/bling/bling_readparms.F |
245 |
BLING_READPARMS |
gamma_POM = 0.12 _d 0 / secperday |
|
./pkg/bling/bling_readparms.F |
246 |
BLING_READPARMS |
k_Fe = 1.6 _d -10 / permil |
|
./pkg/bling/bling_readparms.F |
247 |
BLING_READPARMS |
k_Fe_diaz = 7. _d -10 / permil |
|
./pkg/bling/bling_readparms.F |
248 |
BLING_READPARMS |
k_O2 = 20. _d -6 / permil |
|
./pkg/bling/bling_readparms.F |
249 |
BLING_READPARMS |
k_NO3 = 2. _d -6 / permil |
|
./pkg/bling/bling_readparms.F |
250 |
BLING_READPARMS |
k_PO4 = 1. _d -8 / permil |
|
./pkg/bling/bling_readparms.F |
251 |
BLING_READPARMS |
k_PtoN = 1.5 _d -6 / permil |
|
./pkg/bling/bling_readparms.F |
252 |
BLING_READPARMS |
k_FetoN = 8. _d -10 / permil |
|
./pkg/bling/bling_readparms.F |
255 |
BLING_READPARMS |
FetoN_min = 2. _d -6 * 6.75 |
|
./pkg/bling/bling_readparms.F |
256 |
BLING_READPARMS |
FetoN_max = 25. _d -6 * 6.75 |
|
./pkg/bling/bling_readparms.F |
257 |
BLING_READPARMS |
FetoC_sed = 1. _d -4 |
|
./pkg/bling/bling_readparms.F |
258 |
BLING_READPARMS |
kFe_eq_lig_max = 8.0 _d 10 * permil |
|
./pkg/bling/bling_readparms.F |
259 |
BLING_READPARMS |
kFe_eq_lig_min = 8.0 _d 9 * permil |
|
./pkg/bling/bling_readparms.F |
260 |
BLING_READPARMS |
kFe_eq_lig_Femin = 0.05 _d -9 / permil |
|
./pkg/bling/bling_readparms.F |
261 |
BLING_READPARMS |
kFe_eq_lig_irr = 0.1 _d 0 |
|
./pkg/bling/bling_readparms.F |
262 |
BLING_READPARMS |
kFe_org = 0.5 _d 0 / secperday * permil**(0.58) |
|
./pkg/bling/bling_readparms.F |
263 |
BLING_READPARMS |
kFe_inorg = 1. _d 3 / secperday * permil**(0.5) |
|
./pkg/bling/bling_readparms.F |
264 |
BLING_READPARMS |
remin_min = 0.15 _d 0 |
|
./pkg/bling/bling_readparms.F |
265 |
BLING_READPARMS |
oxic_min = 1. _d -6 / permil |
|
./pkg/bling/bling_readparms.F |
266 |
BLING_READPARMS |
Ligand = 1. _d -9 / permil |
|
./pkg/bling/bling_readparms.F |
267 |
BLING_READPARMS |
kappa_eppley = 0.063 _d 0 |
|
./pkg/bling/bling_readparms.F |
268 |
BLING_READPARMS |
kappa_eppley_diaz = 0.18 _d 0 |
|
./pkg/bling/bling_readparms.F |
269 |
BLING_READPARMS |
kappa_remin = -0.032 _d 0 |
|
./pkg/bling/bling_readparms.F |
270 |
BLING_READPARMS |
ca_remin_depth = 1343. _d 0 |
|
./pkg/bling/bling_readparms.F |
271 |
BLING_READPARMS |
phi_DOM = 0.1 _d 0 |
|
./pkg/bling/bling_readparms.F |
272 |
BLING_READPARMS |
phi_sm = 0.18 _d 0 |
|
./pkg/bling/bling_readparms.F |
273 |
BLING_READPARMS |
phi_lg = 1. _d 0 |
|
./pkg/bling/bling_readparms.F |
274 |
BLING_READPARMS |
phi_dvm = 0.2 _d 0 |
|
./pkg/bling/bling_readparms.F |
275 |
BLING_READPARMS |
sigma_dvm = 40.0 _d 0 |
|
./pkg/bling/bling_readparms.F |
276 |
BLING_READPARMS |
wsink0z = 80. _d 0 |
|
./pkg/bling/bling_readparms.F |
277 |
BLING_READPARMS |
wsink0 = 16. _d 0 / secperday |
|
./pkg/bling/bling_readparms.F |
278 |
BLING_READPARMS |
wsinkacc = 0.05 _d 0 / secperday |
|
./pkg/bling/bling_readparms.F |
279 |
BLING_READPARMS |
parfrac = 0.4 _d 0 |
|
./pkg/bling/bling_readparms.F |
280 |
BLING_READPARMS |
alpfe = 0.01 _d 0 |
|
./pkg/bling/bling_readparms.F |
281 |
BLING_READPARMS |
k0 = 0.04 _d 0 |
|
./pkg/bling/bling_readparms.F |
282 |
BLING_READPARMS |
epsln = 1. _d -30 |
|
./pkg/bling/bling_readparms.F |
292 |
BLING_READPARMS |
bling_pCO2 = 278. _d -6 |
|
./pkg/bling/bling_readparms.F |
294 |
BLING_READPARMS |
river_conc_trac(k) = 0. _d 0 |
|
./pkg/bling/bling_readparms.F |
311 |
BLING_READPARMS |
apco2period = 0.0 _d 0 |
|
./pkg/bling/bling_readparms.F |
313 |
BLING_READPARMS |
apco2const = 0.0 _d 0 |
|
./pkg/bling/bling_readparms.F |
314 |
BLING_READPARMS |
apco2_exfremo_intercept = 0.0 _d 0 |
|
./pkg/bling/bling_readparms.F |
315 |
BLING_READPARMS |
apco2_exfremo_slope = 0.0 _d 0 |
|
./pkg/bling/bling_readparms.F |
317 |
BLING_READPARMS |
exf_inscal_apco2 = 1. _d 0 |
|
./pkg/bling/bling_readparms.F |
318 |
BLING_READPARMS |
exf_outscal_apco2 = 1. _d 0 |
|
./pkg/bling/bling_remineralization.F |
115 |
BLING_REMIN |
Fe_ads_org(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
116 |
BLING_REMIN |
Fe_ads_inorg(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
117 |
BLING_REMIN |
N_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
118 |
BLING_REMIN |
P_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
119 |
BLING_REMIN |
Fe_reminp(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
120 |
BLING_REMIN |
Fe_reminsum(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
121 |
BLING_REMIN |
N_den_benthic(i,j,k)= 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
122 |
BLING_REMIN |
CaCO3_diss(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
128 |
BLING_REMIN |
Fe_burial(i,j) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
129 |
BLING_REMIN |
NO3_sed(i,j) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
130 |
BLING_REMIN |
PO4_sed(i,j) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
131 |
BLING_REMIN |
O2_sed(i,j) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
144 |
BLING_REMIN |
PONflux_u = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
145 |
BLING_REMIN |
POPflux_u = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
146 |
BLING_REMIN |
PFEflux_u = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
147 |
BLING_REMIN |
CaCO3flux_u = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
152 |
BLING_REMIN |
Fe_ads_org(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
161 |
BLING_REMIN |
IF ( hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/bling/bling_remineralization.F |
179 |
BLING_REMIN |
zremin_caco3 = 1. _d 0/ca_remin_depth*(1. _d 0 - min(1. _d 0, |
|
./pkg/bling/bling_remineralization.F |
211 |
BLING_REMIN |
Fe_sed(i,j,k) = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
238 |
BLING_REMIN |
log_btm_flx = 1. _d -20 |
|
./pkg/bling/bling_remineralization.F |
242 |
BLING_REMIN |
IF (POC_sed .gt. 0. _d 0) THEN |
|
./pkg/bling/bling_remineralization.F |
246 |
BLING_REMIN |
log_btm_flx = log10(min(43.0 _d 0, POC_sed * |
|
./pkg/bling/bling_remineralization.F |
247 |
BLING_REMIN |
& 86400. _d 0 * 100.0 _d 0)) |
|
./pkg/bling/bling_remineralization.F |
253 |
BLING_REMIN |
& (10 _d 0)**(-0.9543 _d 0 + 0.7662 _d 0 * |
|
./pkg/bling/bling_remineralization.F |
254 |
BLING_REMIN |
& log_btm_flx - 0.235 _d 0 * log_btm_flx * log_btm_flx) |
|
./pkg/bling/bling_remineralization.F |
255 |
BLING_REMIN |
& / (CtoN * 86400. _d 0 * 100.0 _d 0) * NO3toN * |
|
./pkg/bling/bling_remineralization.F |
302 |
BLING_REMIN |
& *max(epsln,min(1. _d 0,(PTR_FE(i,j,k) |
|
./pkg/bling/bling_remineralization.F |
304 |
BLING_REMIN |
& (PTR_FE(i,j,k)+epsln)*1.2 _d 0)) |
|
./pkg/bling/bling_remineralization.F |
318 |
BLING_REMIN |
FreeFe = 0. _d 0 |
|
./pkg/bling/bling_remineralization.F |
325 |
BLING_REMIN |
& kFe_inorg*(max(1. _d -8,FreeFe))**(1.5) |
|
./pkg/bling/bling_remineralization.F |
330 |
BLING_REMIN |
IF ( PONflux_l .GT. 0. _d 0 ) THEN |
|
./pkg/bling/bling_remineralization.F |
352 |
BLING_REMIN |
PFEflux_l = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
135 |
BULKF_FIELDS_LOAD |
tair0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
136 |
BULKF_FIELDS_LOAD |
tair1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
137 |
BULKF_FIELDS_LOAD |
qair0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
138 |
BULKF_FIELDS_LOAD |
qair1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
139 |
BULKF_FIELDS_LOAD |
rain0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
140 |
BULKF_FIELDS_LOAD |
rain1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
141 |
BULKF_FIELDS_LOAD |
solar0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
142 |
BULKF_FIELDS_LOAD |
solar1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
143 |
BULKF_FIELDS_LOAD |
flwdwn0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
144 |
BULKF_FIELDS_LOAD |
flwdwn1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
145 |
BULKF_FIELDS_LOAD |
cloud0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
146 |
BULKF_FIELDS_LOAD |
cloud1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
147 |
BULKF_FIELDS_LOAD |
wspeed0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
148 |
BULKF_FIELDS_LOAD |
wspeed1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
149 |
BULKF_FIELDS_LOAD |
uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
150 |
BULKF_FIELDS_LOAD |
uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
151 |
BULKF_FIELDS_LOAD |
vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
152 |
BULKF_FIELDS_LOAD |
vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
153 |
BULKF_FIELDS_LOAD |
runoff0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
154 |
BULKF_FIELDS_LOAD |
runoff1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
155 |
BULKF_FIELDS_LOAD |
snow0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
156 |
BULKF_FIELDS_LOAD |
snow1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
158 |
BULKF_FIELDS_LOAD |
thAir0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
159 |
BULKF_FIELDS_LOAD |
thAir1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
161 |
BULKF_FIELDS_LOAD |
qnetch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
162 |
BULKF_FIELDS_LOAD |
qnetch1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
163 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_fields_load.F |
164 |
BULKF_FIELDS_LOAD |
empch1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
100 |
BULKF_FORCING |
evap(i,j,bi,bj) = EVPloc(1) * 1. _d -3 / rhoFW |
|
./pkg/bulk_force/bulkf_forcing.F |
101 |
BULKF_FORCING |
dEvdT = dEvp(1) * 1. _d -3 |
|
./pkg/bulk_force/bulkf_forcing.F |
143 |
BULKF_FORCING |
& *( 1. _d 0 - ocean_albedo ) |
|
./pkg/bulk_force/bulkf_forcing.F |
145 |
BULKF_FORCING |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
146 |
BULKF_FORCING |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
147 |
BULKF_FORCING |
fsh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
148 |
BULKF_FORCING |
flh(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
149 |
BULKF_FORCING |
flwup(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
150 |
BULKF_FORCING |
evap(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
151 |
BULKF_FORCING |
fswnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
152 |
BULKF_FORCING |
savssq(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
162 |
BULKF_FORCING |
& *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
168 |
BULKF_FORCING |
& *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
176 |
BULKF_FORCING |
IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_forcing.F |
178 |
BULKF_FORCING |
hfl = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
197 |
BULKF_FORCING |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
198 |
BULKF_FORCING |
Qsw (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
199 |
BULKF_FORCING |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
201 |
BULKF_FORCING |
dFdT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_forcing.F |
264 |
BULKF_FORCING |
IF ( blk_taveFreq.GT.0. _d 0 ) |
|
./pkg/bulk_force/bulkf_forcing.F |
83 |
BULKF_FORCING |
IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_formula_aim.F |
125 |
BULKF_FORMULA_AIM |
PSA(1) = 1. _d 0 |
|
./pkg/bulk_force/bulkf_formula_aim.F |
126 |
BULKF_FORMULA_AIM |
P0 = 1. _d +5 |
|
./pkg/bulk_force/bulkf_formula_aim.F |
153 |
BULKF_FORMULA_AIM |
TSFC(J)=273.16 _d 0 |
|
./pkg/bulk_force/bulkf_formula_aim.F |
167 |
BULKF_FORMULA_AIM |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_formula_aim.F |
175 |
BULKF_FORMULA_AIM |
dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
182 |
BULKF_FORMULA_AIM |
CALL BULKF_SH2RH_AIM( 2, NGP, TSKIN, PSA, 1. _d 0, |
|
./pkg/bulk_force/bulkf_formula_aim.F |
184 |
BULKF_FORMULA_AIM |
CALL BULKF_SH2RH_AIM( 0, NGP, TSFC, PSA, 1. _d 0, |
|
./pkg/bulk_force/bulkf_formula_aim.F |
187 |
BULKF_FORMULA_AIM |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_formula_aim.F |
205 |
BULKF_FORMULA_AIM |
IF ( dTstab.GT.0. _d 0 ) THEN |
|
./pkg/bulk_force/bulkf_formula_aim.F |
212 |
BULKF_FORMULA_AIM |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
233 |
BULKF_FORMULA_AIM |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
120 |
BULKF_FORMULA_LANL |
& / 3.797915 _d 0 , 7.93252 _d -6 , 2.166847 _d -3 / |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
121 |
BULKF_FORMULA_LANL |
DATA p0 / 1013. _d 0 / |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
124 |
BULKF_FORMULA_LANL |
ht = 2. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
126 |
BULKF_FORMULA_LANL |
hu = 10. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
128 |
BULKF_FORMULA_LANL |
zice = 0.0005 _d 0 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
140 |
BULKF_FORMULA_LANL |
if (us.eq.0. _d 0) then |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
145 |
BULKF_FORMULA_LANL |
t0 = Ta*(1. _d 0 + humid_fac*Qa) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
168 |
BULKF_FORMULA_LANL |
& qstar/(1. _d 0/humid_fac+Qa)) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
169 |
BULKF_FORMULA_LANL |
huol = sign( min(abs(huol),10. _d 0), huol) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
170 |
BULKF_FORMULA_LANL |
stable = 5. _d -1 + sign(5. _d -1 , huol) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
171 |
BULKF_FORMULA_LANL |
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
173 |
BULKF_FORMULA_LANL |
psimh = -5. _d 0*huol*stable + (1. _d 0-stable)* |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
174 |
BULKF_FORMULA_LANL |
& (2. _d 0*log(5. _d -1*(1. _d 0+x)) + |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
175 |
BULKF_FORMULA_LANL |
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) - |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
176 |
BULKF_FORMULA_LANL |
& 2. _d 0*atan(x) + pi*.5 _d 0) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
177 |
BULKF_FORMULA_LANL |
psixh = -5. _d 0*huol*stable + (1. _d 0-stable)* |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
178 |
BULKF_FORMULA_LANL |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
181 |
BULKF_FORMULA_LANL |
rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
182 |
BULKF_FORMULA_LANL |
rh = rhn/(1. _d 0 + rhn*(aln-psixh)/xkar) |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
207 |
BULKF_FORMULA_LANL |
dflwupdT=4. _d 0*ocean_emissivity*stefan*tsf**3 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
210 |
BULKF_FORMULA_LANL |
dflwupdT=4. _d 0*snow_emissivity*stefan*tsf**3 |
|
./pkg/bulk_force/bulkf_formula_lanl.F |
213 |
BULKF_FORMULA_LANL |
dflwupdT=4. _d 0*ice_emissivity*stefan*tsf**3 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
129 |
BULKF_FORMULA_LAY |
& / 0.5 _d 0 , 1. _d 0 , 2. _d 0 / |
|
./pkg/bulk_force/bulkf_formula_lay.F |
134 |
BULKF_FORMULA_LAY |
& / 640.38 _d 3 , 5107.0 _d -0 / |
|
./pkg/bulk_force/bulkf_formula_lay.F |
136 |
BULKF_FORMULA_LAY |
& / 11637.80 _d 3 , 5897.8 _d -0 / |
|
./pkg/bulk_force/bulkf_formula_lay.F |
148 |
BULKF_FORMULA_LAY |
IF (ws.EQ.0. _d 0) THEN |
|
./pkg/bulk_force/bulkf_formula_lay.F |
192 |
BULKF_FORMULA_LAY |
huol = SIGN( MIN(abs(huol),10. _d 0), huol) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
194 |
BULKF_FORMULA_LAY |
xsq = SQRT( ABS(one - huol*16. _d 0) ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
196 |
BULKF_FORMULA_LAY |
psimh = -5. _d 0*huol*stable |
|
./pkg/bulk_force/bulkf_formula_lay.F |
201 |
BULKF_FORMULA_LAY |
xsq = SQRT( ABS(one - htol*16. _d 0) ) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
202 |
BULKF_FORMULA_LAY |
psixh = -5. _d 0*htol*stable |
|
./pkg/bulk_force/bulkf_formula_lay.F |
216 |
BULKF_FORMULA_LAY |
rd = rdn/(1. _d 0 + rdn*(zwln-psimh)/xkar) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
217 |
BULKF_FORMULA_LAY |
rh = rhn/(1. _d 0 + rhn*(ztln-psixh)/xkar) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
218 |
BULKF_FORMULA_LAY |
re = ren/(1. _d 0 + ren*(ztln-psixh)/xkar) |
|
./pkg/bulk_force/bulkf_formula_lay.F |
247 |
BULKF_FORMULA_LAY |
dflwupdT= ocean_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
250 |
BULKF_FORMULA_LAY |
dflwupdT = snow_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_formula_lay.F |
253 |
BULKF_FORMULA_LAY |
dflwupdT = ice_emissivity*stefan*Ts2*Tsf*4. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
46 |
BULKF_INIT_VARIA |
Tair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
47 |
BULKF_INIT_VARIA |
Qair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
48 |
BULKF_INIT_VARIA |
Solar (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
49 |
BULKF_INIT_VARIA |
flwdwn(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
50 |
BULKF_INIT_VARIA |
cloud (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
51 |
BULKF_INIT_VARIA |
wspeed(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
52 |
BULKF_INIT_VARIA |
uwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
53 |
BULKF_INIT_VARIA |
vwind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
54 |
BULKF_INIT_VARIA |
runoff(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
56 |
BULKF_INIT_VARIA |
thAir (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
58 |
BULKF_INIT_VARIA |
qnetch(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
59 |
BULKF_INIT_VARIA |
empch (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
63 |
BULKF_INIT_VARIA |
BULK_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
66 |
BULKF_INIT_VARIA |
BULK_Qnet_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
67 |
BULKF_INIT_VARIA |
BULK_EmPmR_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
68 |
BULKF_INIT_VARIA |
BULK_fu_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
69 |
BULKF_INIT_VARIA |
BULK_fv_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
70 |
BULKF_INIT_VARIA |
BULK_latent_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
71 |
BULKF_INIT_VARIA |
BULK_sensible_Ave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
72 |
BULKF_INIT_VARIA |
BULK_evap_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
73 |
BULKF_INIT_VARIA |
BULK_flwup_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
74 |
BULKF_INIT_VARIA |
BULK_flwupnet_Ave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
75 |
BULKF_INIT_VARIA |
BULK_solar_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
76 |
BULKF_INIT_VARIA |
BULK_ssq_Ave (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
83 |
BULKF_INIT_VARIA |
CONS_Qnet (i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
84 |
BULKF_INIT_VARIA |
CONS_EmPmR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bulk_force/bulkf_init_varia.F |
92 |
BULKF_INIT_VARIA |
constim = 0. _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
100 |
BULKF_READPARMS |
zref = 10.0 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
103 |
BULKF_READPARMS |
cDrag_1 = 2.70 _d -3 |
|
./pkg/bulk_force/bulkf_readparms.F |
104 |
BULKF_READPARMS |
cDrag_2 = 0.142 _d -3 |
|
./pkg/bulk_force/bulkf_readparms.F |
105 |
BULKF_READPARMS |
cDrag_3 = 0.0764 _d -3 |
|
./pkg/bulk_force/bulkf_readparms.F |
106 |
BULKF_READPARMS |
cStantonS = 18.0 _d -3 |
|
./pkg/bulk_force/bulkf_readparms.F |
107 |
BULKF_READPARMS |
cStantonU = 32.7 _d -3 |
|
./pkg/bulk_force/bulkf_readparms.F |
108 |
BULKF_READPARMS |
cDalton = 34.6 _d -3 |
|
./pkg/bulk_force/bulkf_readparms.F |
109 |
BULKF_READPARMS |
umin = 1.0 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
110 |
BULKF_READPARMS |
humid_fac = 0.606 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
111 |
BULKF_READPARMS |
saltQsFac = 0.980 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
112 |
BULKF_READPARMS |
gamma_blk = 0.010 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
113 |
BULKF_READPARMS |
atm_emissivity = .90 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
114 |
BULKF_READPARMS |
ocean_emissivity= .985 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
115 |
BULKF_READPARMS |
snow_emissivity = .98 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
116 |
BULKF_READPARMS |
ice_emissivity = .98 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
117 |
BULKF_READPARMS |
ocean_albedo = .10 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
119 |
BULKF_READPARMS |
FWIND0 = 0.6 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
120 |
BULKF_READPARMS |
CHS = 0.8 _d -3 |
|
./pkg/bulk_force/bulkf_readparms.F |
121 |
BULKF_READPARMS |
VGUST = 5. _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
122 |
BULKF_READPARMS |
DTHETA = 3. _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
123 |
BULKF_READPARMS |
dTstab = 1. _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
124 |
BULKF_READPARMS |
FSTAB = 0.67 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
88 |
BULKF_READPARMS |
rhoA = 1.3 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
92 |
BULKF_READPARMS |
Lvap = 2.5 _d 6 |
|
./pkg/bulk_force/bulkf_readparms.F |
93 |
BULKF_READPARMS |
Lfresh = 3.34 _d 5 |
|
./pkg/bulk_force/bulkf_readparms.F |
98 |
BULKF_READPARMS |
xkar = 0.4 _d 0 |
|
./pkg/bulk_force/bulkf_readparms.F |
99 |
BULKF_READPARMS |
stefan = 5.67 _d -8 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
50 |
BULKF_SH2RH_AIM |
E0= 6.108 _d -3 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
51 |
BULKF_SH2RH_AIM |
C1= 17.269 _d 0 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
52 |
BULKF_SH2RH_AIM |
C2= 21.875 _d 0 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
53 |
BULKF_SH2RH_AIM |
T0=273.16 _d 0 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
54 |
BULKF_SH2RH_AIM |
T1= 35.86 _d 0 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
55 |
BULKF_SH2RH_AIM |
T2= 7.66 _d 0 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
56 |
BULKF_SH2RH_AIM |
QS1= 622. _d 0 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
57 |
BULKF_SH2RH_AIM |
QS2= .378 _d 0 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
69 |
BULKF_SH2RH_AIM |
recT = 1. _d 0 / (TA(J)-T1) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
74 |
BULKF_SH2RH_AIM |
recT = 1. _d 0 / (TA(J)-T2) |
|
./pkg/cd_code/cd_code_ini_vars.F |
37 |
CD_CODE_INI_VARS |
uNM1(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
38 |
CD_CODE_INI_VARS |
vNM1(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
39 |
CD_CODE_INI_VARS |
uVeld(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
40 |
CD_CODE_INI_VARS |
vVeld(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
48 |
CD_CODE_INI_VARS |
etaNm1(I,J,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
133 |
CD_CODE_SCHEME |
& +(af(i-1,j)+af(i,j+1)) )*0.25 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
136 |
CD_CODE_SCHEME |
& +_fCori(i-1,j,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
154 |
CD_CODE_SCHEME |
& +(1. _d 0 - rCD) |
|
./pkg/cd_code/cd_code_scheme.F |
158 |
CD_CODE_SCHEME |
& )*0.25 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
162 |
CD_CODE_SCHEME |
& )*0.25 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
171 |
CD_CODE_SCHEME |
& +_fCori(i-1,j,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
195 |
CD_CODE_SCHEME |
& +(af(i+1,j)+af(i,j-1)) )*0.25 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
198 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
216 |
CD_CODE_SCHEME |
& +(1. _d 0 - rCD) |
|
./pkg/cd_code/cd_code_scheme.F |
220 |
CD_CODE_SCHEME |
& )*0.25 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
224 |
CD_CODE_SCHEME |
& )*0.25 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
233 |
CD_CODE_SCHEME |
& +_fCori(i,j-1,bi,bj) )*0.5 _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
73 |
CD_CODE_SCHEME |
ab15 = 1. _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
74 |
CD_CODE_SCHEME |
ab05 = -0. _d 0 |
|
./pkg/cd_code/cd_code_scheme.F |
76 |
CD_CODE_SCHEME |
ab15 = 1.5 _d 0 + epsAB_CD |
|
./pkg/cd_code/cd_code_scheme.F |
77 |
CD_CODE_SCHEME |
ab05 = -0.5 _d 0 - epsAB_CD |
|
./pkg/cfc/cfc11_forcing.F |
141 |
CFC11_FORCING |
recip_dLat = 1. _d 0 / ( atmCFC_yNorthBnd - atmCFC_ySouthBnd ) |
|
./pkg/cfc/cfc11_surfforcing.F |
101 |
CFC11_SURFFORCING |
fluxCFC11(i,j) = 0. _d 0 |
|
./pkg/cfc/cfc11_surfforcing.F |
79 |
CFC11_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc11_surfforcing.F |
88 |
CFC11_SURFFORCING |
SolCFC11(i,j) = 1000. _d 0 * SolCFC11(i,j) |
|
./pkg/cfc/cfc11_surfforcing.F |
90 |
CFC11_SURFFORCING |
SolCFC11(i,j) = 1. _d -12 * SolCFC11(i,j) |
|
./pkg/cfc/cfc11_surfforcing.F |
94 |
CFC11_SURFFORCING |
Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj)) |
|
./pkg/cfc/cfc11_surfforcing.F |
96 |
CFC11_SURFFORCING |
& / SQRT(SchmidtNoCFC11(i,j)/660. _d 0) |
|
./pkg/cfc/cfc12_forcing.F |
142 |
CFC12_FORCING |
recip_dLat = 1. _d 0 / ( atmCFC_yNorthBnd - atmCFC_ySouthBnd ) |
|
./pkg/cfc/cfc12_surfforcing.F |
101 |
CFC12_SURFFORCING |
fluxCFC12(i,j) = 0. _d 0 |
|
./pkg/cfc/cfc12_surfforcing.F |
79 |
CFC12_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
|
./pkg/cfc/cfc12_surfforcing.F |
88 |
CFC12_SURFFORCING |
SolCFC12(i,j) = 1000. _d 0 * SolCFC12(i,j) |
|
./pkg/cfc/cfc12_surfforcing.F |
90 |
CFC12_SURFFORCING |
SolCFC12(i,j) = 1. _d -12 * SolCFC12(i,j) |
|
./pkg/cfc/cfc12_surfforcing.F |
94 |
CFC12_SURFFORCING |
Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj)) |
|
./pkg/cfc/cfc12_surfforcing.F |
96 |
CFC12_SURFFORCING |
& / SQRT(SchmidtNoCFC12(i,j)/660. _d 0) |
|
./pkg/cfc/cfc_fields_load.F |
192 |
CFC_FIELDS_LOAD |
locWind(i,j) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
201 |
CFC_FIELDS_LOAD |
pisVel(i,j,bi,bj)=(0.31 _d 0*locWind(i,j)**2)/3.6 _d 5 |
|
./pkg/cfc/cfc_fields_load.F |
248 |
CFC_FIELDS_LOAD |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cfc/cfc_fields_load.F |
58 |
CFC_FIELDS_LOAD |
IF ( CFC_forcingCycle .GT. 0. _d 0 ) THEN |
|
./pkg/cfc/cfc_param.F |
33 |
CFC_PARAM |
sca_11_1 = 3501.8 _d 0 |
|
./pkg/cfc/cfc_param.F |
34 |
CFC_PARAM |
sca_11_2 = -210.31 _d 0 |
|
./pkg/cfc/cfc_param.F |
35 |
CFC_PARAM |
sca_11_3 = 6.1851 _d 0 |
|
./pkg/cfc/cfc_param.F |
36 |
CFC_PARAM |
sca_11_4 = -0.075139 _d 0 |
|
./pkg/cfc/cfc_param.F |
38 |
CFC_PARAM |
A1_11= -229.9261 _d 0 |
|
./pkg/cfc/cfc_param.F |
39 |
CFC_PARAM |
A2_11= 319.6552 _d 0 |
|
./pkg/cfc/cfc_param.F |
40 |
CFC_PARAM |
A3_11= 119.4471 _d 0 |
|
./pkg/cfc/cfc_param.F |
41 |
CFC_PARAM |
A4_11= -1.39165 _d 0 |
|
./pkg/cfc/cfc_param.F |
42 |
CFC_PARAM |
B1_11= -0.142382 _d 0 |
|
./pkg/cfc/cfc_param.F |
43 |
CFC_PARAM |
B2_11= 0.091459 _d 0 |
|
./pkg/cfc/cfc_param.F |
44 |
CFC_PARAM |
B3_11= -0.0157274 _d 0 |
|
./pkg/cfc/cfc_param.F |
48 |
CFC_PARAM |
sca_12_1 = 3845.4 _d 0 |
|
./pkg/cfc/cfc_param.F |
49 |
CFC_PARAM |
sca_12_2 = -228.95 _d 0 |
|
./pkg/cfc/cfc_param.F |
50 |
CFC_PARAM |
sca_12_3 = 6.1908 _d 0 |
|
./pkg/cfc/cfc_param.F |
51 |
CFC_PARAM |
sca_12_4 = -0.067430 _d 0 |
|
./pkg/cfc/cfc_param.F |
53 |
CFC_PARAM |
A1_12= -218.0971 _d 0 |
|
./pkg/cfc/cfc_param.F |
54 |
CFC_PARAM |
A2_12= 298.9702 _d 0 |
|
./pkg/cfc/cfc_param.F |
55 |
CFC_PARAM |
A3_12= 113.8049 _d 0 |
|
./pkg/cfc/cfc_param.F |
56 |
CFC_PARAM |
A4_12= -1.39165 _d 0 |
|
./pkg/cfc/cfc_param.F |
57 |
CFC_PARAM |
B1_12= -0.143566 _d 0 |
|
./pkg/cfc/cfc_param.F |
58 |
CFC_PARAM |
B2_12= 0.091015 _d 0 |
|
./pkg/cfc/cfc_param.F |
59 |
CFC_PARAM |
B3_12= -0.0153924 _d 0 |
|
./eesupp/src/print.F |
1238 |
PRINT_MAPRL |
small = 1. _d -15 |
|
./eesupp/src/print.F |
1239 |
PRINT_MAPRL |
fMin = 1. _d 32 |
|
./eesupp/src/print.F |
1240 |
PRINT_MAPRL |
fMax = -1. _d 32 |
|
./eesupp/src/print.F |
805 |
PRINT_MAPRS |
small = 1. _d -15 |
|
./eesupp/src/print.F |
806 |
PRINT_MAPRS |
fMin = 1. _d 32 |
|
./eesupp/src/print.F |
807 |
PRINT_MAPRS |
fMax = -1. _d 32 |
|
./pkg/cfc/cfc_readparms.F |
103 |
CFC_READPARMS |
CFC_monFreq = 0. _d 0 |
|
./pkg/cfc/cfc_readparms.F |
58 |
CFC_READPARMS |
atmCFC_recSepTime = 360. _d 0 * 86400. _d 0 |
|
./pkg/cfc/cfc_readparms.F |
60 |
CFC_READPARMS |
atmCFC_yNorthBnd = 10. _d 0 |
|
./pkg/cfc/cfc_readparms.F |
61 |
CFC_READPARMS |
atmCFC_ySouthBnd = -10. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
121 |
CHEAPAML |
Qnet(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
122 |
CHEAPAML |
EmPmR(i,j,bi,bj)= 0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
144 |
CHEAPAML |
gTair(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
182 |
CHEAPAML |
gqair(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
221 |
CHEAPAML |
gCheaptracer(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml.F |
322 |
CHEAPAML |
& )*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
336 |
CHEAPAML |
& )*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
375 |
CHEAPAML |
opFrac = 1. _d 0 - icFrac |
|
./pkg/cheapaml/cheapaml.F |
420 |
CHEAPAML |
& *0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
422 |
CHEAPAML |
xalwd = stefan*(Tair(i,j,bi,bj)+celsius2K)**4*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
437 |
CHEAPAML |
xlwnet = 0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**4 |
|
./pkg/cheapaml/cheapaml.F |
438 |
CHEAPAML |
& *(0.39 _d 0 - 0.05 _d 0*SQRT(ABS(qair(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml.F |
439 |
CHEAPAML |
& * 1607.7 _d 0)) |
|
./pkg/cheapaml/cheapaml.F |
440 |
CHEAPAML |
& *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0) |
|
./pkg/cheapaml/cheapaml.F |
442 |
CHEAPAML |
& + 4.0*0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**3 |
|
./pkg/cheapaml/cheapaml.F |
486 |
CHEAPAML |
& q.GT.ssqt(i,j)*0.7 _d 0 ) THEN |
|
./pkg/cheapaml/cheapaml.F |
488 |
CHEAPAML |
& + ( (q-ssqt(i,j)*0.7 _d 0)*dm/cheap_pr2 ) |
|
./pkg/cheapaml/cheapaml.F |
489 |
CHEAPAML |
& *(wWind(i,j,bi,bj)/0.75 _d -5)**2 |
|
./pkg/cheapaml/cheapaml.F |
493 |
CHEAPAML |
IF (q.GT.0.0214 _d 0 .AND. q.GT.ssqt(i,j)*0.9 _d 0) THEN |
|
./pkg/cheapaml/cheapaml.F |
494 |
CHEAPAML |
precip = precip + ((q-ssqt(i,j)*0.9 _d 0)*dm/cheap_pr1) |
|
./pkg/cheapaml/cheapaml.F |
541 |
CHEAPAML |
IF (qair(i,j,bi,bj).LT.0.0) qair(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
634 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
637 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
645 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
654 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
666 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
669 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
677 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
686 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
701 |
CHEAPAML |
fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
707 |
CHEAPAML |
fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
97 |
CHEAPAML |
deltaTm=1. _d 0/deltaT |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
117 |
CHEAPAML_COARE3_FLUX |
zo = 0.0001 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
118 |
CHEAPAML_COARE3_FLUX |
Wg = 0.5 _d 0 !Gustiness factor initial guess |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
131 |
CHEAPAML_COARE3_FLUX |
u10 = Du*LOG(10. _d 0/zo)/LOG(zu/zo) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
132 |
CHEAPAML_COARE3_FLUX |
usr = 0.035 _d 0*u10 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
133 |
CHEAPAML_COARE3_FLUX |
zo10= 0.011 _d 0*usr*usr/gravity+0.11 _d 0*visa/usr |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
134 |
CHEAPAML_COARE3_FLUX |
Cd10= (xkar/LOG(10. _d 0/zo10))**2 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
135 |
CHEAPAML_COARE3_FLUX |
Ch10= 0.00115 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
137 |
CHEAPAML_COARE3_FLUX |
zot10=10. _d 0/EXP(xkar/Ct10) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
141 |
CHEAPAML_COARE3_FLUX |
zi=600. _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
147 |
CHEAPAML_COARE3_FLUX |
Ribcu=-zu/(zi*0.004 _d 0*xBeta**3) ! Saturation or plateau Rib |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
148 |
CHEAPAML_COARE3_FLUX |
Ribu=-gravity*zu*(Dt+0.61 _d 0*tta*Dq)/(tta*Du**2) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
149 |
CHEAPAML_COARE3_FLUX |
IF (Ribu.LT.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
150 |
CHEAPAML_COARE3_FLUX |
zetu=CC*Ribu/(1. _d 0+Ribu/Ribcu) ! Unstable G and F |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
152 |
CHEAPAML_COARE3_FLUX |
zetu=CC*Ribu*(1. _d 0 +27. _d 0/9. _d 0*Ribu/CC) ! Stable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
155 |
CHEAPAML_COARE3_FLUX |
IF (zetu.GT.50. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
168 |
CHEAPAML_COARE3_FLUX |
charn=0.011 _d 0 !then modify Charnock for high wind speeds Chris data |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
169 |
CHEAPAML_COARE3_FLUX |
IF (Du.GT.10. _d 0) charn=0.011 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
170 |
CHEAPAML_COARE3_FLUX |
& + (0.018 _d 0-0.011 _d 0)*(Du-10.)/(18.-10.) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
171 |
CHEAPAML_COARE3_FLUX |
IF (Du.GT.18. _d 0) charn=0.018 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
177 |
CHEAPAML_COARE3_FLUX |
zo=charn*usr*usr/gravity + 0.11 _d 0*visa/usr !after Smith 1988 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
179 |
CHEAPAML_COARE3_FLUX |
zo=(50./twoPI)*lwave*(usr/cwave)**4.5 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
180 |
CHEAPAML_COARE3_FLUX |
& + 0.11 _d 0*visa/usr !Oost et al. |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
182 |
CHEAPAML_COARE3_FLUX |
zo=1200. _d 0*wavesh(i,j,bi,bj)*(wavesh(i,j,bi,bj)/lwave)**4.5 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
183 |
CHEAPAML_COARE3_FLUX |
& + 0.11 _d 0*visa/usr !Taylor and Yelland |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
199 |
CHEAPAML_COARE3_FLUX |
& ( tsr*(1.+0.61 _d 0*q)+0.61 _d 0*tta*qsr ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
200 |
CHEAPAML_COARE3_FLUX |
& /( tta*usr*usr*(1. _d 0+0.61 _d 0*q) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
206 |
CHEAPAML_COARE3_FLUX |
zoq = MIN( 1.15 _d -4, 5.5 _d -5/rr**0.6 _d 0 ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
209 |
CHEAPAML_COARE3_FLUX |
zL=xkar*gravity*zu*( tsr*(1.+0.61 _d 0*q)+0.61 _d 0*tta*qsr ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
210 |
CHEAPAML_COARE3_FLUX |
& /( tta*usr*usr*(1. _d 0+0.61 _d 0*q) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
217 |
CHEAPAML_COARE3_FLUX |
Bf=-gravity/tta*usr*(tsr+0.61 _d 0*tta*qsr) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
218 |
CHEAPAML_COARE3_FLUX |
IF (Bf.GT.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
219 |
CHEAPAML_COARE3_FLUX |
Wg=xBeta*(Bf*zi)**.333 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
221 |
CHEAPAML_COARE3_FLUX |
Wg=0.2 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
234 |
CHEAPAML_COARE3_FLUX |
q100=qs+qsr*(LOG(100. _d 0/zoq)-psit(100. _d 0/L)) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
246 |
CHEAPAML_COARE3_FLUX |
& * qs*p0/(p0 -0.378 _d 0*es) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
248 |
CHEAPAML_COARE3_FLUX |
& * 17.502 _d 0 * 240.97 _d 0 / (240.97 _d 0+tsw)**2 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
252 |
CHEAPAML_COARE3_FLUX |
dLWdTs = 4. _d 0 * 0.96 _d 0 *stefan*tsr*tsr*tsr |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
255 |
CHEAPAML_COARE3_FLUX |
dLWdTs = 4. _d 0 * 0.96 _d 0 *stefan*tsr*tsr*tsr |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
258 |
CHEAPAML_COARE3_FLUX |
dLWdTs = 4. _d 0 * 0.96 _d 0 *stefan*tsr*tsr*tsr |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
295 |
CHEAPAML_COARE3_FLUX |
y = (1. - 10.15 _d 0*zL)**.3333 _d 0 !Convective |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
297 |
CHEAPAML_COARE3_FLUX |
& - SQRT(3. _d 0)*ATAN( (1.+2.*y)/SQRT(3. _d 0) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
298 |
CHEAPAML_COARE3_FLUX |
& + 4.*ATAN(oneRL)/SQRT(3. _d 0) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
302 |
CHEAPAML_COARE3_FLUX |
c = MIN( 50. _d 0, 0.35 _d 0*zL ) !Stable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
304 |
CHEAPAML_COARE3_FLUX |
psiu = -( (1.+zL) + 0.6667 _d 0*(zL-14.28 _d 0)/EXP(c) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
305 |
CHEAPAML_COARE3_FLUX |
& + 8.525 _d 0 ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
333 |
CHEAPAML_COARE3_FLUX |
y = (1. - 34.15 _d 0*zL)**.3333 _d 0 !Convective |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
335 |
CHEAPAML_COARE3_FLUX |
& - SQRT(3. _d 0)*ATAN( (1.+2.*y)/SQRT(3. _d 0) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
336 |
CHEAPAML_COARE3_FLUX |
& + 4.*ATAN(oneRL)/SQRT(3. _d 0) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
340 |
CHEAPAML_COARE3_FLUX |
c = MIN( 50. _d 0, 0.35 _d 0*zL ) !Stable |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
342 |
CHEAPAML_COARE3_FLUX |
& + 0.6667 _d 0*(zL-14.28 _d 0)/EXP(c) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
343 |
CHEAPAML_COARE3_FLUX |
& + 8.525 _d 0 ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
71 |
CHEAPAML_COARE3_FLUX |
xBeta = 1.2 _d 0 !Given as 1.25 in Fairall et al.(1996) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
72 |
CHEAPAML_COARE3_FLUX |
twoPI = 2. _d 0*PI |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
73 |
CHEAPAML_COARE3_FLUX |
visa = 1.326 _d -5 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
75 |
CHEAPAML_COARE3_FLUX |
QaR = 0.8 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
83 |
CHEAPAML_COARE3_FLUX |
Rnl = 0.96 _d 0*(stefan*(tsw+celsius2K)**4) !Net longwave (up = +). |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
86 |
CHEAPAML_COARE3_FLUX |
es = (1.0007 _d 0 + 3.46 _d -6*p0)*6.1121 _d 0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
87 |
CHEAPAML_COARE3_FLUX |
& *EXP( 17.502 _d 0*tsw/(240.97 _d 0+tsw) ) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
88 |
CHEAPAML_COARE3_FLUX |
es = es*0.98 _d 0 !reduced for salinity Kraus 1972 p. 46 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
90 |
CHEAPAML_COARE3_FLUX |
qs = 0.62197 _d 0*es/(p0 -0.378 _d 0*es) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
108 |
CHEAPAML_FIELDS_LOAD |
IF ( Ny.GT.1 ) recipNym1 = 1. _d 0 / recipNym1 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
189 |
CHEAPAML_FIELDS_LOAD |
Solar(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
207 |
CHEAPAML_FIELDS_LOAD |
TR(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
225 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
243 |
CHEAPAML_FIELDS_LOAD |
uWind(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
264 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
332 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
435 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj) = 0.729 _d 0 * u |
|
./pkg/cheapaml/cheapaml_fields_load.F |
436 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj) = 0.018 _d 0 * u*u*(1. + .015 _d 0 *u) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
456 |
CHEAPAML_FIELDS_LOAD |
local = 225. _d 0 - (jG-1)*recipNym1*37.5 _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
473 |
CHEAPAML_FIELDS_LOAD |
local = (2. _d 0*local/stefan)**(0.25 _d 0) - celsius2K |
|
./pkg/cheapaml/cheapaml_fields_load.F |
493 |
CHEAPAML_FIELDS_LOAD |
qr(i,j,bi,bj) = 0.8 _d 0*ssqa |
|
./pkg/cheapaml/cheapaml_fields_load.F |
512 |
CHEAPAML_FIELDS_LOAD |
local = -5. _d 0*COS( 2. _d 0*PI*(jG-1)*recipNym1 ) |
|
./pkg/cheapaml/cheapaml_fields_load.F |
528 |
CHEAPAML_FIELDS_LOAD |
vWind(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
559 |
CHEAPAML_FIELDS_LOAD |
CheaptracerR(i,j,bi,bj)=290. _d 0 |
|
./pkg/cheapaml/cheapaml_fields_load.F |
580 |
CHEAPAML_FIELDS_LOAD |
wavesp(i,j,bi,bj)=0.729 _d 0 * u |
|
./pkg/cheapaml/cheapaml_fields_load.F |
581 |
CHEAPAML_FIELDS_LOAD |
wavesh(i,j,bi,bj)=0.018 _d 0 * u*u*(1. + .015 _d 0 *u) |
|
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F |
56 |
CHEAPAML_GAD_C2_ADV_R |
& (Tracer(i,j)+Tracer(i,j))*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
60 |
CHEAPAML_GAD_DST3FL_ADV_R |
Rjp= 0. _d 0 |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
61 |
CHEAPAML_GAD_DST3FL_ADV_R |
Rj = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
62 |
CHEAPAML_GAD_DST3FL_ADV_R |
Rjm = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
71 |
CHEAPAML_GAD_DST3FL_ADV_R |
d0=(2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
72 |
CHEAPAML_GAD_DST3FL_ADV_R |
d1=(1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
79 |
CHEAPAML_GAD_DST3FL_ADV_R |
psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP), |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
80 |
CHEAPAML_GAD_DST3FL_ADV_R |
& thetaP*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
82 |
CHEAPAML_GAD_DST3FL_ADV_R |
psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM), |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
83 |
CHEAPAML_GAD_DST3FL_ADV_R |
& thetaM*(1. _d 0 -wCFL)/(wCFL+1. _d -20) )) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
101 |
CHEAPAML_INIT_FIXED |
IF (iG.LE.xmw) xmf = 1. _d 0 - (iG-1 )*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
102 |
CHEAPAML_INIT_FIXED |
IF (iG.GE.Nx-xmw+1) xmf = 1. _d 0 - (Nx-iG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
104 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
106 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (iG-1 )*recipMW *(Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
108 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Nx-iG)*recipMW *(Ny-jG)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
112 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
114 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (iG-1 )*recipMW*(jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
116 |
CHEAPAML_INIT_FIXED |
xmf = 1. _d 0 - (Nx-iG)*recipMW*(jG-1)*recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
131 |
CHEAPAML_INIT_FIXED |
IF( maskC(i,j,1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
134 |
CHEAPAML_INIT_FIXED |
ELSEIF( relaxMask(i,j,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
149 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj)=1. _d 0/relaxMask(i,j,bi,bj)/8.64 _d 4 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
151 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj)=0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
154 |
CHEAPAML_INIT_FIXED |
& /(1. _d 0+xgs(i,j,bi,bj)*deltaT) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
192 |
CHEAPAML_INIT_FIXED |
xmf = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
227 |
CHEAPAML_INIT_FIXED |
xgs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
65 |
CHEAPAML_INIT_FIXED |
relaxMask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
66 |
CHEAPAML_INIT_FIXED |
xgs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
67 |
CHEAPAML_INIT_FIXED |
xrelf (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
74 |
CHEAPAML_INIT_FIXED |
cheapaml_taurelax = cheap_tauRelax /86400. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
75 |
CHEAPAML_INIT_FIXED |
cheapaml_taurelaxocean = cheap_tauRelaxOce/86400. _d 0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
91 |
CHEAPAML_INIT_FIXED |
IF ( xmw.NE.1 ) recipMW = 1. _d 0 / recipMW |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
96 |
CHEAPAML_INIT_FIXED |
xmf = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
106 |
CHEAPAML_INIT_VARIA |
localt = 25. _d 0 - (jG-1)*recipNym1*10. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
107 |
CHEAPAML_INIT_VARIA |
localt = 20. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
108 |
CHEAPAML_INIT_VARIA |
& + 10. _d 0*EXP( -( (jG-30)**2+(iG-30)**2 )/100. _d 0 ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
135 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=0.8 _d 0*ssqa |
|
./pkg/cheapaml/cheapaml_init_varia.F |
159 |
CHEAPAML_INIT_VARIA |
Cheaptracer(i,j,bi,bj)=290.0 _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
53 |
CHEAPAML_INIT_VARIA |
IF ( Ny.GT.1 ) recipNym1 = 1. _d 0 / recipNym1 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
60 |
CHEAPAML_INIT_VARIA |
Tr (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
61 |
CHEAPAML_INIT_VARIA |
qr (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
62 |
CHEAPAML_INIT_VARIA |
Tair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
63 |
CHEAPAML_INIT_VARIA |
gTairm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
64 |
CHEAPAML_INIT_VARIA |
qair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
65 |
CHEAPAML_INIT_VARIA |
gqairm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
66 |
CHEAPAML_INIT_VARIA |
uWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
67 |
CHEAPAML_INIT_VARIA |
vWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
68 |
CHEAPAML_INIT_VARIA |
wWind (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
69 |
CHEAPAML_INIT_VARIA |
solar (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
70 |
CHEAPAML_INIT_VARIA |
ustress (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
71 |
CHEAPAML_INIT_VARIA |
vstress (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
72 |
CHEAPAML_INIT_VARIA |
wavesh (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
73 |
CHEAPAML_INIT_VARIA |
wavesp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
74 |
CHEAPAML_INIT_VARIA |
cheapPrecip (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
75 |
CHEAPAML_INIT_VARIA |
CheapHgrid (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
77 |
CHEAPAML_INIT_VARIA |
Cheapclouds (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
78 |
CHEAPAML_INIT_VARIA |
Cheapdlongwave(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
79 |
CHEAPAML_INIT_VARIA |
Cheaptracer (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
80 |
CHEAPAML_INIT_VARIA |
CheaptracerR (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
81 |
CHEAPAML_INIT_VARIA |
gCheaptracerm (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
100 |
CHEAPAML_LANL_FLUX |
if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
101 |
CHEAPAML_LANL_FLUX |
if (snowheight(i,j,bi,bj).gt.3. _d -1) then |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
115 |
CHEAPAML_LANL_FLUX |
usm=max(uss,1. _d 0) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
120 |
CHEAPAML_LANL_FLUX |
usm=0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
121 |
CHEAPAML_LANL_FLUX |
ustress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
122 |
CHEAPAML_LANL_FLUX |
vstress(i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
140 |
CHEAPAML_LANL_FLUX |
ssqt = 0.7 _d 0*ssq |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
152 |
CHEAPAML_LANL_FLUX |
t0 = ttas*(1. _d 0 + humid_fac*q) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
166 |
CHEAPAML_LANL_FLUX |
& qstar/(1. _d 0/humid_fac+q)) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
167 |
CHEAPAML_LANL_FLUX |
huol = sign( min(abs(huol),10. _d 0), huol) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
168 |
CHEAPAML_LANL_FLUX |
stable = 5. _d -1 + sign(5. _d -1 , huol) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
169 |
CHEAPAML_LANL_FLUX |
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
171 |
CHEAPAML_LANL_FLUX |
psimh = -5. _d 0*huol*stable + (1. _d 0-stable)* |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
172 |
CHEAPAML_LANL_FLUX |
& (2. _d 0*log(5. _d -1*(1. _d 0+x)) + |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
173 |
CHEAPAML_LANL_FLUX |
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) - |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
174 |
CHEAPAML_LANL_FLUX |
& 2. _d 0*atan(x) + pi*.5 _d 0) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
175 |
CHEAPAML_LANL_FLUX |
psixh = -5. _d 0*huol*stable + (1. _d 0-stable)* |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
176 |
CHEAPAML_LANL_FLUX |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
180 |
CHEAPAML_LANL_FLUX |
rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
181 |
CHEAPAML_LANL_FLUX |
rh = rhn/(1. _d 0 + rhn*(aln-psixh)/xkar) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
189 |
CHEAPAML_LANL_FLUX |
usm=max(uss,0.5 _d 0) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
208 |
CHEAPAML_LANL_FLUX |
& qstar/(1. _d 0/humid_fac+q)) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
209 |
CHEAPAML_LANL_FLUX |
huol = sign( min(abs(huol),10. _d 0), huol) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
210 |
CHEAPAML_LANL_FLUX |
stable = 5. _d -1 + sign(5. _d -1 , huol) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
211 |
CHEAPAML_LANL_FLUX |
z100ol = 100. _d 0 *xkar*gravity/ustar**2 *(tstar/t0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
212 |
CHEAPAML_LANL_FLUX |
& + qstar/(1. _d 0/humid_fac+q)) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
213 |
CHEAPAML_LANL_FLUX |
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*z100ol)),1. _d 0) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
215 |
CHEAPAML_LANL_FLUX |
psx100 = -5. _d 0*z100ol*stable + (1. _d 0-stable)* |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
216 |
CHEAPAML_LANL_FLUX |
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq))) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
217 |
CHEAPAML_LANL_FLUX |
q100=ssq+qstar*(dlog(100. _d 0/zice)-psx100) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
78 |
CHEAPAML_LANL_FLUX |
QaR=0.8 _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
81 |
CHEAPAML_LANL_FLUX |
deltaTm=1. _d 0/deltaT |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
87 |
CHEAPAML_LANL_FLUX |
zice=.0005 _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
91 |
CHEAPAML_LANL_FLUX |
cdalton = 0.0346000 _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
93 |
CHEAPAML_LANL_FLUX |
psim_fac=5. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
98 |
CHEAPAML_LANL_FLUX |
if (maskC(i,j,1,bi,bj).ne.0. _d 0) then |
|
./pkg/cheapaml/cheapaml_readparms.F |
101 |
CHEAPAML_READPARMS |
ssq0 = 3.797915 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
102 |
CHEAPAML_READPARMS |
ssq1 = 7.93252 _d -6 |
|
./pkg/cheapaml/cheapaml_readparms.F |
103 |
CHEAPAML_READPARMS |
ssq2 = 2.166847 _d -3 |
|
./pkg/cheapaml/cheapaml_readparms.F |
108 |
CHEAPAML_READPARMS |
cheapaml_h=1000. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
109 |
CHEAPAML_READPARMS |
cheapaml_kdiff=1. _d 4 |
|
./pkg/cheapaml/cheapaml_readparms.F |
110 |
CHEAPAML_READPARMS |
cheap_tauRelax = 8640. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
111 |
CHEAPAML_READPARMS |
cheap_tauRelaxOce = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
113 |
CHEAPAML_READPARMS |
rhoa = 1.3 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
114 |
CHEAPAML_READPARMS |
cpair = 1004. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
115 |
CHEAPAML_READPARMS |
stefan = 5.67 _d -8 |
|
./pkg/cheapaml/cheapaml_readparms.F |
116 |
CHEAPAML_READPARMS |
dsolms = 50. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
117 |
CHEAPAML_READPARMS |
dsolmn = 25. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
119 |
CHEAPAML_READPARMS |
zu=10. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
122 |
CHEAPAML_READPARMS |
xphaseinit = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
123 |
CHEAPAML_READPARMS |
cdrag_1=0.0027 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
124 |
CHEAPAML_READPARMS |
cdrag_2=0.000142 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
125 |
CHEAPAML_READPARMS |
cdrag_3=0.0000764 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
127 |
CHEAPAML_READPARMS |
gasR=287.04 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
129 |
CHEAPAML_READPARMS |
gamma_blk=0.0098 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
131 |
CHEAPAML_READPARMS |
humid_fac=0.606 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
133 |
CHEAPAML_READPARMS |
p0=1000. _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
135 |
CHEAPAML_READPARMS |
lath=2.5 _d 6 |
|
./pkg/cheapaml/cheapaml_readparms.F |
137 |
CHEAPAML_READPARMS |
xkar=0.4 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
143 |
CHEAPAML_READPARMS |
cheap_pr1 = 2*3600.0 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
144 |
CHEAPAML_READPARMS |
cheap_pr2 = 36*3600.0 _d 0 |
|
./pkg/cheapaml/cheapaml_readparms.F |
232 |
CHEAPAML_READPARMS |
xef=1. _d 0 /rhoa/cpair |
|
./pkg/cheapaml/cheapaml_readparms.F |
234 |
CHEAPAML_READPARMS |
hm=1. _d 0/cheapaml_h |
|
./pkg/cheapaml/cheapaml_seaice.F |
158 |
CHEAPAML_SEAICE |
& )*0.5 _d 0 |
|
./pkg/cheapaml/cheapaml_seaice.F |
174 |
CHEAPAML_SEAICE |
IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
177 |
CHEAPAML_SEAICE |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |
|
./pkg/cheapaml/cheapaml_seaice.F |
190 |
CHEAPAML_SEAICE |
IF ( snowHeight(i,j,bi,bj).GT.3. _d -1 ) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
255 |
CHEAPAML_SEAICE |
opFrac = 1. _d 0 - icFrac |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
112 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
128 |
GAD_2D_CALC_RHS |
& )*2. _d 0 *zu |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
129 |
GAD_2D_CALC_RHS |
wvel(i,j,bi,bj) = localW(i,j)/2. _d 0 /zu |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
136 |
GAD_2D_CALC_RHS |
fZon(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
137 |
GAD_2D_CALC_RHS |
af(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
147 |
GAD_2D_CALC_RHS |
IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
153 |
GAD_2D_CALC_RHS |
IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
169 |
GAD_2D_CALC_RHS |
maskLocW(i,j)=1. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
194 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
211 |
GAD_2D_CALC_RHS |
IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
217 |
GAD_2D_CALC_RHS |
IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
230 |
GAD_2D_CALC_RHS |
fMer(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
231 |
GAD_2D_CALC_RHS |
af(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
232 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
244 |
GAD_2D_CALC_RHS |
IF (vVel(i,j,bi,bj).LT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
250 |
GAD_2D_CALC_RHS |
IF (vVel(i,j+1,bi,bj).GT.0. _d 0) THEN |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
266 |
GAD_2D_CALC_RHS |
maskLocS(i,j)= 1. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
291 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
305 |
GAD_2D_CALC_RHS |
fVer(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
306 |
GAD_2D_CALC_RHS |
af(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
345 |
GAD_2D_CALC_RHS |
& +1. _d 0/2. _d 0/zu*fVer(i,j) |
|
./pkg/cheapaml/gad_c2_2d_adv_x.F |
52 |
GAD_C2_2D_ADV_X |
& uVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0 |
|
./pkg/cheapaml/gad_c2_2d_adv_y.F |
54 |
GAD_C2_2D_ADV_Y |
& vVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0 |
|
./pkg/cost/cost_atlantic_heat.F |
42 |
COST_ATLANTIC_HEAT |
parameter( petawatt = 1. _d +15 ) |
|
./pkg/cost/cost_dependent_init.F |
52 |
COST_DEPENDENT_INIT |
fc = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
61 |
COST_DEPENDENT_INIT |
adfc = 1. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
69 |
COST_DEPENDENT_INIT |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
70 |
COST_DEPENDENT_INIT |
adobjf_vector(i,bi,bj) = 1. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
77 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_dependent_init.F |
79 |
COST_DEPENDENT_INIT |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
113 |
COST_INIT_VARIA |
fc = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
114 |
COST_INIT_VARIA |
glofc = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
56 |
COST_INIT_VARIA |
tile_fc(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
58 |
COST_INIT_VARIA |
objf_atl(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
60 |
COST_INIT_VARIA |
objf_test(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
61 |
COST_INIT_VARIA |
objf_tracer(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
63 |
COST_INIT_VARIA |
objf_transport(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
66 |
COST_INIT_VARIA |
objf_depth(bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
70 |
COST_INIT_VARIA |
objf_vector(i,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
78 |
COST_INIT_VARIA |
cMeanTheta(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
79 |
COST_INIT_VARIA |
cMeanUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
80 |
COST_INIT_VARIA |
cMeanVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
81 |
COST_INIT_VARIA |
cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
82 |
COST_INIT_VARIA |
cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
92 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/cost/cost_init_varia.F |
94 |
COST_INIT_VARIA |
objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
58 |
COST_READPARMS |
mult_atl = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
59 |
COST_READPARMS |
mult_test = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
60 |
COST_READPARMS |
mult_tracer = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
61 |
COST_READPARMS |
multTheta = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
62 |
COST_READPARMS |
multSalt = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
63 |
COST_READPARMS |
multUvel = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
64 |
COST_READPARMS |
multVvel = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
65 |
COST_READPARMS |
multEtan = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
67 |
COST_READPARMS |
mult_transport = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
70 |
COST_READPARMS |
mult_depth = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
73 |
COST_READPARMS |
mult_temp_tut = 0. _d 0 |
|
./pkg/cost/cost_readparms.F |
74 |
COST_READPARMS |
mult_hflux_tut = 0. _d 0 |
|
./pkg/cost/cost_test.F |
54 |
COST_TEST |
thetaRef = 24.0 _d 0 |
|
./pkg/cost/cost_tracer.F |
49 |
COST_TRACER |
locfc = 0. _d 0 |
|
./pkg/cost/cost_vector.F |
67 |
COST_VECTOR |
sum = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
130 |
CTRL_COST_GEN2D |
lengthscale = 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
148 |
CTRL_COST_GEN2D |
num_gen_anom(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
149 |
CTRL_COST_GEN2D |
objf_gen_anom(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
153 |
CTRL_COST_GEN2D |
xx_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
156 |
CTRL_COST_GEN2D |
num_gen_mean(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
157 |
CTRL_COST_GEN2D |
num_gen_smoo(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
158 |
CTRL_COST_GEN2D |
objf_gen_mean(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
159 |
CTRL_COST_GEN2D |
objf_gen_smoo(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
182 |
CTRL_COST_GEN2D |
fctile = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
185 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
193 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
195 |
CTRL_COST_GEN2D |
& + 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
243 |
CTRL_COST_GEN2D |
fctilem = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
249 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
251 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0) |
|
./pkg/ctrl/ctrl_cost_gen.F |
252 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
254 |
CTRL_COST_GEN2D |
if ( cosphi(i,j,bi,bj) .ne. 0. _d 0) |
|
./pkg/ctrl/ctrl_cost_gen.F |
255 |
CTRL_COST_GEN2D |
& num_gen_mean(bi,bj) = num_gen_mean(bi,bj) + 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
258 |
CTRL_COST_GEN2D |
num_gen_mean(bi,bj) = num_gen_mean(bi,bj) + 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
286 |
CTRL_COST_GEN2D |
fctile = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
289 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
297 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
298 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
310 |
CTRL_COST_GEN2D |
& *cosphi(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
312 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
315 |
CTRL_COST_GEN2D |
& + 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
352 |
CTRL_COST_GEN2D |
fctile = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
355 |
CTRL_COST_GEN2D |
if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
366 |
CTRL_COST_GEN2D |
if ( ABS(R_low(i,j,bi,bj)) .LT. 100. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
367 |
CTRL_COST_GEN2D |
& tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
374 |
CTRL_COST_GEN2D |
* *0.0161 _d 0*lengthscale/4.0 _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
378 |
CTRL_COST_GEN2D |
& .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
380 |
CTRL_COST_GEN2D |
if ( xx_gen_weight(i,j,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
383 |
CTRL_COST_GEN2D |
& + 1. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
502 |
CTRL_COST_GEN3D |
num_gen(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
503 |
CTRL_COST_GEN3D |
objf_gen(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
521 |
CTRL_COST_GEN3D |
num_gen(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
522 |
CTRL_COST_GEN3D |
objf_gen(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_cost_gen.F |
527 |
CTRL_COST_GEN3D |
if (xx_gen_mask(i,j,k,bi,bj) .ne. 0. _d 0) then |
|
./pkg/ctrl/ctrl_cost_gen.F |
536 |
CTRL_COST_GEN3D |
if ( xx_gen_weight(i,j,k,bi,bj) .ne. 0. _d 0 ) |
|
./pkg/ctrl/ctrl_cost_gen.F |
537 |
CTRL_COST_GEN3D |
& num_gen(bi,bj) = num_gen(bi,bj) + 1. _d 0 |
|
./pkg/ctrl/ctrl_depth_ini.F |
107 |
CTRL_DEPTH_INI |
xx_r_low(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_depth_ini.F |
79 |
CTRL_DEPTH_INI |
fac = 1. _d 0 |
|
./pkg/ctrl/ctrl_depth_ini.F |
81 |
CTRL_DEPTH_INI |
fac = 0. _d 0 |
|
./pkg/ctrl/ctrl_depth_ini.F |
96 |
CTRL_DEPTH_INI |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_get_gen.F |
273 |
CTRL_GET_GEN |
& + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
110 |
CTRL_GET_GEN_REC |
if ( xx_genperiod .eq. -12. _d 0 ) then |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
118 |
CTRL_GET_GEN_REC |
elseif ( fldperiod .eq. 0. _d 0 ) then |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
124 |
CTRL_GET_GEN_REC |
fac = 1. _d 0 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
192 |
CTRL_GET_GEN_REC |
if ( xx_genperiod .eq. 0. _d 0 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
193 |
CTRL_GET_GEN_REC |
& .or. externForcingCycle .eq. 0. _d 0 ) then |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
199 |
CTRL_GET_GEN_REC |
fac = 1. _d 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
186 |
CTRL_GETOBCSE |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcse.F |
259 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
265 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
271 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcse.F |
277 |
CTRL_GETOBCSE |
& + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
191 |
CTRL_GETOBCSN |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsn.F |
265 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
271 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
277 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsn.F |
283 |
CTRL_GETOBCSN |
& + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
187 |
CTRL_GETOBCSS |
tmpfldxz (i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcss.F |
260 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
266 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
272 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcss.F |
278 |
CTRL_GETOBCSS |
& + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
186 |
CTRL_GETOBCSW |
tmpfldyz (j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_getobcsw.F |
259 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
265 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
271 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_getobcsw.F |
277 |
CTRL_GETOBCSW |
& + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
106 |
CTRL_HFACC_INI |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
79 |
CTRL_HFACC_INI |
fac = 1. _d 0 |
|
./pkg/ctrl/ctrl_hfacc_ini.F |
81 |
CTRL_HFACC_INI |
fac = 0. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
113 |
CTRL_INIT |
wunit(k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
116 |
CTRL_INIT |
loctmp3d(i,j,k,bi,bj) = 1. _d 0 |
|
./pkg/ctrl/ctrl_init.F |
940 |
CTRL_INIT |
xx_dic(i) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
111 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
112 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
66 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
67 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
81 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
82 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
96 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
97 |
CTRL_INIT_OBCS_VARIABLES |
xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
104 |
CTRL_INIT_VARIABLES |
xx_tauu0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
105 |
CTRL_INIT_VARIABLES |
xx_tauu1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
117 |
CTRL_INIT_VARIABLES |
xx_tauv0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
118 |
CTRL_INIT_VARIABLES |
xx_tauv1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
130 |
CTRL_INIT_VARIABLES |
xx_uwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
131 |
CTRL_INIT_VARIABLES |
xx_uwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
143 |
CTRL_INIT_VARIABLES |
xx_vwind0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
144 |
CTRL_INIT_VARIABLES |
xx_vwind1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
156 |
CTRL_INIT_VARIABLES |
xx_atemp0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
157 |
CTRL_INIT_VARIABLES |
xx_atemp1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
169 |
CTRL_INIT_VARIABLES |
xx_aqh0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
170 |
CTRL_INIT_VARIABLES |
xx_aqh1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
182 |
CTRL_INIT_VARIABLES |
xx_precip0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
183 |
CTRL_INIT_VARIABLES |
xx_precip1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
195 |
CTRL_INIT_VARIABLES |
xx_swflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
196 |
CTRL_INIT_VARIABLES |
xx_swflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
208 |
CTRL_INIT_VARIABLES |
xx_swdown0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
209 |
CTRL_INIT_VARIABLES |
xx_swdown1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
221 |
CTRL_INIT_VARIABLES |
xx_lwflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
222 |
CTRL_INIT_VARIABLES |
xx_lwflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
234 |
CTRL_INIT_VARIABLES |
xx_lwdown0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
235 |
CTRL_INIT_VARIABLES |
xx_lwdown1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
247 |
CTRL_INIT_VARIABLES |
xx_evap0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
248 |
CTRL_INIT_VARIABLES |
xx_evap1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
260 |
CTRL_INIT_VARIABLES |
xx_snowprecip0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
261 |
CTRL_INIT_VARIABLES |
xx_snowprecip1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
273 |
CTRL_INIT_VARIABLES |
xx_apressure0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
274 |
CTRL_INIT_VARIABLES |
xx_apressure1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
286 |
CTRL_INIT_VARIABLES |
xx_runoff0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
287 |
CTRL_INIT_VARIABLES |
xx_runoff1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
299 |
CTRL_INIT_VARIABLES |
xx_sst0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
300 |
CTRL_INIT_VARIABLES |
xx_sst1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
312 |
CTRL_INIT_VARIABLES |
xx_sss0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
313 |
CTRL_INIT_VARIABLES |
xx_sss1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
325 |
CTRL_INIT_VARIABLES |
xx_shifwflx0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
326 |
CTRL_INIT_VARIABLES |
xx_shifwflx1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
338 |
CTRL_INIT_VARIABLES |
bottomDragFld(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
351 |
CTRL_INIT_VARIABLES |
xx_atemp_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
354 |
CTRL_INIT_VARIABLES |
xx_aqh_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
357 |
CTRL_INIT_VARIABLES |
xx_uwind_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
360 |
CTRL_INIT_VARIABLES |
xx_vwind_mean (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
363 |
CTRL_INIT_VARIABLES |
xx_precip_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
366 |
CTRL_INIT_VARIABLES |
xx_swdown_mean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
406 |
CTRL_INIT_VARIABLES |
objf_gentim2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
407 |
CTRL_INIT_VARIABLES |
num_gentim2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
409 |
CTRL_INIT_VARIABLES |
num_gentim2dm(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
410 |
CTRL_INIT_VARIABLES |
objf_gentim2dm(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
411 |
CTRL_INIT_VARIABLES |
objf_gentim2dsmoo(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
421 |
CTRL_INIT_VARIABLES |
objf_genarr2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
422 |
CTRL_INIT_VARIABLES |
num_genarr2d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
431 |
CTRL_INIT_VARIABLES |
objf_genarr3d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
432 |
CTRL_INIT_VARIABLES |
num_genarr3d(bi,bj,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
66 |
CTRL_INIT_VARIABLES |
num_zero_mean(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
67 |
CTRL_INIT_VARIABLES |
objf_zero_mean(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
68 |
CTRL_INIT_VARIABLES |
objf_zero_smoo(bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
78 |
CTRL_INIT_VARIABLES |
xx_hflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
79 |
CTRL_INIT_VARIABLES |
xx_hflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
91 |
CTRL_INIT_VARIABLES |
xx_sflux0(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_init_variables.F |
92 |
CTRL_INIT_VARIABLES |
xx_sflux1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
305 |
CTRL_MAP_FORCING |
tmpUE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
306 |
CTRL_MAP_FORCING |
tmpVN(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
307 |
CTRL_MAP_FORCING |
tmpUX(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
308 |
CTRL_MAP_FORCING |
tmpVY(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
117 |
CTRL_MAP_GENTIM2D |
LOCsumGlob=0. _d 0 |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
120 |
CTRL_MAP_GENTIM2D |
LOCsumTile(bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
80 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini.F |
102 |
CTRL_MAP_INI |
fac = 1. _d 0 |
|
./pkg/ctrl/ctrl_map_ini.F |
104 |
CTRL_MAP_INI |
fac = 0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
107 |
CTRL_MAP_INI_ECCO |
fac = 1. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
224 |
CTRL_MAP_INI_ECCO |
boundsVec(2)=1. _d -4 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
225 |
CTRL_MAP_INI_ECCO |
boundsVec(3)=0.9 _d -2 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
226 |
CTRL_MAP_INI_ECCO |
boundsVec(4)=1. _d -2 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
255 |
CTRL_MAP_INI_ECCO |
boundsVec(1)=1. _d -6 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
256 |
CTRL_MAP_INI_ECCO |
boundsVec(2)=2. _d -6 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
257 |
CTRL_MAP_INI_ECCO |
boundsVec(3)=4. _d -4 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
258 |
CTRL_MAP_INI_ECCO |
boundsVec(4)=5. _d -4 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
268 |
CTRL_MAP_INI_ECCO |
boundsVec(1)=1. _d 2 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
269 |
CTRL_MAP_INI_ECCO |
boundsVec(2)=2. _d 2 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
270 |
CTRL_MAP_INI_ECCO |
boundsVec(3)=0.9 _d 4 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
271 |
CTRL_MAP_INI_ECCO |
boundsVec(4)=1. _d 4 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
281 |
CTRL_MAP_INI_ECCO |
boundsVec(1)=1. _d 2 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
282 |
CTRL_MAP_INI_ECCO |
boundsVec(2)=2. _d 2 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
283 |
CTRL_MAP_INI_ECCO |
boundsVec(3)=0.9 _d 4 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
284 |
CTRL_MAP_INI_ECCO |
boundsVec(4)=1.0 _d 4 |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
299 |
CTRL_MAP_INI_ECCO |
xx_gentim2d(i,j,bi,bj,k)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
107 |
CTRL_MAP_INI_GEN3D |
xxFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
108 |
CTRL_MAP_INI_GEN3D |
wFld3d(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
320 |
CTRL_MAP_INI_GEN2D |
xxFld2d(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gen.F |
321 |
CTRL_MAP_INI_GEN2D |
wFld2d(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
224 |
CTRL_MAP_GENARR2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
381 |
CTRL_MAP_GENARR3D |
xx_gen(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
331 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
90 |
CTRL_MAP_INI_GENTIM2D |
xx_gen(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
88 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
89 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_pack.F |
115 |
CTRL_PACK |
fmin = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
217 |
CTRL_READPARMS |
forcingPrecond = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
234 |
CTRL_READPARMS |
genarr2dPrecond(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
235 |
CTRL_READPARMS |
mult_genarr2d(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
237 |
CTRL_READPARMS |
xx_genarr2d_bounds(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
243 |
CTRL_READPARMS |
xx_genarr2d_preproc_r(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
255 |
CTRL_READPARMS |
genarr3dPrecond(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
256 |
CTRL_READPARMS |
mult_genarr3d(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
258 |
CTRL_READPARMS |
xx_genarr3d_bounds(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
264 |
CTRL_READPARMS |
xx_genarr3d_preproc_r(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
278 |
CTRL_READPARMS |
xx_gentim2d_period(iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
285 |
CTRL_READPARMS |
xx_gentim2d_preproc_r(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
287 |
CTRL_READPARMS |
mult_gentim2d(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
288 |
CTRL_READPARMS |
gentim2dPrecond(iarr) = 1. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
290 |
CTRL_READPARMS |
xx_gentim2d_bounds(jarr,iarr) = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
297 |
CTRL_READPARMS |
xx_hfluxperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
299 |
CTRL_READPARMS |
xx_hflux_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
300 |
CTRL_READPARMS |
xx_hflux_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
304 |
CTRL_READPARMS |
xx_sfluxperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
306 |
CTRL_READPARMS |
xx_sflux_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
307 |
CTRL_READPARMS |
xx_sflux_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
311 |
CTRL_READPARMS |
xx_tauuperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
313 |
CTRL_READPARMS |
xx_tauu_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
314 |
CTRL_READPARMS |
xx_tauu_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
318 |
CTRL_READPARMS |
xx_tauvperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
320 |
CTRL_READPARMS |
xx_tauv_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
321 |
CTRL_READPARMS |
xx_tauv_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
325 |
CTRL_READPARMS |
xx_atempperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
328 |
CTRL_READPARMS |
xx_atemp_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
329 |
CTRL_READPARMS |
xx_atemp_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
333 |
CTRL_READPARMS |
xx_aqhperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
336 |
CTRL_READPARMS |
xx_aqh_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
337 |
CTRL_READPARMS |
xx_aqh_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
341 |
CTRL_READPARMS |
xx_precipperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
344 |
CTRL_READPARMS |
xx_precip_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
345 |
CTRL_READPARMS |
xx_precip_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
349 |
CTRL_READPARMS |
xx_swfluxperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
351 |
CTRL_READPARMS |
xx_swflux_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
352 |
CTRL_READPARMS |
xx_swflux_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
356 |
CTRL_READPARMS |
xx_swdownperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
359 |
CTRL_READPARMS |
xx_swdown_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
360 |
CTRL_READPARMS |
xx_swdown_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
364 |
CTRL_READPARMS |
xx_lwfluxperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
366 |
CTRL_READPARMS |
xx_lwflux_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
367 |
CTRL_READPARMS |
xx_lwflux_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
371 |
CTRL_READPARMS |
xx_lwdownperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
373 |
CTRL_READPARMS |
xx_lwdown_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
374 |
CTRL_READPARMS |
xx_lwdown_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
378 |
CTRL_READPARMS |
xx_evapperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
380 |
CTRL_READPARMS |
xx_evap_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
381 |
CTRL_READPARMS |
xx_evap_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
385 |
CTRL_READPARMS |
xx_snowprecipperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
387 |
CTRL_READPARMS |
xx_snowprecip_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
388 |
CTRL_READPARMS |
xx_snowprecip_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
392 |
CTRL_READPARMS |
xx_apressureperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
394 |
CTRL_READPARMS |
xx_apressure_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
395 |
CTRL_READPARMS |
xx_apressure_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
399 |
CTRL_READPARMS |
xx_runoffperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
401 |
CTRL_READPARMS |
xx_runoff_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
402 |
CTRL_READPARMS |
xx_runoff_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
406 |
CTRL_READPARMS |
xx_uwindperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
409 |
CTRL_READPARMS |
xx_uwind_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
410 |
CTRL_READPARMS |
xx_uwind_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
414 |
CTRL_READPARMS |
xx_vwindperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
417 |
CTRL_READPARMS |
xx_vwind_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
418 |
CTRL_READPARMS |
xx_vwind_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
422 |
CTRL_READPARMS |
xx_obcsnperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
427 |
CTRL_READPARMS |
xx_obcssperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
432 |
CTRL_READPARMS |
xx_obcswperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
437 |
CTRL_READPARMS |
xx_obcseperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
442 |
CTRL_READPARMS |
xx_sstperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
444 |
CTRL_READPARMS |
xx_sst_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
445 |
CTRL_READPARMS |
xx_sst_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
449 |
CTRL_READPARMS |
xx_sssperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
451 |
CTRL_READPARMS |
xx_sss_remo_intercept = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
452 |
CTRL_READPARMS |
xx_sss_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
456 |
CTRL_READPARMS |
xx_shifwflxperiod = 0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
458 |
CTRL_READPARMS |
xx_shifwflx_remo_intercept=0. _d 0 |
|
./pkg/ctrl/ctrl_readparms.F |
459 |
CTRL_READPARMS |
xx_shifwflx_remo_slope = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
75 |
CTRL_SET_GLOBFLD_XY |
globfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
86 |
CTRL_SET_GLOBFLD_XY |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
70 |
CTRL_SET_GLOBFLD_XYZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
75 |
CTRL_SET_GLOBFLD_XZ |
globfldxz(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
86 |
CTRL_SET_GLOBFLD_XZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
76 |
CTRL_SET_GLOBFLD_YZ |
globfldyz(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
87 |
CTRL_SET_GLOBFLD_YZ |
globfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
104 |
CTRL_SET_PACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
105 |
CTRL_SET_PACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
106 |
CTRL_SET_PACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
107 |
CTRL_SET_PACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
162 |
CTRL_SET_PACK_XY |
weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
460 |
CTRL_SET_PACK_XY |
if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
461 |
CTRL_SET_PACK_XY |
fld2dDim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
462 |
CTRL_SET_PACK_XY |
fld2dNodim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
114 |
CTRL_SET_PACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
115 |
CTRL_SET_PACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
116 |
CTRL_SET_PACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
117 |
CTRL_SET_PACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
173 |
CTRL_SET_PACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
203 |
CTRL_SET_PACK_XYZ |
delZnorm = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
377 |
CTRL_SET_PACK_XYZ |
delZnorm = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
381 |
CTRL_SET_PACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
382 |
CTRL_SET_PACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
383 |
CTRL_SET_PACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
104 |
CTRL_SET_PACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
108 |
CTRL_SET_PACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
124 |
CTRL_SET_PACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
104 |
CTRL_SET_PACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
108 |
CTRL_SET_PACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
124 |
CTRL_SET_PACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
105 |
CTRL_SET_UNPACK_XY |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
106 |
CTRL_SET_UNPACK_XY |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
107 |
CTRL_SET_UNPACK_XY |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
108 |
CTRL_SET_UNPACK_XY |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
163 |
CTRL_SET_UNPACK_XY |
weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
262 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
372 |
CTRL_SET_UNPACK_XY |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
564 |
CTRL_SET_UNPACK_XY |
if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
565 |
CTRL_SET_UNPACK_XY |
fld2dDim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
566 |
CTRL_SET_UNPACK_XY |
fld2dNodim(i,j,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
116 |
CTRL_SET_UNPACK_XYZ |
globfld3d (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
117 |
CTRL_SET_UNPACK_XYZ |
globmsk (i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
118 |
CTRL_SET_UNPACK_XYZ |
globfldtmp2(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
119 |
CTRL_SET_UNPACK_XYZ |
globfldtmp3(i,bi,ip,j,bj,jp) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
182 |
CTRL_SET_UNPACK_XYZ |
weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
214 |
CTRL_SET_UNPACK_XYZ |
delZnorm = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
280 |
CTRL_SET_UNPACK_XYZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
475 |
CTRL_SET_UNPACK_XYZ |
delZnorm = 1. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
479 |
CTRL_SET_UNPACK_XYZ |
if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
480 |
CTRL_SET_UNPACK_XYZ |
fld3dDim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
481 |
CTRL_SET_UNPACK_XYZ |
fld3dNodim(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
109 |
CTRL_SET_UNPACK_XZ |
globfldxz (i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
113 |
CTRL_SET_UNPACK_XZ |
globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
129 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
249 |
CTRL_SET_UNPACK_XZ |
globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
332 |
CTRL_SET_UNPACK_XZ |
globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
109 |
CTRL_SET_UNPACK_YZ |
globfldyz (bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
113 |
CTRL_SET_UNPACK_YZ |
globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
129 |
CTRL_SET_UNPACK_YZ |
globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
249 |
CTRL_SET_UNPACK_YZ |
globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0 |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
331 |
CTRL_SET_UNPACK_YZ |
globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0 |
|
./pkg/ctrl/ctrl_smooth.F |
34 |
CTRL_SMOOTH |
parameter( p0=0. _d 0 , p5=0.5 _d 0 , p25=0.25 _d 0 ) |
|
./pkg/ctrl/ctrl_smooth.F |
35 |
CTRL_SMOOTH |
parameter( p125=0.125 _d 0 , p0625=0.0625 _d 0 ) |
|
./pkg/ctrl/ctrl_summary.F |
518 |
CTRL_SUMMARY |
if (xx_gentim2d_preproc_r(jarr,iarr).NE.0. _d 0) then |
|
./pkg/ctrl/ctrl_swapffields.F |
123 |
CTRL_SWAPFFIELDS_3D |
ffld1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
176 |
CTRL_SWAPFFIELDS_XZ |
ffld1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
228 |
CTRL_SWAPFFIELDS_YZ |
ffld1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_swapffields.F |
72 |
CTRL_SWAPFFIELDS |
ffld1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ctrl/ctrl_unpack.F |
130 |
CTRL_UNPACK |
fmin = 0. _d 0 |
|
./pkg/ctrl/optim_readparms.F |
81 |
OPTIM_READPARMS |
fmin = 0.0 _d 0 |
|
./pkg/debug/debug_fld_stats_rl.F |
83 |
DEBUG_FLD_STATS_RL |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + 1. _d 0 |
|
./pkg/debug/debug_fld_stats_rl.F |
98 |
DEBUG_FLD_STATS_RL |
rNbPnts = 1. _d 0/nbPnts |
|
./pkg/debug/debug_fld_stats_rs.F |
83 |
DEBUG_FLD_STATS_RS |
tileNbPt(bi,bj) = tileNbPt(bi,bj) + 1. _d 0 |
|
./pkg/debug/debug_fld_stats_rs.F |
98 |
DEBUG_FLD_STATS_RS |
rNbPnts = 1. _d 0/nbPnts |
|
./pkg/diagnostics/diag_cg2d.F |
136 |
DIAG_CG2D |
pC(i,j,bi,bj) = 1. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
138 |
DIAG_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
145 |
DIAG_CG2D |
& *4. _d 0/( pW_tmp*pW_tmp ) |
|
./pkg/diagnostics/diag_cg2d.F |
152 |
DIAG_CG2D |
& *4. _d 0/( pS_tmp*pS_tmp ) |
|
./pkg/diagnostics/diag_cg2d.F |
163 |
DIAG_CG2D |
eta_qrNM1 = 1. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
177 |
DIAG_CG2D |
sumRHStile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
178 |
DIAG_CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
237 |
DIAG_CG2D |
eta_qrNtile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
275 |
DIAG_CG2D |
alphaTile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
297 |
DIAG_CG2D |
errTile(bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
184 |
DIAG_VEGTILE_FILL |
scaleFact = 1. _d 0 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
242 |
DIAG_VEGTILE_FILL |
ELSEIF ( gridFrac(ij).GT.0. _d 0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
250 |
DIAG_VEGTILE_FILL |
IF ( gridFrac(ij).GT.0. _d 0 ) THEN |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
189 |
DIAGNOSTICS_CALC_PHIVEL |
a2dNorm = 1. _d 0 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
190 |
DIAGNOSTICS_CALC_PHIVEL |
b2dNorm = 1. _d 0 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
191 |
DIAGNOSTICS_CALC_PHIVEL |
x2dNorm = 1. _d 0 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
194 |
DIAGNOSTICS_CALC_PHIVEL |
IF ( a2dMax .GT. 0. _d 0 ) a2dNorm = 1. _d 0/a2dMax |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
199 |
DIAGNOSTICS_CALC_PHIVEL |
IF ( rhsMax .GT. 0. _d 0 ) THEN |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
200 |
DIAGNOSTICS_CALC_PHIVEL |
b2dNorm = 1. _d 0/rhsMax |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
97 |
DIAGNOSTICS_CALC_PHIVEL |
a2dMax = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
98 |
DIAGNOSTICS_CALC_PHIVEL |
rhsMax = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_check.F |
149 |
DIAGNOSTICS_CHECK |
margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0 |
|
./pkg/diagnostics/diagnostics_fill.F |
82 |
DIAGNOSTICS_FILL |
scaleFact = 1. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
82 |
DIAGNOSTICS_FILL_RS |
scaleFact = 1. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
116 |
DIAGNOSTICS_FILL_STATE |
uBarC = 0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
118 |
DIAGNOSTICS_FILL_STATE |
vBarC = 0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
141 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
159 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
179 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = 0.25 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
200 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
216 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
233 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
249 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
265 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
282 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
299 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i-1,j,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
315 |
DIAGNOSTICS_FILL_STATE |
& *0.5 _d 0*(totPhiHyd(i,j,k,bi,bj)+totPhiHyd(i,j-1,k,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
353 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/deltaTMom |
|
./pkg/diagnostics/diagnostics_fill_state.F |
363 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
384 |
DIAGNOSTICS_FILL_STATE |
tmpFac = -86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
496 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = salt(i,j,k,bi,bj)-35. _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
549 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
566 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
584 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
600 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
617 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
635 |
DIAGNOSTICS_FILL_STATE |
tmpMk(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_fill_state.F |
653 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/deltaTMom |
|
./pkg/diagnostics/diagnostics_fill_state.F |
667 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
688 |
DIAGNOSTICS_FILL_STATE |
tmpFac = 86400. _d 0/dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_init_varia.F |
46 |
DIAGNOSTICS_INIT_VARIA |
qdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_init_varia.F |
65 |
DIAGNOSTICS_INIT_VARIA |
qSdiag(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
84 |
DIAGNOSTICS_INTERP_VERT |
pkTop = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
129 |
DIAGNOSTICS_OUT |
timeRec(1) = myTime-deltaTClock*0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
144 |
DIAGNOSTICS_OUT |
tmpLoc = FLOAT(i) - 0.5 _d 0 |
|
./pkg/diagnostics/diagnostics_out.F |
247 |
DIAGNOSTICS_OUT |
qtmp1(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
169 |
DIAGNOSTICS_READPARMS |
& diagCG_pcOffDFac = 0.25 _d 0 /( cg2dpcOffDFac*cg2dpcOffDFac ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
243 |
DIAGNOSTICS_READPARMS |
misValFlt(n) = -999. _d 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
293 |
DIAGNOSTICS_READPARMS |
phase(n) = -0.5 _d 0 * frequency(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
445 |
DIAGNOSTICS_READPARMS |
diagSt_phase(n) = -0.5 _d 0 * stat_freq(l) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
123 |
DIAGNOSTICS_SET_CALC |
IF ( xyMin.EQ.0. _d 0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
136 |
DIAGNOSTICS_SET_CALC |
IF ( xyMin.EQ.0. _d 0 ) xyMin = xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
171 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.GE.0.5 _d 0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
81 |
DIAGNOSTICS_SET_CALC |
d2Min = -1. _d 0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
90 |
DIAGNOSTICS_SET_CALC |
IF ((d2Loc.LT.d2Min .OR. d2Min.EQ.-1. _d 0) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
93 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.LT.d2Min .OR. d2Min.EQ.-1. _d 0 ) d2Min = d2Loc |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
79 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
131 |
DIAGNOSTICS_SWITCH_ONOFF |
xInterval = myTime + deltaTClock*0.5 _d 0 - averagePhase(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
158 |
DIAGNOSTICS_GET_DIAG |
IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor |
|
./pkg/diagnostics/diagstats_calc.F |
211 |
DIAGSTATS_CALC |
arrMaskL = 0. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
220 |
DIAGSTATS_CALC |
& arrMaskL(i,j) = 1. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
235 |
DIAGSTATS_CALC |
& arrMaskL(i,j) = 1. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
251 |
DIAGSTATS_CALC |
& arrMaskL(i,j) = 1. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
266 |
DIAGSTATS_CALC |
& arrMaskL(i,j) = 1. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
281 |
DIAGSTATS_CALC |
IF ( regMask(i,j).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
288 |
DIAGSTATS_CALC |
& regMask(i-1,j).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
295 |
DIAGSTATS_CALC |
& regMask(i,j-1).NE.regMskVal ) arrMaskL(i,j) = 0. _d 0 |
|
./pkg/diagnostics/diagstats_calc.F |
302 |
DIAGSTATS_CALC |
tmpFld = 0. _d 0 |
|
./pkg/diagnostics/diagstats_local.F |
193 |
DIAGSTATS_LOCAL |
drLoc = 1. _d 0 |
|
./pkg/diagnostics/diagstats_others_calc.F |
217 |
DIAGSTATS_G_CALC |
drLoc = 1. _d 0 |
|
./pkg/diagnostics/diagstats_others_calc.F |
99 |
DIAGSTATS_LM_CALC |
drLoc = 1. _d 0 |
|
./pkg/dic/alk_surfforcing.F |
54 |
ALK_SURFFORCING |
IF (maskC(i,j,1,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/alk_surfforcing.F |
68 |
ALK_SURFFORCING |
GALK(i,j)=0. _d 0 |
|
./pkg/dic/bio_export.F |
107 |
BIO_EXPORT |
atten = kall*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0 |
|
./pkg/dic/bio_export.F |
109 |
BIO_EXPORT |
& +( kall*drF(k-1)*hFacC(i,j,k-1,bi,bj)*.5 _d 0 ) |
|
./pkg/dic/bio_export.F |
114 |
BIO_EXPORT |
IF (lit(i,j).LT.0. _d 0.OR.lit(i,j).GT.350. _d 0) THEN |
|
./pkg/dic/bio_export.F |
119 |
BIO_EXPORT |
tmppo4=max(0. _d 0, PTR_PO4(i,j,k)) |
|
./pkg/dic/bio_export.F |
120 |
BIO_EXPORT |
lit(i,j)=max(0. _d 0,lit(i,j)) |
|
./pkg/dic/bio_export.F |
127 |
BIO_EXPORT |
tmpfe=max(0. _d 0,PTR_FE(i,j,k)) |
|
./pkg/dic/bio_export.F |
138 |
BIO_EXPORT |
thaux = tanh( (thx-thy)*1. _d 6 ) |
|
./pkg/dic/bio_export.F |
139 |
BIO_EXPORT |
nutlimit= ( 1. _d 0 - thaux ) * thx * 0.5 _d 0 |
|
./pkg/dic/bio_export.F |
140 |
BIO_EXPORT |
& + ( 1. _d 0 + thaux ) * thy * 0.5 _d 0 |
|
./pkg/dic/bio_export.F |
93 |
BIO_EXPORT |
lit(i,j)=lit(i,j)*(1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/dic/calcite_saturation.F |
156 |
CALCITE_SATURATION |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/calcite_saturation.F |
84 |
CALCITE_SATURATION |
if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then |
|
./pkg/dic/calcite_saturation.F |
86 |
CALCITE_SATURATION |
calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0 |
|
./pkg/dic/calcite_saturation.F |
89 |
CALCITE_SATURATION |
silicaTEST = 0.03 _d 0 |
|
./pkg/dic/calcite_saturation.F |
93 |
CALCITE_SATURATION |
pHlocal = 7.9 _d 0 |
|
./pkg/dic/car_flux.F |
104 |
CAR_FLUX |
IF ( caexport(i,j) .NE. 0. _d 0 ) THEN |
|
./pkg/dic/car_flux.F |
126 |
CAR_FLUX |
flux_l = 0. _d 0 |
|
./pkg/dic/car_flux.F |
65 |
CAR_FLUX |
caexport(i,j) = 0. _d 0 |
|
./pkg/dic/car_flux.F |
66 |
CAR_FLUX |
IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN |
|
./pkg/dic/car_flux.F |
71 |
CAR_FLUX |
ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN |
|
./eesupp/inc/EEPARAMS.h |
78 |
NO PROCEDURE |
PARAMETER ( zeroRS = 0.0 _d 0 , oneRS = 1.0 _d 0 ) |
|
./eesupp/inc/EEPARAMS.h |
79 |
NO PROCEDURE |
PARAMETER ( twoRS = 2.0 _d 0 , halfRS = 0.5 _d 0 ) |
|
./eesupp/inc/EEPARAMS.h |
81 |
NO PROCEDURE |
PARAMETER ( zeroRL = 0.0 _d 0 , oneRL = 1.0 _d 0 ) |
|
./eesupp/inc/EEPARAMS.h |
82 |
NO PROCEDURE |
PARAMETER ( twoRL = 2.0 _d 0 , halfRL = 0.5 _d 0 ) |
|
./pkg/dic/carbon_chem.F |
449 |
CALC_PCO2_APPROX |
& - hpo4g - 2.0 _d 0*po4g + h3po4g |
|
./pkg/dic/carbon_chem.F |
455 |
CALC_PCO2_APPROX |
stuff = (1.0 _d 0-gamm)*(1.0 _d 0-gamm)*k1local*k1local |
|
./pkg/dic/carbon_chem.F |
456 |
CALC_PCO2_APPROX |
& - 4.0 _d 0*k1local*k2local*(1.0 _d 0-2.0 _d 0*gamm) |
|
./pkg/dic/carbon_chem.F |
457 |
CALC_PCO2_APPROX |
hnew = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) ) |
|
./pkg/dic/carbon_chem.F |
460 |
CALC_PCO2_APPROX |
& (1.0 _d 0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew))) |
|
./pkg/dic/carbon_chem.F |
588 |
CARBON_COEFFS |
if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then |
|
./pkg/dic/carbon_chem.F |
592 |
CARBON_COEFFS |
tk = 273.15 _d 0 + t |
|
./pkg/dic/carbon_chem.F |
593 |
CARBON_COEFFS |
tk100 = tk/100. _d 0 |
|
./pkg/dic/carbon_chem.F |
595 |
CARBON_COEFFS |
invtk=1.0 _d 0/tk |
|
./pkg/dic/carbon_chem.F |
597 |
CARBON_COEFFS |
is=19.924 _d 0*s/(1000. _d 0-1.005 _d 0*s) |
|
./pkg/dic/carbon_chem.F |
602 |
CARBON_COEFFS |
s15=s**1.5 _d 0 |
|
./pkg/dic/carbon_chem.F |
603 |
CARBON_COEFFS |
scl=s/1.80655 _d 0 |
|
./pkg/dic/carbon_chem.F |
609 |
CARBON_COEFFS |
P1atm = 1.01325 _d 0 ! bars |
|
./pkg/dic/carbon_chem.F |
610 |
CARBON_COEFFS |
Rgas = 83.1451 _d 0 ! bar*cm3/(mol*K) |
|
./pkg/dic/carbon_chem.F |
612 |
CARBON_COEFFS |
delta = (57.7 _d 0 - 0.118 _d 0*tk) |
|
./pkg/dic/carbon_chem.F |
613 |
CARBON_COEFFS |
B1 = -1636.75 _d 0 + 12.0408 _d 0*tk - 0.0327957 _d 0*tk*tk |
|
./pkg/dic/carbon_chem.F |
614 |
CARBON_COEFFS |
B = B1 + 3.16528 _d 0*tk*tk*tk*(0.00001 _d 0) |
|
./pkg/dic/carbon_chem.F |
615 |
CARBON_COEFFS |
fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT) |
|
./pkg/dic/carbon_chem.F |
619 |
CARBON_COEFFS |
ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100 + |
|
./pkg/dic/carbon_chem.F |
620 |
CARBON_COEFFS |
& 90.9241 _d 0*log(tk100) - 1.47696 _d 0*tk1002 + |
|
./pkg/dic/carbon_chem.F |
621 |
CARBON_COEFFS |
& s * (.025695 _d 0 - .025225 _d 0*tk100 + |
|
./pkg/dic/carbon_chem.F |
622 |
CARBON_COEFFS |
& 0.0049867 _d 0*tk1002)) |
|
./pkg/dic/carbon_chem.F |
625 |
CARBON_COEFFS |
ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 + |
|
./pkg/dic/carbon_chem.F |
626 |
CARBON_COEFFS |
& 23.3585 _d 0 * log(tk100) + |
|
./pkg/dic/carbon_chem.F |
627 |
CARBON_COEFFS |
& s * (0.023517 _d 0 - 0.023656 _d 0*tk100 + |
|
./pkg/dic/carbon_chem.F |
628 |
CARBON_COEFFS |
& 0.0047036 _d 0*tk1002)) |
|
./pkg/dic/carbon_chem.F |
633 |
CARBON_COEFFS |
ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk - |
|
./pkg/dic/carbon_chem.F |
634 |
CARBON_COEFFS |
& 62.008 _d 0 + 9.7944 _d 0*dlogtk - |
|
./pkg/dic/carbon_chem.F |
635 |
CARBON_COEFFS |
& 0.0118 _d 0 * s + 0.000116 _d 0*s2)) |
|
./pkg/dic/carbon_chem.F |
636 |
CARBON_COEFFS |
ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0- |
|
./pkg/dic/carbon_chem.F |
637 |
CARBON_COEFFS |
& 0.0184 _d 0*s + 0.000118 _d 0*s2)) |
|
./pkg/dic/carbon_chem.F |
641 |
CARBON_COEFFS |
akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts - |
|
./pkg/dic/carbon_chem.F |
642 |
CARBON_COEFFS |
& 77.942 _d 0*s + 1.728 _d 0*s15 - 0.0996 _d 0*s2)*invtk + |
|
./pkg/dic/carbon_chem.F |
643 |
CARBON_COEFFS |
& (148.0248 _d 0 + 137.1942 _d 0*sqrts + 1.62142 _d 0*s) + |
|
./pkg/dic/carbon_chem.F |
644 |
CARBON_COEFFS |
& (-24.4344 _d 0 - 25.085 _d 0*sqrts - 0.2474 _d 0*s) * |
|
./pkg/dic/carbon_chem.F |
645 |
CARBON_COEFFS |
& dlogtk + 0.053105 _d 0*sqrts*tk) |
|
./pkg/dic/carbon_chem.F |
649 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 - |
|
./pkg/dic/carbon_chem.F |
650 |
CARBON_COEFFS |
& 18.453 _d 0*dlogtk + |
|
./pkg/dic/carbon_chem.F |
651 |
CARBON_COEFFS |
& (-106.736 _d 0*invtk + 0.69171 _d 0)*sqrts + |
|
./pkg/dic/carbon_chem.F |
652 |
CARBON_COEFFS |
& (-0.65643 _d 0*invtk - 0.01844 _d 0)*s) |
|
./pkg/dic/carbon_chem.F |
656 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 - |
|
./pkg/dic/carbon_chem.F |
657 |
CARBON_COEFFS |
& 27.927 _d 0*dlogtk + |
|
./pkg/dic/carbon_chem.F |
658 |
CARBON_COEFFS |
& (-160.340 _d 0*invtk + 1.3566 _d 0) * sqrts + |
|
./pkg/dic/carbon_chem.F |
659 |
CARBON_COEFFS |
& (0.37335 _d 0*invtk - 0.05778 _d 0) * s) |
|
./pkg/dic/carbon_chem.F |
663 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 + |
|
./pkg/dic/carbon_chem.F |
664 |
CARBON_COEFFS |
& (17.27039 _d 0*invtk + 2.81197 _d 0) * |
|
./pkg/dic/carbon_chem.F |
665 |
CARBON_COEFFS |
& sqrts + (-44.99486 _d 0*invtk - 0.09984 _d 0) * s) |
|
./pkg/dic/carbon_chem.F |
669 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 - |
|
./pkg/dic/carbon_chem.F |
670 |
CARBON_COEFFS |
& 19.334 _d 0*dlogtk + |
|
./pkg/dic/carbon_chem.F |
671 |
CARBON_COEFFS |
& (-458.79 _d 0*invtk + 3.5913 _d 0) * sqrtis + |
|
./pkg/dic/carbon_chem.F |
672 |
CARBON_COEFFS |
& (188.74 _d 0*invtk - 1.5998 _d 0) * is + |
|
./pkg/dic/carbon_chem.F |
673 |
CARBON_COEFFS |
& (-12.1652 _d 0*invtk + 0.07871 _d 0) * is2 + |
|
./pkg/dic/carbon_chem.F |
674 |
CARBON_COEFFS |
& log(1.0 _d 0-0.001005 _d 0*s)) |
|
./pkg/dic/carbon_chem.F |
678 |
CARBON_COEFFS |
akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 - |
|
./pkg/dic/carbon_chem.F |
679 |
CARBON_COEFFS |
& 23.6521 _d 0*dlogtk + |
|
./pkg/dic/carbon_chem.F |
680 |
CARBON_COEFFS |
& (118.67 _d 0*invtk - 5.977 _d 0 + 1.0495 _d 0 * dlogtk) |
|
./pkg/dic/carbon_chem.F |
681 |
CARBON_COEFFS |
& * sqrts - 0.01615 _d 0 * s) |
|
./pkg/dic/carbon_chem.F |
685 |
CARBON_COEFFS |
aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 - |
|
./pkg/dic/carbon_chem.F |
686 |
CARBON_COEFFS |
& 23.093 _d 0*dlogtk + |
|
./pkg/dic/carbon_chem.F |
687 |
CARBON_COEFFS |
& (-13856. _d 0*invtk + 324.57 _d 0 - 47.986 _d 0*dlogtk)*sqrtis+ |
|
./pkg/dic/carbon_chem.F |
688 |
CARBON_COEFFS |
& (35474. _d 0*invtk - 771.54 _d 0 + 114.723 _d 0*dlogtk)*is - |
|
./pkg/dic/carbon_chem.F |
689 |
CARBON_COEFFS |
& 2698. _d 0*invtk*is**1.5 _d 0 + 1776. _d 0*invtk*is2 + |
|
./pkg/dic/carbon_chem.F |
690 |
CARBON_COEFFS |
& log(1.0 _d 0 - 0.001005 _d 0*s)) |
|
./pkg/dic/carbon_chem.F |
694 |
CARBON_COEFFS |
akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 + |
|
./pkg/dic/carbon_chem.F |
695 |
CARBON_COEFFS |
& 1.525 _d 0*sqrtis + log(1.0 _d 0 - 0.001005 _d 0*s) + |
|
./pkg/dic/carbon_chem.F |
696 |
CARBON_COEFFS |
& log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj))) |
|
./pkg/dic/carbon_chem.F |
700 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0 |
|
./pkg/dic/carbon_chem.F |
702 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0 |
|
./pkg/dic/carbon_chem.F |
704 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0 |
|
./pkg/dic/carbon_chem.F |
708 |
CARBON_COEFFS |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/carbon_chem.F |
709 |
CARBON_COEFFS |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/carbon_chem.F |
710 |
CARBON_COEFFS |
ak0(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
711 |
CARBON_COEFFS |
ak1(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
712 |
CARBON_COEFFS |
ak2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
713 |
CARBON_COEFFS |
akb(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
714 |
CARBON_COEFFS |
ak1p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
715 |
CARBON_COEFFS |
ak2p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
716 |
CARBON_COEFFS |
ak3p(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
717 |
CARBON_COEFFS |
aksi(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
718 |
CARBON_COEFFS |
akw(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
719 |
CARBON_COEFFS |
aks(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
720 |
CARBON_COEFFS |
akf(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
721 |
CARBON_COEFFS |
bt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
722 |
CARBON_COEFFS |
st(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/carbon_chem.F |
723 |
CARBON_COEFFS |
ft(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_atmos.F |
82 |
DIC_ATMOS |
aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1) |
|
./pkg/dic/dic_atmos.F |
83 |
DIC_ATMOS |
IF (aWght.GT.1. _d 0) THEN |
|
./pkg/dic/dic_atmos.F |
85 |
DIC_ATMOS |
aWght=aWght-1. _d 0 |
|
./pkg/dic/dic_atmos.F |
87 |
DIC_ATMOS |
bWght = 1. _d 0 - aWght |
|
./pkg/dic/dic_atmos.F |
97 |
DIC_ATMOS |
total_atmos_moles = 1.77 _d 20 |
|
./pkg/dic/dic_biotic_diags.F |
155 |
DIC_BIOTIC_DIAGS |
DIC_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
129 |
DIC_BIOTIC_FORCING |
RDOP(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
130 |
DIC_BIOTIC_FORCING |
GDIC(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
131 |
DIC_BIOTIC_FORCING |
GALK(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
132 |
DIC_BIOTIC_FORCING |
GPO4(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
133 |
DIC_BIOTIC_FORCING |
GDOP(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
134 |
DIC_BIOTIC_FORCING |
CAR(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
135 |
DIC_BIOTIC_FORCING |
BIOac(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
136 |
DIC_BIOTIC_FORCING |
pflux(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
137 |
DIC_BIOTIC_FORCING |
exportflux(i,j,k)=0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
138 |
DIC_BIOTIC_FORCING |
cflux(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
139 |
DIC_BIOTIC_FORCING |
CAR_S(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
141 |
DIC_BIOTIC_FORCING |
GO2(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
144 |
DIC_BIOTIC_FORCING |
GFE(i,j,k) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
153 |
DIC_BIOTIC_FORCING |
SURA(i,j) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
154 |
DIC_BIOTIC_FORCING |
SURC(i,j) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
155 |
DIC_BIOTIC_FORCING |
SURO(i,j) =0. _d 0 |
|
./pkg/dic/dic_biotic_forcing.F |
230 |
DIC_BIOTIC_FORCING |
& (1. _d 0-DOPfraction) |
|
./pkg/dic/dic_biotic_forcing.F |
277 |
DIC_BIOTIC_FORCING |
& ,0. _d 0) |
|
./pkg/dic/dic_biotic_forcing.F |
287 |
DIC_BIOTIC_FORCING |
GALK(i,j,k)=+2. _d 0 *car(i,j,k)-R_NP*GPO4(i,j,k) |
|
./pkg/dic/dic_biotic_forcing.F |
295 |
DIC_BIOTIC_FORCING |
GO2(i,j,k)= 0. _d 0 |
|
./pkg/dic/dic_biotic_init.F |
49 |
DIC_BIOTIC_INIT |
DIC_timeAve(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_cost.F |
47 |
DIC_COST |
loc_cost(bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_fields_load.F |
44 |
DIC_FIELDS_LOAD |
IF ( DIC_forcingCycle.GT.0. _d 0 ) THEN |
|
./pkg/dic/dic_ini_atmos.F |
102 |
DIC_INI_ATMOS |
total_atmos_moles = 1.77 _d 20 |
|
./pkg/dic/dic_ini_atmos.F |
87 |
DIC_INI_ATMOS |
aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1) |
|
./pkg/dic/dic_ini_atmos.F |
88 |
DIC_INI_ATMOS |
IF (aWght.GT.1. _d 0) THEN |
|
./pkg/dic/dic_ini_atmos.F |
90 |
DIC_INI_ATMOS |
aWght=aWght-1. _d 0 |
|
./pkg/dic/dic_ini_atmos.F |
92 |
DIC_INI_ATMOS |
bWght = 1. _d 0 - aWght |
|
./pkg/dic/dic_ini_forcing.F |
79 |
DIC_INI_FORCING |
WIND(i,j,bi,bj) = 5. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
80 |
DIC_INI_FORCING |
AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
81 |
DIC_INI_FORCING |
SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
82 |
DIC_INI_FORCING |
FIce(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_ini_forcing.F |
83 |
DIC_INI_FORCING |
FluxCO2(i,j,bi,bj)= 0. _d 0 |
|
./pkg/dic/dic_ini_forcing.F |
85 |
DIC_INI_FORCING |
PAR(i,j,bi,bj) = 100. _d 0*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
89 |
DIC_INI_FORCING |
CHL(i,j,bi,bj) = 1. _d -2*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_ini_forcing.F |
92 |
DIC_INI_FORCING |
InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_init_fixed.F |
41 |
DIC_INIT_FIXED |
sca1 = 2073.1 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
42 |
DIC_INIT_FIXED |
sca2 = -125.62 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
43 |
DIC_INIT_FIXED |
sca3 = 3.6276 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
44 |
DIC_INIT_FIXED |
sca4 = -0.043219 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
47 |
DIC_INIT_FIXED |
sox1 = 1638.0 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
48 |
DIC_INIT_FIXED |
sox2 = -81.83 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
49 |
DIC_INIT_FIXED |
sox3 = 1.483 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
50 |
DIC_INIT_FIXED |
sox4 = -0.008004 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
53 |
DIC_INIT_FIXED |
oA0= 2.00907 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
54 |
DIC_INIT_FIXED |
oA1= 3.22014 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
55 |
DIC_INIT_FIXED |
oA2= 4.05010 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
56 |
DIC_INIT_FIXED |
oA3= 4.94457 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
57 |
DIC_INIT_FIXED |
oA4= -2.56847 _d -1 |
|
./pkg/dic/dic_init_fixed.F |
58 |
DIC_INIT_FIXED |
oA5= 3.88767 _d 0 |
|
./pkg/dic/dic_init_fixed.F |
59 |
DIC_INIT_FIXED |
oB0= -6.24523 _d -3 |
|
./pkg/dic/dic_init_fixed.F |
60 |
DIC_INIT_FIXED |
oB1= -7.37614 _d -3 |
|
./pkg/dic/dic_init_fixed.F |
61 |
DIC_INIT_FIXED |
oB2= -1.03410 _d -2 |
|
./pkg/dic/dic_init_fixed.F |
62 |
DIC_INIT_FIXED |
oB3= -8.17083 _d -3 |
|
./pkg/dic/dic_init_fixed.F |
63 |
DIC_INIT_FIXED |
oC0= -4.88682 _d -7 |
|
./pkg/dic/dic_init_varia.F |
41 |
DIC_INIT_VARIA |
total_atmos_carbon = 0. _d 0 |
|
./pkg/dic/dic_init_varia.F |
42 |
DIC_INIT_VARIA |
total_ocean_carbon = 0. _d 0 |
|
./pkg/dic/dic_init_varia.F |
43 |
DIC_INIT_VARIA |
total_atmos_carbon_year = 0. _d 0 |
|
./pkg/dic/dic_init_varia.F |
44 |
DIC_INIT_VARIA |
total_atmos_carbon_start = 0. _d 0 |
|
./pkg/dic/dic_init_varia.F |
45 |
DIC_INIT_VARIA |
total_ocean_carbon_year = 0. _d 0 |
|
./pkg/dic/dic_init_varia.F |
46 |
DIC_INIT_VARIA |
total_ocean_carbon_start = 0. _d 0 |
|
./pkg/dic/dic_init_varia.F |
47 |
DIC_INIT_VARIA |
atpco2 = 0. _d 0 |
|
./pkg/dic/dic_init_varia.F |
49 |
DIC_INIT_VARIA |
totcost = 0. _d 0 |
|
./pkg/dic/dic_init_varia.F |
67 |
DIC_INIT_VARIA |
omegaC(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_readparms.F |
107 |
DIC_READPARMS |
permil = 1. _d 0 / 1024.5 _d 0 |
|
./pkg/dic/dic_readparms.F |
108 |
DIC_READPARMS |
Pa2Atm = 1.01325 _d 5 |
|
./pkg/dic/dic_readparms.F |
110 |
DIC_READPARMS |
DOPfraction = 0.67 _d 0 |
|
./pkg/dic/dic_readparms.F |
111 |
DIC_READPARMS |
KDOPRemin = 1. _d 0/(6. _d 0*30. _d 0*86400. _d 0) |
|
./pkg/dic/dic_readparms.F |
112 |
DIC_READPARMS |
KRemin = 0.9 _d 0 |
|
./pkg/dic/dic_readparms.F |
113 |
DIC_READPARMS |
zcrit = 500. _d 0 |
|
./pkg/dic/dic_readparms.F |
114 |
DIC_READPARMS |
O2crit = 4. _d -3 |
|
./pkg/dic/dic_readparms.F |
115 |
DIC_READPARMS |
R_OP =-170. _d 0 |
|
./pkg/dic/dic_readparms.F |
116 |
DIC_READPARMS |
R_CP = 117. _d 0 |
|
./pkg/dic/dic_readparms.F |
117 |
DIC_READPARMS |
R_NP = 16. _d 0 |
|
./pkg/dic/dic_readparms.F |
118 |
DIC_READPARMS |
R_FeP = 0.000468 _d 0 |
|
./pkg/dic/dic_readparms.F |
119 |
DIC_READPARMS |
zca = 3500. _d 0 |
|
./pkg/dic/dic_readparms.F |
120 |
DIC_READPARMS |
parfrac = 0.4 _d 0 |
|
./pkg/dic/dic_readparms.F |
121 |
DIC_READPARMS |
k0 = 0.02 _d 0 |
|
./pkg/dic/dic_readparms.F |
122 |
DIC_READPARMS |
kchl = 0.02 _d 0 |
|
./pkg/dic/dic_readparms.F |
123 |
DIC_READPARMS |
lit0 = 30. _d 0 |
|
./pkg/dic/dic_readparms.F |
124 |
DIC_READPARMS |
KPO4 = 5. _d -4 |
|
./pkg/dic/dic_readparms.F |
125 |
DIC_READPARMS |
KFE = 1.2 _d -7 |
|
./pkg/dic/dic_readparms.F |
126 |
DIC_READPARMS |
alpfe = 0.01 _d 0 |
|
./pkg/dic/dic_readparms.F |
127 |
DIC_READPARMS |
fesedflux_pcm = 6.8 _d -4 * 106. _d 0 |
|
./pkg/dic/dic_readparms.F |
128 |
DIC_READPARMS |
FeIntSec = 0.5 _d -6 / 86400. _d 0 |
|
./pkg/dic/dic_readparms.F |
129 |
DIC_READPARMS |
freefemax = 3. _d -7 |
|
./pkg/dic/dic_readparms.F |
130 |
DIC_READPARMS |
KScav = 0.19 _d 0/(360. _d 0*86400. _d 0) |
|
./pkg/dic/dic_readparms.F |
131 |
DIC_READPARMS |
ligand_stab = 1. _d 8 |
|
./pkg/dic/dic_readparms.F |
132 |
DIC_READPARMS |
ligand_tot = 1. _d -6 |
|
./pkg/dic/dic_readparms.F |
133 |
DIC_READPARMS |
alphaUniform = 2. _d -3/(360. _d 0 * 86400. _d 0) |
|
./pkg/dic/dic_readparms.F |
134 |
DIC_READPARMS |
rainRatioUniform = 7. _d -2 |
|
./pkg/dic/dic_readparms.F |
147 |
DIC_READPARMS |
dic_pCO2 = 278. _d -6 |
|
./pkg/dic/dic_readparms.F |
309 |
DIC_READPARMS |
IF ( dic_int1.EQ.0 .AND. dic_pCO2.NE.278. _d -6 ) THEN |
|
./pkg/dic/dic_set_control.F |
105 |
DIC_SET_CONTROL |
feload(i,j,bi,bj) = feload(i,j,bi,bj)*(1. _d 0 +xx_dic(1)) |
|
./pkg/dic/dic_set_control.F |
107 |
DIC_SET_CONTROL |
& rain_ratio(i,j,bi,bj)*(1. _d 0 +xx_dic(2)) |
|
./pkg/dic/dic_set_control.F |
117 |
DIC_SET_CONTROL |
KScav = KScav * ( 1. _d 0 + xx_dic(3)*1. _d 6 ) |
|
./pkg/dic/dic_set_control.F |
118 |
DIC_SET_CONTROL |
ligand_stab = ligand_stab * ( 1. _d 0 + xx_dic(4)*1. _d 6 ) |
|
./pkg/dic/dic_set_control.F |
119 |
DIC_SET_CONTROL |
ligand_tot = ligand_tot * ( 1. _d 0 + xx_dic(5)*1. _d 6 ) |
|
./pkg/dic/dic_set_control.F |
62 |
DIC_SET_CONTROL |
fac = 1. _d 0 |
|
./pkg/dic/dic_set_control.F |
64 |
DIC_SET_CONTROL |
fac = 0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
104 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
106 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
111 |
DIC_SURFFORCING |
surftemp(i,j) = max(-4. _d 0, |
|
./pkg/dic/dic_surfforcing.F |
112 |
DIC_SURFFORCING |
& min(50. _d 0, theta(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
113 |
DIC_SURFFORCING |
surfsalt(i,j) = max(4. _d 0, |
|
./pkg/dic/dic_surfforcing.F |
114 |
DIC_SURFFORCING |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
115 |
DIC_SURFFORCING |
surfdic(i,j) = max(0.4 _d 0, |
|
./pkg/dic/dic_surfforcing.F |
116 |
DIC_SURFFORCING |
& min(10. _d 0, PTR_CO2(i,j,kLev))) |
|
./pkg/dic/dic_surfforcing.F |
140 |
DIC_SURFFORCING |
AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm |
|
./pkg/dic/dic_surfforcing.F |
145 |
DIC_SURFFORCING |
pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5 |
|
./pkg/dic/dic_surfforcing.F |
147 |
DIC_SURFFORCING |
& * (1. _d 0 - FIce(i,j,bi,bj)) |
|
./pkg/dic/dic_surfforcing.F |
158 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
173 |
DIC_SURFFORCING |
pCO2(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
181 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
190 |
DIC_SURFFORCING |
SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j)) |
|
./pkg/dic/dic_surfforcing.F |
199 |
DIC_SURFFORCING |
& / sqrt(SchmidtNoDIC(i,j)/660.0 _d 0) |
|
./pkg/dic/dic_surfforcing.F |
223 |
DIC_SURFFORCING |
FluxCO2(i,j,bi,bj) = 0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
229 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing.F |
243 |
DIC_SURFFORCING |
VirtualFlux(i,j)=0. _d 0 |
|
./pkg/dic/dic_surfforcing.F |
91 |
DIC_SURFFORCING |
surfalk(i,j) = max(0.4 _d 0, |
|
./pkg/dic/dic_surfforcing.F |
92 |
DIC_SURFFORCING |
& min(10. _d 0,PTR_ALK(i,j,klev))) |
|
./pkg/dic/dic_surfforcing.F |
94 |
DIC_SURFFORCING |
surfphos(i,j) = max(1.0 _d -11, |
|
./pkg/dic/dic_surfforcing.F |
95 |
DIC_SURFFORCING |
& min(1. _d -1,PTR_PO4(i,j,klev))) |
|
./pkg/dic/dic_surfforcing_init.F |
125 |
DIC_SURFFORCING_INIT |
pH(i,j,bi,bj) = 8. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
135 |
DIC_SURFFORCING_INIT |
ak0(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
136 |
DIC_SURFFORCING_INIT |
ak1(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
137 |
DIC_SURFFORCING_INIT |
ak2(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
138 |
DIC_SURFFORCING_INIT |
akw(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
139 |
DIC_SURFFORCING_INIT |
akb(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
140 |
DIC_SURFFORCING_INIT |
akf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
141 |
DIC_SURFFORCING_INIT |
ak1p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
142 |
DIC_SURFFORCING_INIT |
ak2p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
143 |
DIC_SURFFORCING_INIT |
ak3p(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
144 |
DIC_SURFFORCING_INIT |
aksi(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
145 |
DIC_SURFFORCING_INIT |
fugf(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
146 |
DIC_SURFFORCING_INIT |
ff(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
147 |
DIC_SURFFORCING_INIT |
ft(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
148 |
DIC_SURFFORCING_INIT |
st(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
149 |
DIC_SURFFORCING_INIT |
bt(i,j,bi,bj)=0. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
174 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = max(0.4 _d 0, |
|
./pkg/dic/dic_surfforcing_init.F |
175 |
DIC_SURFFORCING_INIT |
& min(10. _d 0,PTRACER(i,j,kLev,bi,bj,2))) |
|
./pkg/dic/dic_surfforcing_init.F |
177 |
DIC_SURFFORCING_INIT |
surfphos(i,j) = max(1.0 _d -11, |
|
./pkg/dic/dic_surfforcing_init.F |
178 |
DIC_SURFFORCING_INIT |
& min(1. _d -1,PTRACER(i,j,kLev,bi,bj,3))) |
|
./pkg/dic/dic_surfforcing_init.F |
187 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
189 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
194 |
DIC_SURFFORCING_INIT |
surftemp(i,j) = max(-4. _d 0, |
|
./pkg/dic/dic_surfforcing_init.F |
195 |
DIC_SURFFORCING_INIT |
& min(50. _d 0, theta(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
196 |
DIC_SURFFORCING_INIT |
surfsalt(i,j) = max(4. _d 0, |
|
./pkg/dic/dic_surfforcing_init.F |
197 |
DIC_SURFFORCING_INIT |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
198 |
DIC_SURFFORCING_INIT |
surfdic(i,j) = max(0.4 _d 0, |
|
./pkg/dic/dic_surfforcing_init.F |
199 |
DIC_SURFFORCING_INIT |
& min(10. _d 0, PTRACER(i,j,kLev,bi,bj,1))) |
|
./pkg/dic/dic_surfforcing_init.F |
224 |
DIC_SURFFORCING_INIT |
IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/dic/fe_chem.F |
101 |
FE_CHEM |
& ( 1. _d 0 - tanh((thx-thy)/theps) ) * thx/2.+ |
|
./pkg/dic/fe_chem.F |
102 |
FE_CHEM |
& ( 1. _d 0 + tanh((thx-thy)/theps) ) * thy/2. |
|
./pkg/dic/fe_chem.F |
62 |
FE_CHEM |
freefe(i,j,k) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
76 |
FE_CHEM |
tmpfe =MAX( 0. _d 0 , fe(i,j,k) ) |
|
./pkg/dic/fe_chem.F |
83 |
FE_CHEM |
& ligand_stab*ligand_tot-1. _d 0 |
|
./pkg/dic/fe_chem.F |
85 |
FE_CHEM |
& -ligand_stab*ligand_tot+1. _d 0)**2 |
|
./pkg/dic/fe_chem.F |
86 |
FE_CHEM |
& +4. _d 0*ligand_stab*ligand_tot)**0.5 _d 0 |
|
./pkg/dic/fe_chem.F |
87 |
FE_CHEM |
& )/(2. _d 0*ligand_stab) |
|
./pkg/dic/fe_chem.F |
90 |
FE_CHEM |
IF (tmpfe.NE.0. _d 0) THEN |
|
./pkg/dic/fe_chem.F |
93 |
FE_CHEM |
freefe(i,j,k) = 0. _d 0 |
|
./pkg/dic/fe_chem.F |
99 |
FE_CHEM |
theps=1. _d -8 |
|
./pkg/dic/insol.F |
47 |
INSOL |
solar = 1360. _d 0 !solar constant |
|
./pkg/dic/insol.F |
48 |
INSOL |
albedo= 0.6 _d 0 !planetary albedo |
|
./pkg/dic/insol.F |
56 |
INSOL |
dayfrac=mod(Time,360. _d 0*86400. _d 0) |
|
./pkg/dic/insol.F |
57 |
INSOL |
& /(360. _d 0*86400. _d 0) !fraction of year |
|
./pkg/dic/insol.F |
58 |
INSOL |
yday = 2. _d 0*PI*dayfrac !convert to radians |
|
./pkg/dic/insol.F |
59 |
INSOL |
delta = (0.006918 _d 0 |
|
./pkg/dic/insol.F |
60 |
INSOL |
& -(0.399912 _d 0*cos(yday)) !cosine zenith angle |
|
./pkg/dic/insol.F |
61 |
INSOL |
& +(0.070257 _d 0*sin(yday)) !(paltridge+platt) |
|
./pkg/dic/insol.F |
62 |
INSOL |
& -(0.006758 _d 0*cos(2. _d 0*yday)) |
|
./pkg/dic/insol.F |
63 |
INSOL |
& +(0.000907 _d 0*sin(2. _d 0*yday)) |
|
./pkg/dic/insol.F |
64 |
INSOL |
& -(0.002697 _d 0*cos(3. _d 0*yday)) |
|
./pkg/dic/insol.F |
65 |
INSOL |
& +(0.001480 _d 0*sin(3. _d 0*yday)) ) |
|
./pkg/dic/insol.F |
72 |
INSOL |
& lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) ) |
|
./pkg/dic/insol.F |
74 |
INSOL |
IF (sun1.LE.-0.999 _d 0) sun1=-0.999 _d 0 |
|
./pkg/dic/insol.F |
75 |
INSOL |
IF (sun1.GE. 0.999 _d 0) sun1= 0.999 _d 0 |
|
./pkg/dic/insol.F |
79 |
INSOL |
IF (cosz.LE.5. _d -3) cosz= 5. _d -3 |
|
./pkg/dic/insol.F |
82 |
INSOL |
fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac |
|
./pkg/dic/insol.F |
85 |
INSOL |
sfac(j) = MAX(1. _d -5,fluxi) |
|
./pkg/dic/o2_surfforcing.F |
107 |
O2_SURFFORCING |
O2sat(i,j) = o2s/22391.6 _d 0 * 1. _d 3 |
|
./pkg/dic/o2_surfforcing.F |
114 |
O2_SURFFORCING |
FluxO2(i,j) = 0. _d 0 |
|
./pkg/dic/o2_surfforcing.F |
87 |
O2_SURFFORCING |
& / sqrt(SchmidtNoO2(i,j)/660.0 _d 0) |
|
./pkg/dic/o2_surfforcing.F |
91 |
O2_SURFFORCING |
aTT = 298.15 _d 0 -ttemp |
|
./pkg/dic/o2_surfforcing.F |
92 |
O2_SURFFORCING |
aTK = 273.15 _d 0 +ttemp |
|
./pkg/dic/phos_flux.F |
108 |
PHOS_FLUX |
IF ( bexport(i,j) .NE. 0. _d 0 ) THEN |
|
./pkg/dic/phos_flux.F |
133 |
PHOS_FLUX |
flux_l = 0. _d 0 |
|
./pkg/dic/phos_flux.F |
66 |
PHOS_FLUX |
bexport(i,j) = 0. _d 0 |
|
./pkg/dic/phos_flux.F |
67 |
PHOS_FLUX |
IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN |
|
./pkg/dic/phos_flux.F |
71 |
PHOS_FLUX |
pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
72 |
PHOS_FLUX |
ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/dic/phos_flux.F |
73 |
PHOS_FLUX |
pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/dic/phos_flux.F |
76 |
PHOS_FLUX |
bexport(i,j)=BIOac(i,j,k)*(1. _d 0-DOPfraction) |
|
./pkg/down_slope/dwnslp_apply.F |
123 |
DWNSLP_APPLY |
tmpFac = -1. _d 0 |
|
./pkg/down_slope/dwnslp_calc_flow.F |
108 |
DWNSLP_CALC_FLOW |
& .AND. dRhoH.GT.0. _d 0 ) THEN |
|
./pkg/down_slope/dwnslp_calc_flow.F |
85 |
DWNSLP_CALC_FLOW |
uFlow(ij) = 0. _d 0 |
|
./pkg/down_slope/dwnslp_calc_flow.F |
86 |
DWNSLP_CALC_FLOW |
vFlow(ij) = 0. _d 0 |
|
./pkg/down_slope/dwnslp_init_varia.F |
51 |
DWNSLP_INIT_VARIA |
DWNSLP_Transp(n,bi,bj) = 0. _d 0 |
|
./pkg/ebm/EBM.h |
51 |
NO PROCEDURE |
PARAMETER ( t_mlt = 273.15 _d 0 ) |
|
./pkg/ebm/EBM.h |
52 |
NO PROCEDURE |
PARAMETER ( lv = 2.5 _d 6 ) |
|
./pkg/ebm/EBM.h |
53 |
NO PROCEDURE |
PARAMETER ( cp = 1004. _d 0 ) |
|
./pkg/ebm/EBM.h |
54 |
NO PROCEDURE |
PARAMETER ( rho_air = 1.27 _d 0 ) |
|
./pkg/ebm/EBM.h |
59 |
NO PROCEDURE |
PARAMETER ( Q0 = 1365. _d 0 , Q2 = -0.482 _d 0 ) |
|
./pkg/ebm/EBM.h |
60 |
NO PROCEDURE |
PARAMETER ( A0 = 0.322 _d 0 , A2 = 0.231 _d 0 , A4 = 0.086 _d 0 ) |
|
./pkg/ebm/EBM.h |
63 |
NO PROCEDURE |
PARAMETER ( LW0 = 195. _d 0 , LW1 = 2.78 _d 0 ) |
|
./pkg/ebm/EBM.h |
66 |
NO PROCEDURE |
PARAMETER ( H1 = 3.866 _d 0 , H3 = -2.851 _d 0, H5 = -1.016 _d 0 ) |
|
./pkg/ebm/EBM.h |
69 |
NO PROCEDURE |
PARAMETER ( F1 = 2.092 _d 0 , F2 = 5.796 _d 0 , F3 = 8.472 _d 0 ) |
|
./pkg/ebm/EBM.h |
70 |
NO PROCEDURE |
PARAMETER ( F4 = 7.728 _d 0 , F5 = 2.362 _d 0 ) |
|
./pkg/ebm/EBM.h |
73 |
NO PROCEDURE |
PARAMETER ( trans_eff = 2. _d 0 , Hw = 8. _d 3, Nw = 0.013 _d 0 ) |
|
./pkg/ebm/EBM.h |
74 |
NO PROCEDURE |
PARAMETER ( Tw = 300. _d 0 , At = 3. _d 0 , dz = 450. _d 0 ) |
|
./pkg/ebm/EBM.h |
75 |
NO PROCEDURE |
PARAMETER ( htil = 0.8 _d 0 , tau = 5. _d -3) |
|
./pkg/ebm/EBM.h |
78 |
NO PROCEDURE |
PARAMETER (DLW = 0.06 _d 0 ) |
|
./pkg/ebm/ebm_atmosphere.F |
189 |
EBM_ATMOSPHERE |
kappa = Hw/(1. _d 0 + gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
190 |
EBM_ATMOSPHERE |
De = Hw/(0.48 _d 0 + 1.48 _d 0 *gamma) |
|
./pkg/ebm/ebm_atmosphere.F |
191 |
EBM_ATMOSPHERE |
C = 0.6 _d 0 *gravity*kappa*kappa*Nw/ |
|
./pkg/ebm/ebm_atmosphere.F |
194 |
EBM_ATMOSPHERE |
& ( 1. _d 0 /(1. _d 0 /Hw + 1. _d 0 /De) |
|
./pkg/ebm/ebm_atmosphere.F |
195 |
EBM_ATMOSPHERE |
& -1. _d 0 /(1. _d 0 /Hw+1. _d 0 /De+1. _d 0 /dz) ) |
|
./pkg/ebm/ebm_atmosphere.F |
196 |
EBM_ATMOSPHERE |
Cf = htil*2.97 _d 12*C/(T35(no_so)**3)*( |
|
./pkg/ebm/ebm_atmosphere.F |
197 |
EBM_ATMOSPHERE |
& 1. _d 0/(1. _d 0/De + (5420. _d 0*tau /(T35(no_so)**2))) |
|
./pkg/ebm/ebm_atmosphere.F |
198 |
EBM_ATMOSPHERE |
& -1. _d 0/(1. _d 0/De+5420. _d 0*tau/(T35(no_so)**2) |
|
./pkg/ebm/ebm_atmosphere.F |
199 |
EBM_ATMOSPHERE |
& +1. _d 0/dz)) |
|
./pkg/ebm/ebm_atmosphere.F |
219 |
EBM_ATMOSPHERE |
Hd35(2) = 1.6 _d 0*Hd35(2) |
|
./pkg/ebm/ebm_atmosphere.F |
231 |
EBM_ATMOSPHERE |
P4(i,j,bj) = 0.12 _d 0 * |
|
./pkg/ebm/ebm_atmosphere.F |
250 |
EBM_ATMOSPHERE |
SW(j,bj) = 0.25 _d 0 *Q0*(1. _d 0 + Q2*P2(i,j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
251 |
EBM_ATMOSPHERE |
& (1. _d 0 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) ) |
|
./pkg/ebm/ebm_atmosphere.F |
259 |
EBM_ATMOSPHERE |
& (myTime-startTime)*3.215 _d -8*DLW |
|
./pkg/ebm/ebm_atmosphere.F |
270 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
272 |
EBM_ATMOSPHERE |
& 0.000728 _d 4 - 0.00678 _d 4*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
273 |
EBM_ATMOSPHERE |
& 0.0955 _d 4*S(i,j,bj)**2 + 0.0769 _d 4*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
274 |
EBM_ATMOSPHERE |
& 0.8508 _d 4*S(i,j,bj)**4 - 0.3581 _d 4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
275 |
EBM_ATMOSPHERE |
& 2.9240 _d 4*S(i,j,bj)**6 + 0.8311 _d 4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
276 |
EBM_ATMOSPHERE |
& 4.9548 _d 4*S(i,j,bj)**8 - 0.8808 _d 4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
277 |
EBM_ATMOSPHERE |
& 4.0644 _d 4*S(i,j,bj)**10 +0.3409 _d 4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
278 |
EBM_ATMOSPHERE |
& 1.2893 _d 4*S(i,j,bj)**12 ) |
|
./pkg/ebm/ebm_atmosphere.F |
290 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
292 |
EBM_ATMOSPHERE |
& Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
293 |
EBM_ATMOSPHERE |
& 1.892 _d 2*S(i,j,bj)**2 + 3.041 _d 2*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
294 |
EBM_ATMOSPHERE |
& 1.540 _d 3*S(i,j,bj)**4 - 9.586 _d 2*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
295 |
EBM_ATMOSPHERE |
& 2.939 _d 3*S(i,j,bj)**6 + 1.219 _d 3*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
296 |
EBM_ATMOSPHERE |
& 2.550 _d 3*S(i,j,bj)**8 - 5.396 _d 2*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
297 |
EBM_ATMOSPHERE |
& 8.119 _d 2*S(i,j,bj)**10) |
|
./pkg/ebm/ebm_atmosphere.F |
298 |
EBM_ATMOSPHERE |
& /(2.*PI*rSphere*rSphere*22.3 _d 0) ) |
|
./pkg/ebm/ebm_atmosphere.F |
306 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
307 |
EBM_ATMOSPHERE |
& *(-0.8454 _d 5*S(i,j,bj)**14 + 0.5367 _d 5*S(i,j,bj)**13 |
|
./pkg/ebm/ebm_atmosphere.F |
308 |
EBM_ATMOSPHERE |
& +3.3173 _d 5*S(i,j,bj)**12 - 1.8965 _d 5*S(i,j,bj)**11 |
|
./pkg/ebm/ebm_atmosphere.F |
309 |
EBM_ATMOSPHERE |
& -5.1701 _d 5*S(i,j,bj)**10 |
|
./pkg/ebm/ebm_atmosphere.F |
310 |
EBM_ATMOSPHERE |
& +2.6240 _d 5*S(i,j,bj)**9 + 4.077 _d 5*S(i,j,bj)**8 |
|
./pkg/ebm/ebm_atmosphere.F |
311 |
EBM_ATMOSPHERE |
& -1.791 _d 5*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
312 |
EBM_ATMOSPHERE |
& -1.7231 _d 5*S(i,j,bj)**6 + 0.6229 _d 5*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
313 |
EBM_ATMOSPHERE |
& +0.3824 _d 5*S(i,j,bj)**4 |
|
./pkg/ebm/ebm_atmosphere.F |
314 |
EBM_ATMOSPHERE |
& -0.1017 _d 5*S(i,j,bj)**3 - 0.0387 _d 5*S(i,j,bj)**2 |
|
./pkg/ebm/ebm_atmosphere.F |
315 |
EBM_ATMOSPHERE |
& +0.00562 _d 5*S(i,j,bj) + 0.0007743 _d 5) |
|
./pkg/ebm/ebm_atmosphere.F |
327 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
328 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
329 |
EBM_ATMOSPHERE |
& - 1336.3 _d 0*S(i,j,bj)**2 - 425.8 _d 0*S(i,j,bj)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
330 |
EBM_ATMOSPHERE |
& + 5434.8 _d 0*S(i,j,bj)**4 + 707.9 _d 0*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
331 |
EBM_ATMOSPHERE |
& - 6987.7 _d 0*S(i,j,bj)**6 - 360.4 _d 0*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
332 |
EBM_ATMOSPHERE |
& + 2855.0 _d 0*S(i,j,bj)**8) |
|
./pkg/ebm/ebm_atmosphere.F |
338 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
339 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
340 |
EBM_ATMOSPHERE |
& 2.388 _d 3*S(i,j,bj)**2 - 4.101 _d 3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
341 |
EBM_ATMOSPHERE |
& 1.963 _d 4*S(i,j,bj)**4 + 1.534 _d 4*S(i,j,bj)**5 - |
|
./pkg/ebm/ebm_atmosphere.F |
342 |
EBM_ATMOSPHERE |
& 6.556 _d 4*S(i,j,bj)**6 - 2.478 _d 4*S(i,j,bj)**7 + |
|
./pkg/ebm/ebm_atmosphere.F |
343 |
EBM_ATMOSPHERE |
& 1.083 _d 5*S(i,j,bj)**8 + 1.85 _d 4*S(i,j,bj)**9 - |
|
./pkg/ebm/ebm_atmosphere.F |
344 |
EBM_ATMOSPHERE |
& 8.703 _d 4*S(i,j,bj)**10 - 5.276 _d 3*S(i,j,bj)**11 + |
|
./pkg/ebm/ebm_atmosphere.F |
345 |
EBM_ATMOSPHERE |
& 2.703 _d 4*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
349 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
350 |
EBM_ATMOSPHERE |
& *(-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
351 |
EBM_ATMOSPHERE |
& 1.041 _d 3*S(i,j,bj)**2 - 7.546 _d 3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
352 |
EBM_ATMOSPHERE |
& 2.335 _d 3*S(i,j,bj)**4 + 3.449 _d 4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
353 |
EBM_ATMOSPHERE |
& 6.702 _d 3*S(i,j,bj)**6 - 6.601 _d 4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
354 |
EBM_ATMOSPHERE |
& 2.594 _d 4*S(i,j,bj)**8 + 5.652 _d 4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
355 |
EBM_ATMOSPHERE |
& 2.738 _d 4*S(i,j,bj)**10 - 1.795 _d 4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
356 |
EBM_ATMOSPHERE |
& 9.486 _d 3*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_load_climatology.F |
61 |
EBM_LOAD_CLIMATOLOGY |
tauMax = 0.1 _d 0 |
|
./pkg/ebm/ebm_load_climatology.F |
63 |
EBM_LOAD_CLIMATOLOGY |
lY = 0. _d 0 |
|
./pkg/ebm/ebm_readparms.F |
103 |
EBM_READPARMS |
IF ( tauThetaZonRelax .NE. 0. _d 0 ) THEN |
|
./pkg/ebm/ebm_readparms.F |
104 |
EBM_READPARMS |
IF ( tauThetaClimRelax.NE.0. _d 0 ) THEN |
|
./pkg/ebm/ebm_readparms.F |
121 |
EBM_READPARMS |
latBnd(1) = 0. _d 0 |
|
./pkg/ebm/ebm_readparms.F |
122 |
EBM_READPARMS |
latBnd(2) = 35. _d 0 |
|
./pkg/ebm/ebm_readparms.F |
123 |
EBM_READPARMS |
latBnd(3) = 85. _d 0 |
|
./pkg/ebm/ebm_zonalmean.F |
89 |
EBM_ZONALMEAN |
IF ( CountX(j,bj).GT.0. _d 0 ) THEN |
|
./pkg/ebm/ebm_zonalmean.F |
97 |
EBM_ZONALMEAN |
IF ( tauThetaZonRelax .NE. 0. _d 0 ) THEN |
|
./pkg/ecco/cost_averagesfields.F |
203 |
COST_AVERAGESFIELDS |
& *(1. _d 0 - RHOsumGlob/RHOsumGlob_0) |
|
./pkg/ecco/cost_averagesfields.F |
218 |
COST_AVERAGESFIELDS |
genprecipGloH=0. _d 0 |
|
./pkg/ecco/cost_averagesfields.F |
627 |
COST_AVERAGESFIELDS |
& THETA(i,j,k,bi,bj),prmm,0. _d 0) |
|
./pkg/ecco/cost_averagesfields.F |
737 |
COST_AVERAGESFIELDS |
& transpbar(locdayrec,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
107 |
COST_AVERAGESINIT |
psbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
111 |
COST_AVERAGESINIT |
xx_psbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
118 |
COST_AVERAGESINIT |
bpbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
122 |
COST_AVERAGESINIT |
xx_bpbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
129 |
COST_AVERAGESINIT |
iestaubar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
132 |
COST_AVERAGESINIT |
xx_iestaubar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
140 |
COST_AVERAGESINIT |
sigmaRbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
144 |
COST_AVERAGESINIT |
xx_sigmaRbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
157 |
COST_AVERAGESINIT |
tbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
161 |
COST_AVERAGESINIT |
xx_tbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
169 |
COST_AVERAGESINIT |
tbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
172 |
COST_AVERAGESINIT |
xx_tbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
182 |
COST_AVERAGESINIT |
sstbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
185 |
COST_AVERAGESINIT |
xx_sstbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
196 |
COST_AVERAGESINIT |
sbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
200 |
COST_AVERAGESINIT |
xx_sbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
208 |
COST_AVERAGESINIT |
sbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
211 |
COST_AVERAGESINIT |
xx_sbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
222 |
COST_AVERAGESINIT |
ubar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
223 |
COST_AVERAGESINIT |
vbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
227 |
COST_AVERAGESINIT |
xx_ubar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
228 |
COST_AVERAGESINIT |
xx_vbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
236 |
COST_AVERAGESINIT |
wbar(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
240 |
COST_AVERAGESINIT |
xx_wbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
248 |
COST_AVERAGESINIT |
tauxbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
249 |
COST_AVERAGESINIT |
tauybar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
252 |
COST_AVERAGESINIT |
xx_taux_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
253 |
COST_AVERAGESINIT |
xx_tauy_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
260 |
COST_AVERAGESINIT |
hfluxmeanbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
263 |
COST_AVERAGESINIT |
xx_hflux_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
270 |
COST_AVERAGESINIT |
sfluxmeanbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
273 |
COST_AVERAGESINIT |
xx_sflux_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
282 |
COST_AVERAGESINIT |
smrareabar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
283 |
COST_AVERAGESINIT |
smrsstbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
284 |
COST_AVERAGESINIT |
smrsssbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
287 |
COST_AVERAGESINIT |
xx_smrareabar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
288 |
COST_AVERAGESINIT |
xx_smrsstbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
289 |
COST_AVERAGESINIT |
xx_smrsssbar_mean_dummy = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
296 |
COST_AVERAGESINIT |
transpbar(irec,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
83 |
COST_AVERAGESINIT |
gencost_barfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
84 |
COST_AVERAGESINIT |
gencost_modfld(i,j,bi,bj,k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
87 |
COST_AVERAGESINIT |
gencost_dummy(k) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
94 |
COST_AVERAGESINIT |
gencost_bar3d(i,j,k,bi,bj,kk) = 0. _d 0 |
|
./pkg/ecco/cost_averagesinit.F |
95 |
COST_AVERAGESINIT |
gencost_mod3d(i,j,k,bi,bj,kk) = 0. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
146 |
COST_BP_READ |
localmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp_read.F |
148 |
COST_BP_READ |
localmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
118 |
COST_GENCOST_BOXMEAN |
tmpSumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
119 |
COST_GENCOST_BOXMEAN |
tmpSumGlo=0. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
128 |
COST_GENCOST_BOXMEAN |
gencost_mskTemporal=1. _d 0 / gencost_mskTemporal |
|
./pkg/ecco/cost_gencost_boxmean.F |
91 |
COST_GENCOST_BOXMEAN |
mySumTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
92 |
COST_GENCOST_BOXMEAN |
myVolTile(bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
93 |
COST_GENCOST_BOXMEAN |
mySumGlo=0. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
94 |
COST_GENCOST_BOXMEAN |
myVolGlo=0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
107 |
COST_GENCOST_BPV4 |
fac = 1. _d 2 / 9.81 _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
112 |
COST_GENCOST_BPV4 |
bpdifmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
113 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
114 |
COST_GENCOST_BPV4 |
bpdatmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
115 |
COST_GENCOST_BPV4 |
bpdatanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
116 |
COST_GENCOST_BPV4 |
bpcount(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
117 |
COST_GENCOST_BPV4 |
locwbp(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
118 |
COST_GENCOST_BPV4 |
locbpbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
119 |
COST_GENCOST_BPV4 |
locbpdat(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
120 |
COST_GENCOST_BPV4 |
locbpmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
174 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
175 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
180 |
COST_GENCOST_BPV4 |
bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
193 |
COST_GENCOST_BPV4 |
if (bpcount(i,j,bi,bj).GT. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
228 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
229 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
236 |
COST_GENCOST_BPV4 |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
237 |
COST_GENCOST_BPV4 |
bpdatanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
245 |
COST_GENCOST_BPV4 |
offset = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
246 |
COST_GENCOST_BPV4 |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_bpv4.F |
252 |
COST_GENCOST_BPV4 |
if ( (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
253 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
269 |
COST_GENCOST_BPV4 |
if ((offset_sum.GT. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
270 |
COST_GENCOST_BPV4 |
& (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
271 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
292 |
COST_GENCOST_BPV4 |
& call SMOOTH_BASIC2D(bpdifanom,maskc,300000. _d 0,3000,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
298 |
COST_GENCOST_BPV4 |
& call SMOOTH_BASIC2D(bpdatanom,maskc,300000. _d 0,3000,mythid) |
|
./pkg/ecco/cost_gencost_bpv4.F |
315 |
COST_GENCOST_BPV4 |
if ( (locwbp(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
316 |
COST_GENCOST_BPV4 |
& (locbpmask(i,j,bi,bj).NE. 0. _d 0).AND. |
|
./pkg/ecco/cost_gencost_bpv4.F |
317 |
COST_GENCOST_BPV4 |
& (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_bpv4.F |
322 |
COST_GENCOST_BPV4 |
& + 1. _d 0 |
|
./pkg/ecco/cost_gencost_customize.F |
95 |
COST_GENCOST_CUSTOMIZE |
uBarC = 0.5 _d 0 |
|
./pkg/ecco/cost_gencost_customize.F |
97 |
COST_GENCOST_CUSTOMIZE |
vBarC = 0.5 _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
107 |
COST_GENCOST_GLBMEAN |
if(locw .NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
110 |
COST_GENCOST_GLBMEAN |
fac = 1. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
112 |
COST_GENCOST_GLBMEAN |
if(gencost_name(k).EQ.'gmbp') fac = 1. _d 2 * recip_gravity |
|
./pkg/ecco/cost_gencost_glbmean.F |
117 |
COST_GENCOST_GLBMEAN |
locbarmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
118 |
COST_GENCOST_GLBMEAN |
locbaranom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
119 |
COST_GENCOST_GLBMEAN |
loccount(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
120 |
COST_GENCOST_GLBMEAN |
locbar(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
133 |
COST_GENCOST_GLBMEAN |
meandataglbmean = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
134 |
COST_GENCOST_GLBMEAN |
meandataglbmeannu = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
136 |
COST_GENCOST_GLBMEAN |
dataglbmean(irec) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
137 |
COST_GENCOST_GLBMEAN |
locmask(irec) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
145 |
COST_GENCOST_GLBMEAN |
locmask(irec) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
147 |
COST_GENCOST_GLBMEAN |
meandataglbmeannu = meandataglbmeannu + 1. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
150 |
COST_GENCOST_GLBMEAN |
if(meandataglbmeannu.NE.0. _d 0) |
|
./pkg/ecco/cost_gencost_glbmean.F |
155 |
COST_GENCOST_GLBMEAN |
if(locmask(irec).EQ.1. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
175 |
COST_GENCOST_GLBMEAN |
if(locmask(irec) .NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
185 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0 ) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
188 |
COST_GENCOST_GLBMEAN |
loccount(i,j,bi,bj) = loccount(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
202 |
COST_GENCOST_GLBMEAN |
if (loccount(i,j,bi,bj).GT. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
218 |
COST_GENCOST_GLBMEAN |
if(locmask(irec) .NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
228 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
232 |
COST_GENCOST_GLBMEAN |
locbaranom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
240 |
COST_GENCOST_GLBMEAN |
locbarglbmean = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
241 |
COST_GENCOST_GLBMEAN |
locbarglbmean_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_glbmean.F |
247 |
COST_GENCOST_GLBMEAN |
if ( maskc(i,j,1,bi,bj).NE. 0. _d 0) then |
|
./pkg/ecco/cost_gencost_glbmean.F |
261 |
COST_GENCOST_GLBMEAN |
& ( locmask(irec) .NE. 0. _d 0 ) .AND. |
|
./pkg/ecco/cost_gencost_glbmean.F |
262 |
COST_GENCOST_GLBMEAN |
& ( locbarglbmean_sum .NE. 0. _d 0 ) ) THEN |
|
./pkg/ecco/cost_gencost_glbmean.F |
268 |
COST_GENCOST_GLBMEAN |
& + 1. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
139 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_conc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
140 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_conc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
142 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_deconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
143 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_deconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
146 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_exconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
147 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_exconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
425 |
GET_EXCONC_DECONC |
SEAICE_freeze = -1.96 _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
426 |
GET_EXCONC_DECONC |
epsilonTemp = 0.0001 _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
428 |
GET_EXCONC_DECONC |
epsilonHEFF = 0.3 _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
430 |
GET_EXCONC_DECONC |
epsilonHEFF = 0.01 _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
432 |
GET_EXCONC_DECONC |
localnorm = 1. _d -07 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
478 |
GET_EXCONC_DECONC |
& - (-1. _d 0 *epsilonHEFF*const2) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1005 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1007 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1017 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1019 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1042 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1043 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1053 |
COST_GENCOST_SSHV4 |
slaoffset = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1054 |
COST_GENCOST_SSHV4 |
slaoffset_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1055 |
COST_GENCOST_SSHV4 |
slaoffset_weight = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1117 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1118 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1175 |
COST_GENCOST_SSHV4 |
junk = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1176 |
COST_GENCOST_SSHV4 |
anom_slaobs_SUB(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1177 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj)= 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1184 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_lsc) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1204 |
COST_GENCOST_SSHV4 |
& ( slaoffset_sum.GT.0.25 _d 0 * globalArea ) ) THEN |
|
./pkg/ecco/cost_gencost_sshv4.F |
1206 |
COST_GENCOST_SSHV4 |
junkweight=1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1210 |
COST_GENCOST_SSHV4 |
& + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1231 |
COST_GENCOST_SSHV4 |
& 'etaday', 0. _d 0, myThid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1237 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1238 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1239 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1240 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1241 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1242 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1268 |
COST_GENCOST_SSHV4 |
anom_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1269 |
COST_GENCOST_SSHV4 |
anom_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1270 |
COST_GENCOST_SSHV4 |
anom_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1271 |
COST_GENCOST_SSHV4 |
anom_tpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1272 |
COST_GENCOST_SSHV4 |
anom_ersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1273 |
COST_GENCOST_SSHV4 |
anom_gfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1355 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_tp) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1365 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_ers) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1375 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_gfo) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
257 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
258 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
259 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
260 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
261 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
262 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
263 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
264 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
344 |
COST_GENCOST_SSHV4 |
factor = 0.01 _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
345 |
COST_GENCOST_SSHV4 |
spval = -9990. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
356 |
COST_GENCOST_SSHV4 |
& (mdtob(i,j,bi,bj) .eq. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
357 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
358 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
360 |
COST_GENCOST_SSHV4 |
mdtma(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
374 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
375 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
388 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
389 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
390 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
391 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
392 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
393 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
420 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
426 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
432 |
COST_GENCOST_SSHV4 |
mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
453 |
COST_GENCOST_SSHV4 |
mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
513 |
COST_GENCOST_SSHV4 |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
514 |
COST_GENCOST_SSHV4 |
mean_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
515 |
COST_GENCOST_SSHV4 |
mean_psMtpobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
516 |
COST_GENCOST_SSHV4 |
mean_psMersobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
517 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
518 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
519 |
COST_GENCOST_SSHV4 |
mean_slaobs_model(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
521 |
COST_GENCOST_SSHV4 |
mean_psMtpobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
522 |
COST_GENCOST_SSHV4 |
mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
523 |
COST_GENCOST_SSHV4 |
mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
524 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
525 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
531 |
COST_GENCOST_SSHV4 |
offset = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
532 |
COST_GENCOST_SSHV4 |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
548 |
COST_GENCOST_SSHV4 |
& 'etaday', 0. _d 0, myThid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
554 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
555 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
556 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
557 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
558 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
559 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
595 |
COST_GENCOST_SSHV4 |
& mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
605 |
COST_GENCOST_SSHV4 |
& mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
615 |
COST_GENCOST_SSHV4 |
& mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
674 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
676 |
COST_GENCOST_SSHV4 |
mean_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
677 |
COST_GENCOST_SSHV4 |
mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
690 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
697 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
698 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
702 |
COST_GENCOST_SSHV4 |
num0array(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
705 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
706 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
707 |
COST_GENCOST_SSHV4 |
num0array(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
721 |
COST_GENCOST_SSHV4 |
num0total=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
731 |
COST_GENCOST_SSHV4 |
if(num0total.lt.1. _d 0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
783 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
791 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
794 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
795 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
860 |
COST_GENCOST_SSHV4 |
if (mean_psMssh_all_MSK(i,j,bi,bj).NE.0. _d 0) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
865 |
COST_GENCOST_SSHV4 |
junk = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
866 |
COST_GENCOST_SSHV4 |
junkweight = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
871 |
COST_GENCOST_SSHV4 |
& num_gencost(bi,bj,igen_mdt) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
920 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
921 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
922 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
923 |
COST_GENCOST_SSHV4 |
anom_slaobs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
924 |
COST_GENCOST_SSHV4 |
anom_slaobs_SUB(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
925 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_NUM(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
948 |
COST_GENCOST_SSHV4 |
& 'etaday', 0. _d 0, myThid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
954 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
955 |
COST_GENCOST_SSHV4 |
tpob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
956 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
957 |
COST_GENCOST_SSHV4 |
ersob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
958 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
959 |
COST_GENCOST_SSHV4 |
gfoob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
993 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
995 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
176 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
177 |
COST_GENCOST_SSTV4 |
obs_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
178 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
179 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
261 |
COST_GENCOST_SSTV4 |
nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
280 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
336 |
COST_GENCOST_SSTV4 |
& num_gencost(kgen_lsc,bi,bj) + 1. _d 0 /ndaysaveRL |
|
./pkg/ecco/cost_gencost_sstv4.F |
417 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
419 |
COST_GENCOST_SSTV4 |
anom_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
420 |
COST_GENCOST_SSTV4 |
msk_sst(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
446 |
COST_GENCOST_SSTV4 |
& num_gencost(kgen,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
136 |
COST_GENCOST_TRANSP |
objf_gencost(bi,bj,kgen(icount))=0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
137 |
COST_GENCOST_TRANSP |
num_gencost(bi,bj,kgen(icount))=0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
148 |
COST_GENCOST_TRANSP |
facCost=1. _d 0 / float(nrecloc) |
|
./pkg/ecco/cost_gencost_transp.F |
236 |
COST_GENCOST_TRANSP |
tmpMeanTile(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
237 |
COST_GENCOST_TRANSP |
tmpNumTile(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
271 |
COST_GENCOST_TRANSP |
tmpMeanGlo = 0. _d 0 |
|
./pkg/ecco/cost_gencost_transp.F |
272 |
COST_GENCOST_TRANSP |
tmpNumGlo = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
102 |
COST_GENERIC |
objf_local(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_generic.F |
103 |
COST_GENERIC |
num_local(bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
156 |
COST_OBCS_AGEOS |
fcthread = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
157 |
COST_OBCS_AGEOS |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
164 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
165 |
COST_OBCS_AGEOS |
xzdvel1(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
166 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
167 |
COST_OBCS_AGEOS |
xzgrdrho(i,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
170 |
COST_OBCS_AGEOS |
maskyzageos(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
171 |
COST_OBCS_AGEOS |
yzdvel1(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
172 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
173 |
COST_OBCS_AGEOS |
yzgrdrho(j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcs_ageos.F |
183 |
COST_OBCS_AGEOS |
rholoc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
128 |
COST_OBCSE |
fcthread = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
176 |
COST_OBCSE |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
189 |
COST_OBCSE |
& num_obcse(bi,bj) = num_obcse(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
126 |
COST_OBCSN |
fcthread = 0. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
174 |
COST_OBCSN |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
187 |
COST_OBCSN |
& num_obcsn(bi,bj) = num_obcsn(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_obcss.F |
126 |
COST_OBCSS |
fcthread = 0. _d 0 |
|
./pkg/ecco/cost_obcss.F |
176 |
COST_OBCSS |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcss.F |
189 |
COST_OBCSS |
& num_obcss(bi,bj) = num_obcss(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
131 |
COST_OBCSVOL |
sumvol = 0. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
213 |
COST_OBCSVOL |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
255 |
COST_OBCSVOL |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
298 |
COST_OBCSVOL |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsvol.F |
341 |
COST_OBCSVOL |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsw.F |
126 |
COST_OBCSW |
fcthread = 0. _d 0 |
|
./pkg/ecco/cost_obcsw.F |
174 |
COST_OBCSW |
fctile = 0. _d 0 |
|
./pkg/ecco/cost_obcsw.F |
187 |
COST_OBCSW |
& num_obcsw(bi,bj) = num_obcsw(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
143 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
145 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
148 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
151 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
156 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read.F |
161 |
COST_SLA_READ |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
122 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
124 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
127 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
130 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
135 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
140 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
159 |
COST_SLA_READ_YD |
sla_obs(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_sla_read_yd.F |
160 |
COST_SLA_READ_YD |
sla_mask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
107 |
COST_SSH |
costmean = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
111 |
COST_SSH |
wwwtp(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
112 |
COST_SSH |
wwwers(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
113 |
COST_SSH |
wwwgfo(i,j) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
134 |
COST_SSH |
psmean(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
151 |
COST_SSH |
if (mdt(i,j,bi,bj) .lt. -9990. _d 0) then |
|
./pkg/ecco/cost_ssh.F |
152 |
COST_SSH |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
155 |
COST_SSH |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
158 |
COST_SSH |
& mdtmask(i,j,bi,bj)*0.01 _d 0 |
|
./pkg/ecco/cost_ssh.F |
189 |
COST_SSH |
offset = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
190 |
COST_SSH |
offset_sum = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
250 |
COST_SSH |
objf_hmean = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
316 |
COST_SSH |
& num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
324 |
COST_SSH |
num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
343 |
COST_SSH |
& num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
351 |
COST_SSH |
num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
370 |
COST_SSH |
& num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
378 |
COST_SSH |
num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0 |
|
./pkg/ecco/ecco_cost_driver.F |
100 |
ECCO_COST_DRIVER |
& nmonsrec, nmonsrec, bpstartdate, 0. _d 0, |
|
./pkg/ecco/ecco_cost_driver.F |
101 |
ECCO_COST_DRIVER |
& 'C', -1. _d 2, 1. _d 2, 0. _d 0, |
|
./pkg/ecco/ecco_cost_final.F |
1246 |
ECCO_COST_FINAL |
if (no_gentim2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1257 |
ECCO_COST_FINAL |
if (no_genarr2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1268 |
ECCO_COST_FINAL |
if (no_genarr3d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1567 |
ECCO_COST_FINAL |
if (no_gentim2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1581 |
ECCO_COST_FINAL |
if (no_genarr2d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
1595 |
ECCO_COST_FINAL |
if (no_genarr3d(num_var).GT.0. _d 0) then |
|
./pkg/ecco/ecco_cost_final.F |
187 |
ECCO_COST_FINAL |
locfc = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
189 |
ECCO_COST_FINAL |
f_temp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
190 |
ECCO_COST_FINAL |
f_salt = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
191 |
ECCO_COST_FINAL |
f_temp0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
192 |
ECCO_COST_FINAL |
f_salt0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
193 |
ECCO_COST_FINAL |
f_temp0smoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
194 |
ECCO_COST_FINAL |
f_salt0smoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
195 |
ECCO_COST_FINAL |
f_etan0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
196 |
ECCO_COST_FINAL |
f_uvel0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
197 |
ECCO_COST_FINAL |
f_vvel0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
198 |
ECCO_COST_FINAL |
f_tauu = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
199 |
ECCO_COST_FINAL |
f_tauum = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
200 |
ECCO_COST_FINAL |
f_tauusmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
201 |
ECCO_COST_FINAL |
f_tauv = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
202 |
ECCO_COST_FINAL |
f_tauvm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
203 |
ECCO_COST_FINAL |
f_tauvsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
204 |
ECCO_COST_FINAL |
f_hflux = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
205 |
ECCO_COST_FINAL |
f_hfluxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
206 |
ECCO_COST_FINAL |
f_hfluxsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
207 |
ECCO_COST_FINAL |
f_hfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
208 |
ECCO_COST_FINAL |
f_hfluxmm2 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
209 |
ECCO_COST_FINAL |
f_sflux = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
210 |
ECCO_COST_FINAL |
f_sfluxsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
211 |
ECCO_COST_FINAL |
f_sfluxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
212 |
ECCO_COST_FINAL |
f_sfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
213 |
ECCO_COST_FINAL |
f_sfluxmm2 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
214 |
ECCO_COST_FINAL |
f_uwind = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
215 |
ECCO_COST_FINAL |
f_vwind = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
216 |
ECCO_COST_FINAL |
f_atemp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
217 |
ECCO_COST_FINAL |
f_aqh = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
218 |
ECCO_COST_FINAL |
f_precip = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
219 |
ECCO_COST_FINAL |
f_swflux = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
220 |
ECCO_COST_FINAL |
f_swdown = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
221 |
ECCO_COST_FINAL |
f_lwflux = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
222 |
ECCO_COST_FINAL |
f_lwdown = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
223 |
ECCO_COST_FINAL |
f_uwindm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
224 |
ECCO_COST_FINAL |
f_vwindm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
225 |
ECCO_COST_FINAL |
f_atempm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
226 |
ECCO_COST_FINAL |
f_aqhm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
227 |
ECCO_COST_FINAL |
f_precipm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
228 |
ECCO_COST_FINAL |
f_swfluxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
229 |
ECCO_COST_FINAL |
f_swdownm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
230 |
ECCO_COST_FINAL |
f_lwfluxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
231 |
ECCO_COST_FINAL |
f_lwdownm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
232 |
ECCO_COST_FINAL |
f_uwindsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
233 |
ECCO_COST_FINAL |
f_vwindsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
234 |
ECCO_COST_FINAL |
f_atempsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
235 |
ECCO_COST_FINAL |
f_aqhsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
236 |
ECCO_COST_FINAL |
f_precipsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
237 |
ECCO_COST_FINAL |
f_swfluxsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
238 |
ECCO_COST_FINAL |
f_swdownsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
239 |
ECCO_COST_FINAL |
f_lwfluxsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
240 |
ECCO_COST_FINAL |
f_lwdownsmoo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
241 |
ECCO_COST_FINAL |
f_ssh = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
242 |
ECCO_COST_FINAL |
f_tp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
243 |
ECCO_COST_FINAL |
f_ers = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
244 |
ECCO_COST_FINAL |
f_gfo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
245 |
ECCO_COST_FINAL |
f_sst = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
246 |
ECCO_COST_FINAL |
f_tmi = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
247 |
ECCO_COST_FINAL |
f_sss = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
248 |
ECCO_COST_FINAL |
f_bp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
249 |
ECCO_COST_FINAL |
f_atl = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
250 |
ECCO_COST_FINAL |
f_ctdt = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
251 |
ECCO_COST_FINAL |
f_ctds = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
252 |
ECCO_COST_FINAL |
f_ctdtclim = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
253 |
ECCO_COST_FINAL |
f_ctdsclim = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
254 |
ECCO_COST_FINAL |
f_xbt = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
255 |
ECCO_COST_FINAL |
f_argot = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
256 |
ECCO_COST_FINAL |
f_argos = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
257 |
ECCO_COST_FINAL |
f_drifter = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
258 |
ECCO_COST_FINAL |
f_sdrift = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
259 |
ECCO_COST_FINAL |
f_tdrift = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
260 |
ECCO_COST_FINAL |
f_wdrift = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
261 |
ECCO_COST_FINAL |
f_scatx = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
262 |
ECCO_COST_FINAL |
f_scaty = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
263 |
ECCO_COST_FINAL |
f_scatxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
264 |
ECCO_COST_FINAL |
f_scatym = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
265 |
ECCO_COST_FINAL |
f_curmtr = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
266 |
ECCO_COST_FINAL |
f_ageos = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
267 |
ECCO_COST_FINAL |
f_ini_fin = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
268 |
ECCO_COST_FINAL |
f_kapgm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
269 |
ECCO_COST_FINAL |
f_kapredi = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
270 |
ECCO_COST_FINAL |
f_diffkr = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
271 |
ECCO_COST_FINAL |
f_eddytau = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
272 |
ECCO_COST_FINAL |
f_bottomdrag = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
273 |
ECCO_COST_FINAL |
f_transp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
274 |
ECCO_COST_FINAL |
f_ies = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
277 |
ECCO_COST_FINAL |
f_obcsn = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
278 |
ECCO_COST_FINAL |
f_obcss = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
279 |
ECCO_COST_FINAL |
f_obcsw = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
280 |
ECCO_COST_FINAL |
f_obcse = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
284 |
ECCO_COST_FINAL |
f_profiles(num_file,num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
288 |
ECCO_COST_FINAL |
f_profiles_mean(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
293 |
ECCO_COST_FINAL |
f_gencost(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
298 |
ECCO_COST_FINAL |
f_gentim2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
303 |
ECCO_COST_FINAL |
f_genarr2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
308 |
ECCO_COST_FINAL |
f_genarr3d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
313 |
ECCO_COST_FINAL |
no_temp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
314 |
ECCO_COST_FINAL |
no_salt = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
315 |
ECCO_COST_FINAL |
no_temp0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
316 |
ECCO_COST_FINAL |
no_salt0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
317 |
ECCO_COST_FINAL |
no_etan0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
318 |
ECCO_COST_FINAL |
no_uvel0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
319 |
ECCO_COST_FINAL |
no_vvel0 = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
320 |
ECCO_COST_FINAL |
no_tauu = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
321 |
ECCO_COST_FINAL |
no_tauum = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
322 |
ECCO_COST_FINAL |
no_tauv = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
323 |
ECCO_COST_FINAL |
no_tauvm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
324 |
ECCO_COST_FINAL |
no_hflux = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
325 |
ECCO_COST_FINAL |
no_hfluxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
326 |
ECCO_COST_FINAL |
no_hfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
327 |
ECCO_COST_FINAL |
no_sflux = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
328 |
ECCO_COST_FINAL |
no_sfluxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
329 |
ECCO_COST_FINAL |
no_sfluxmm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
330 |
ECCO_COST_FINAL |
no_uwind = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
331 |
ECCO_COST_FINAL |
no_vwind = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
332 |
ECCO_COST_FINAL |
no_atemp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
333 |
ECCO_COST_FINAL |
no_aqh = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
334 |
ECCO_COST_FINAL |
no_precip = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
335 |
ECCO_COST_FINAL |
no_swflux = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
336 |
ECCO_COST_FINAL |
no_swdown = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
337 |
ECCO_COST_FINAL |
no_lwflux = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
338 |
ECCO_COST_FINAL |
no_lwdown = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
339 |
ECCO_COST_FINAL |
no_uwindm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
340 |
ECCO_COST_FINAL |
no_vwindm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
341 |
ECCO_COST_FINAL |
no_atempm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
342 |
ECCO_COST_FINAL |
no_aqhm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
343 |
ECCO_COST_FINAL |
no_precipm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
344 |
ECCO_COST_FINAL |
no_swfluxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
345 |
ECCO_COST_FINAL |
no_swdownm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
346 |
ECCO_COST_FINAL |
no_lwfluxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
347 |
ECCO_COST_FINAL |
no_lwdownm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
348 |
ECCO_COST_FINAL |
no_ssh = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
349 |
ECCO_COST_FINAL |
no_tp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
350 |
ECCO_COST_FINAL |
no_ers = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
351 |
ECCO_COST_FINAL |
no_gfo = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
352 |
ECCO_COST_FINAL |
no_sst = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
353 |
ECCO_COST_FINAL |
no_tmi = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
354 |
ECCO_COST_FINAL |
no_sss = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
355 |
ECCO_COST_FINAL |
no_bp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
356 |
ECCO_COST_FINAL |
no_atl = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
357 |
ECCO_COST_FINAL |
no_ctdt = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
358 |
ECCO_COST_FINAL |
no_ctds = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
359 |
ECCO_COST_FINAL |
no_ctdtclim = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
360 |
ECCO_COST_FINAL |
no_ctdsclim = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
361 |
ECCO_COST_FINAL |
no_xbt = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
362 |
ECCO_COST_FINAL |
no_argot = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
363 |
ECCO_COST_FINAL |
no_argos = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
364 |
ECCO_COST_FINAL |
no_drifter = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
365 |
ECCO_COST_FINAL |
no_sdrift = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
366 |
ECCO_COST_FINAL |
no_tdrift = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
367 |
ECCO_COST_FINAL |
no_wdrift = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
368 |
ECCO_COST_FINAL |
no_scatx = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
369 |
ECCO_COST_FINAL |
no_scaty = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
370 |
ECCO_COST_FINAL |
no_scatxm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
371 |
ECCO_COST_FINAL |
no_scatym = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
372 |
ECCO_COST_FINAL |
no_obcsn = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
373 |
ECCO_COST_FINAL |
no_obcss = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
374 |
ECCO_COST_FINAL |
no_obcsw = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
375 |
ECCO_COST_FINAL |
no_obcse = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
376 |
ECCO_COST_FINAL |
no_curmtr = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
377 |
ECCO_COST_FINAL |
no_ageos = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
378 |
ECCO_COST_FINAL |
no_ini_fin = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
379 |
ECCO_COST_FINAL |
no_kapgm = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
380 |
ECCO_COST_FINAL |
no_kapredi = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
381 |
ECCO_COST_FINAL |
no_diffkr = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
382 |
ECCO_COST_FINAL |
no_eddytau = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
383 |
ECCO_COST_FINAL |
no_bottomdrag = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
384 |
ECCO_COST_FINAL |
no_transp = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
385 |
ECCO_COST_FINAL |
no_ies = 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
391 |
ECCO_COST_FINAL |
no_profiles(num_file,num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
395 |
ECCO_COST_FINAL |
no_profiles_mean(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
400 |
ECCO_COST_FINAL |
no_gencost(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
405 |
ECCO_COST_FINAL |
no_gentim2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
410 |
ECCO_COST_FINAL |
no_genarr2d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_final.F |
415 |
ECCO_COST_FINAL |
no_genarr3d(num_var)= 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
139 |
ECCO_COST_INIT_BARFILES |
tmpfld2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
149 |
ECCO_COST_INIT_BARFILES |
tmpfld3d(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
242 |
ECCO_COST_INIT_FIXED |
gencost_1DDATA(irec,k) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
245 |
ECCO_COST_INIT_FIXED |
if(gencost_wei1d(k).NE.0. _d 0)then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
246 |
ECCO_COST_INIT_FIXED |
gencost_wei1d(k) = 1. _d 0 / gencost_wei1d(k) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
302 |
ECCO_COST_INIT_FIXED |
wtransp(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
303 |
ECCO_COST_INIT_FIXED |
transpobs(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
326 |
ECCO_COST_INIT_FIXED |
& wtransp(irec) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
337 |
ECCO_COST_INIT_FIXED |
tpTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
338 |
ECCO_COST_INIT_FIXED |
ersTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
339 |
ECCO_COST_INIT_FIXED |
gfoTimeMask(irec) = 1. _d 0 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
71 |
ECCO_COST_INIT_FIXED |
PARAMETER ( missingObsFlag = 1. _d 23 ) |