| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_wrapper.F |
105 |
FIZHI_WRAPPER |
vdynbef(i,j,L,bi,bj) = vvel(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
115 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
119 |
FIZHI_WRAPPER |
thbef(i,j,L,bi,bj) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
126 |
FIZHI_WRAPPER |
thdynbef(i,j,L,bi,bj) = theta(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
136 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
140 |
FIZHI_WRAPPER |
sbef(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
147 |
FIZHI_WRAPPER |
sdynbef(i,j,L,bi,bj) = salt(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
158 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
165 |
FIZHI_WRAPPER |
pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
167 |
FIZHI_WRAPPER |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
171 |
FIZHI_WRAPPER |
pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
173 |
FIZHI_WRAPPER |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
174 |
FIZHI_WRAPPER |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
181 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_wrapper.F |
187 |
FIZHI_WRAPPER |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
189 |
FIZHI_WRAPPER |
. pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
194 |
FIZHI_WRAPPER |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
196 |
FIZHI_WRAPPER |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/fizhi_wrapper.F |
197 |
FIZHI_WRAPPER |
. drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
200 |
FIZHI_WRAPPER |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
201 |
FIZHI_WRAPPER |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_wrapper.F |
211 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
215 |
FIZHI_WRAPPER |
tempphy(i,j,L,bi,bj) = pephy4fiz(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
229 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
230 |
FIZHI_WRAPPER |
call GET_LANDFRAC(im2,jm2,Nsx,Nsy,bi,bj,maxtyp, |
|
./pkg/fizhi/fizhi_wrapper.F |
231 |
FIZHI_WRAPPER |
. surftype,tilefrac,fracland(1,1,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
238 |
FIZHI_WRAPPER |
tempdiag(i,j,bi,bj) = topoZ(i,j,bi,bj)*grav |
|
./pkg/fizhi/fizhi_wrapper.F |
240 |
FIZHI_WRAPPER |
tempLdiag(i,j,L,bi,bj) = pephy4fiz(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/fizhi_wrapper.F |
241 |
FIZHI_WRAPPER |
tempLdiag2(i,j,L,bi,bj) = thphy(i,j,L,bi,bj) * |
|
./pkg/fizhi/fizhi_wrapper.F |
242 |
FIZHI_WRAPPER |
. (1.+0.609*sphy(i,j,L,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
244 |
FIZHI_WRAPPER |
tempLdiag(i,j,Nrphys+1,bi,bj)=pephy4fiz(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/fizhi_wrapper.F |
247 |
FIZHI_WRAPPER |
call SLPRS(tempdiag(1,1,bi,bj),tempLdiag(1,1,1,bi,bj), |
|
./pkg/fizhi/fizhi_wrapper.F |
248 |
FIZHI_WRAPPER |
. tempLdiag2(1,1,1,bi,bj),fracland(1,1,bi,bj),sNx,sNy,Nrphys,slp) |
|
./pkg/fizhi/fizhi_wrapper.F |
255 |
FIZHI_WRAPPER |
. 1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
263 |
FIZHI_WRAPPER |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/fizhi_wrapper.F |
283 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
290 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
295 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,guphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
299 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
304 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gvphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
308 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
313 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gthphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
317 |
FIZHI_WRAPPER |
tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
322 |
FIZHI_WRAPPER |
. Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,pedyn,ksurfC,Nr,nlperdyn,gsphy) |
|
./pkg/fizhi/fizhi_wrapper.F |
53 |
FIZHI_WRAPPER |
integer i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/fizhi_wrapper.F |
73 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
77 |
FIZHI_WRAPPER |
ubef(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
84 |
FIZHI_WRAPPER |
udynbef(i,j,L,bi,bj) = uvel(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
94 |
FIZHI_WRAPPER |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_wrapper.F |
98 |
FIZHI_WRAPPER |
vbef(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
104 |
FIZHI_WRITE_PICKUP |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
107 |
FIZHI_WRITE_PICKUP |
temp(i,j,1,bi,bj) = raincon(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
108 |
FIZHI_WRITE_PICKUP |
temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
109 |
FIZHI_WRITE_PICKUP |
temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
113 |
FIZHI_WRITE_PICKUP |
temp(1,1,4,bi,bj) = float(iras(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
114 |
FIZHI_WRITE_PICKUP |
temp(2,1,4,bi,bj) = float(nlwcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
115 |
FIZHI_WRITE_PICKUP |
temp(3,1,4,bi,bj) = float(nlwlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
116 |
FIZHI_WRITE_PICKUP |
temp(4,1,4,bi,bj) = float(nswcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
117 |
FIZHI_WRITE_PICKUP |
temp(5,1,4,bi,bj) = float(nswlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
118 |
FIZHI_WRITE_PICKUP |
temp(6,1,4,bi,bj) = float(imstturbsw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
119 |
FIZHI_WRITE_PICKUP |
temp(7,1,4,bi,bj) = float(imstturblw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
49 |
FIZHI_WRITE_PICKUP |
integer i,j,k,bi,bj |
|
./pkg/fizhi/fizhi_write_pickup.F |
53 |
FIZHI_WRITE_PICKUP |
do bi = 1,myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
57 |
FIZHI_WRITE_PICKUP |
temp(i,j,k,bi,bj) = 0. |
|
./pkg/fizhi/step_fizhi_corr.F |
101 |
STEP_FIZHI_CORR |
if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
102 |
STEP_FIZHI_CORR |
. pedyn(i,j,Nr+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
108 |
STEP_FIZHI_CORR |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
110 |
STEP_FIZHI_CORR |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
113 |
STEP_FIZHI_CORR |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
114 |
STEP_FIZHI_CORR |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
123 |
STEP_FIZHI_CORR |
windphy(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
124 |
STEP_FIZHI_CORR |
. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
125 |
STEP_FIZHI_CORR |
. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
134 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
142 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
147 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
151 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
156 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
160 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
165 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
169 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
174 |
STEP_FIZHI_CORR |
. 1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp) |
|
./pkg/fizhi/step_fizhi_corr.F |
189 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
194 |
STEP_FIZHI_CORR |
udyntemp(i,j,L,bi,bj)=uvel(i,j,L,bi,bj)-udyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
195 |
STEP_FIZHI_CORR |
vdyntemp(i,j,L,bi,bj)=vvel(i,j,L,bi,bj)-vdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
196 |
STEP_FIZHI_CORR |
thdyntemp(i,j,L,bi,bj)=theta(i,j,L,bi,bj)-thdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
197 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj)=salt(i,j,L,bi,bj)-sdyntemp(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
214 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
217 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
222 |
STEP_FIZHI_CORR |
uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
227 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
231 |
STEP_FIZHI_CORR |
vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
236 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
240 |
STEP_FIZHI_CORR |
thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
245 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
249 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
259 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
261 |
STEP_FIZHI_CORR |
. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj, |
|
./pkg/fizhi/step_fizhi_corr.F |
265 |
STEP_FIZHI_CORR |
. jdim1,jdim2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
279 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
287 |
STEP_FIZHI_CORR |
tempij(i,j) = (uphy (i,j,L,bi,bj)-ubef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
291 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDUFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
299 |
STEP_FIZHI_CORR |
tempij(i,j) = (vphy (i,j,L,bi,bj)-vbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
303 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDVFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
311 |
STEP_FIZHI_CORR |
tempij(i,j) = (thphy (i,j,L,bi,bj)-thbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
315 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDTFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
323 |
STEP_FIZHI_CORR |
tempij(i,j) = (sphy (i,j,L,bi,bj)-sbef(i,j,L,bi,bj) ) |
|
./pkg/fizhi/step_fizhi_corr.F |
327 |
STEP_FIZHI_CORR |
call DIAGNOSTICS_FILL(tempij,'TENDQFIZ',L,1,3,bi,bj,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
342 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
346 |
STEP_FIZHI_CORR |
udyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
347 |
STEP_FIZHI_CORR |
. (uvel(i,j,L,bi,bj)-udynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
348 |
STEP_FIZHI_CORR |
. guphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
349 |
STEP_FIZHI_CORR |
vdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
350 |
STEP_FIZHI_CORR |
. (vvel(i,j,L,bi,bj)-vdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
351 |
STEP_FIZHI_CORR |
. gvphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
365 |
STEP_FIZHI_CORR |
windphy(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
366 |
STEP_FIZHI_CORR |
. sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
367 |
STEP_FIZHI_CORR |
. + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
373 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
379 |
STEP_FIZHI_CORR |
uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
384 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
388 |
STEP_FIZHI_CORR |
vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
396 |
STEP_FIZHI_CORR |
uphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
397 |
STEP_FIZHI_CORR |
. ( (uphy(i,j,L,bi,bj)-ubef(i,j,L,bi,bj))*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 |
399 |
STEP_FIZHI_CORR |
vphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
400 |
STEP_FIZHI_CORR |
. ( (vphy(i,j,L,bi,bj)-vbef(i,j,L,bi,bj))*dtinv |
|
./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 |
424 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
428 |
STEP_FIZHI_CORR |
thdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
429 |
STEP_FIZHI_CORR |
. (theta(i,j,L,bi,bj)-thdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
430 |
STEP_FIZHI_CORR |
. gthphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
437 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
443 |
STEP_FIZHI_CORR |
thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
451 |
STEP_FIZHI_CORR |
thphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
452 |
STEP_FIZHI_CORR |
. ( (thphy(i,j,L,bi,bj)-thbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
453 |
STEP_FIZHI_CORR |
. - dthphy(i,j,L,bi,bj) - thphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
470 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
474 |
STEP_FIZHI_CORR |
sdyntemp(i,j,L,bi,bj) = |
|
./pkg/fizhi/step_fizhi_corr.F |
475 |
STEP_FIZHI_CORR |
. (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv - |
|
./pkg/fizhi/step_fizhi_corr.F |
476 |
STEP_FIZHI_CORR |
. gsphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
483 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
489 |
STEP_FIZHI_CORR |
sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
497 |
STEP_FIZHI_CORR |
sphytemp(i,j,L,bi,bj)= |
|
./pkg/fizhi/step_fizhi_corr.F |
498 |
STEP_FIZHI_CORR |
. ( (sphy(i,j,L,bi,bj)-sbef(i,j,L,bi,bj))*dtinv |
|
./pkg/fizhi/step_fizhi_corr.F |
499 |
STEP_FIZHI_CORR |
. - dsphy(i,j,L,bi,bj) - sphytemp(i,j,L,bi,bj) ) * 86400. _d 0 |
|
./pkg/fizhi/step_fizhi_corr.F |
56 |
STEP_FIZHI_CORR |
integer i, j, L, Lbotij, bi, bj |
|
./pkg/fizhi/step_fizhi_corr.F |
76 |
STEP_FIZHI_CORR |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
82 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = 0. |
|
./pkg/fizhi/step_fizhi_corr.F |
88 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
90 |
STEP_FIZHI_CORR |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
95 |
STEP_FIZHI_CORR |
Lbotij = ksurfC(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
97 |
STEP_FIZHI_CORR |
pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) - |
|
./pkg/fizhi/step_fizhi_corr.F |
98 |
STEP_FIZHI_CORR |
. drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
27 |
STEP_FIZHI_FG |
integer bi, bj |
|
./pkg/fizhi/step_fizhi_fg.F |
44 |
STEP_FIZHI_FG |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/step_fizhi_fg.F |
49 |
STEP_FIZHI_FG |
. Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj,duphy,dvphy,dthphy,dsphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
52 |
STEP_FIZHI_FG |
print *,' In step fizhi fg, new fizhi fields ',bi,' dt= ',dt |
|
./pkg/fizhi/step_fizhi_fg.F |
56 |
STEP_FIZHI_FG |
tempij(i,j) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
64 |
STEP_FIZHI_FG |
tempij(i,j) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
72 |
STEP_FIZHI_FG |
tempij(i,j) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
80 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_fg.F |
88 |
STEP_FIZHI_FG |
. jm1,jm2,bi,bj,dpphys,sphy) |
|
./pkg/fizhi/step_fizhi_fg.F |
91 |
STEP_FIZHI_FG |
print *,' In step fizhi fg after qcheck ',bi |
|
./pkg/fizhi/step_fizhi_fg.F |
95 |
STEP_FIZHI_FG |
tempij(i,j) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_physics.F |
14 |
STEP_PHYSICS |
integer Nrphys,Nsx,Nsy,bi,bj |
|
./pkg/fizhi/step_physics.F |
30 |
STEP_PHYSICS |
uphy(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) + duphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
31 |
STEP_PHYSICS |
vphy(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) + dvphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
32 |
STEP_PHYSICS |
thphy(i,j,L,bi,bj)=thphy(i,j,L,bi,bj) + dthphy(i,j,L,bi,bj)* dt |
|
./pkg/fizhi/step_physics.F |
33 |
STEP_PHYSICS |
sphy(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) + dsphy(i,j,L,bi,bj) * dt |
|
./pkg/fizhi/step_physics.F |
6 |
STEP_PHYSICS |
. idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj, |
|
./pkg/fizhi/update_chemistry_exports.F |
111 |
INTERP_CHEMISTRY |
. qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
117 |
INTERP_CHEMISTRY |
integer nwatlevs,nwatlats,nozlevs,nozlats,nSx,nSy,bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
132 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,qz,qzrad(1,1,1,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
134 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,ozrad(1,1,1,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
140 |
INTERP_QZ |
. irun,bi,bj,xlat,nlevs,pres,qz_in,qz_out ) |
|
./pkg/fizhi/update_chemistry_exports.F |
159 |
INTERP_QZ |
integer bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
279 |
INTERP_OZ |
. irun,bi,bj,xlat,nlevs,plevs,ozrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
296 |
INTERP_OZ |
integer bi,bj |
|
./pkg/fizhi/update_chemistry_exports.F |
35 |
UPDATE_CHEMISTRY_EXPORTS |
integer i, j, L, LL, bi, bj |
|
./pkg/fizhi/update_chemistry_exports.F |
50 |
UPDATE_CHEMISTRY_EXPORTS |
do bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/fizhi/update_chemistry_exports.F |
56 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
59 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,LL,bi,bj)=pephy(i,j,LL+1,bi,bj)-dpphys(i,j,L-1,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
66 |
UPDATE_CHEMISTRY_EXPORTS |
pphy(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)+pephy(i,j,L,bi,bj)) |
|
./pkg/fizhi/update_chemistry_exports.F |
74 |
UPDATE_CHEMISTRY_EXPORTS |
xlat(i,j) = yC(i,j,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
76 |
UPDATE_CHEMISTRY_EXPORTS |
waterin(i,j,L) = sphy(i,j,L,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
98 |
UPDATE_CHEMISTRY_EXPORTS |
. waterin,pphy(1,1,1,bi,bj),xlat, |
|
./pkg/fizhi/update_chemistry_exports.F |
99 |
UPDATE_CHEMISTRY_EXPORTS |
. im2,jm2,Nrphys,nSx,nSy,bi,bj,o3,qstr) |
|
./pkg/fizhi/update_earth_exports.F |
1010 |
GETEMISS |
call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp, |
|
./pkg/fizhi/update_earth_exports.F |
1014 |
GETEMISS |
emiss(i,j,k,bi,bj) = tmpij(i, |