| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/dyn2phys.F |
49 |
DYN2PHYS |
_RL pephy(im1:im2,jm1:jm2,lmphy+1,Nsx,Nsy) |
|
./pkg/gridalt/dyn2phys.F |
5 |
DYN2PHYS |
. idim1,idim2,jdim1,jdim2,bi,bj,windphy,pephy,Lbot,lmphy,nlperdyn, |
|
./pkg/gridalt/dyn2phys.F |
85 |
DYN2PHYS |
dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
45 |
PHYS2DYN |
_RL pephy(im1:im2,jm1:jm2,lmphy+1,Nsx,Nsy) |
|
./pkg/gridalt/phys2dyn.F |
4 |
PHYS2DYN |
subroutine PHYS2DYN(qphy,pephy,im1,im2,jm1,jm2,lmphy,Nsx,Nsy, |
|
./pkg/gridalt/phys2dyn.F |
78 |
PHYS2DYN |
dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
190 |
DO_FIZHI |
ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
191 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
192 |
DO_FIZHI |
p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
206 |
DO_FIZHI |
pl(i,j,L,bi,bj) = (pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))/200. |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
207 |
DO_FIZHI |
dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100. |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
208 |
DO_FIZHI |
ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100. |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
41 |
DO_FIZHI |
_RL pephy(idim1:idim2,jdim1:jdim2,Nrphin+1,Nsxin,Nsyin) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
7 |
DO_FIZHI |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
114 |
FIZHI_INIT_VARS |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
115 |
FIZHI_INIT_VARS |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
126 |
FIZHI_INIT_VARS |
. log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
143 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
154 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
41 |
FIZHI_INIT_VARS |
_RL pephy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys+1,nSx,nSy) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
172 |
DO_FIZHI |
recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
174 |
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 |
183 |
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 |
41 |
DO_FIZHI |
_RL pephy(idim1:idim2,jdim1:jdim2,Nrphin+1,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
7 |
DO_FIZHI |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |
|
./pkg/fizhi/step_fizhi_corr.F |
100 |
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 |
103 |
STEP_FIZHI_CORR |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/step_fizhi_corr.F |
104 |
STEP_FIZHI_CORR |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/step_fizhi_corr.F |
134 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
143 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
152 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
161 |
STEP_FIZHI_CORR |
call PHYS2DYN(tempphy,pephy,im1,im2,jm1,jm2,Nrphys,Nsx,Nsy, |
|
./pkg/fizhi/step_fizhi_corr.F |
205 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
215 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
224 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
233 |
STEP_FIZHI_CORR |
. 1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/step_fizhi_corr.F |
36 |
STEP_FIZHI_CORR |
_RL pephy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/step_fizhi_corr.F |
98 |
STEP_FIZHI_CORR |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
30 |
UPDATE_CHEMISTRY_EXPORTS |
_RL pephy(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy) |
|
./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/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
114 |
FIZHI_INIT_VARS |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_init_vars.F |
115 |
FIZHI_INIT_VARS |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/fizhi_init_vars.F |
126 |
FIZHI_INIT_VARS |
. log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.) |
|
./pkg/fizhi/fizhi_init_vars.F |
143 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
154 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
163 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
173 |
FIZHI_INIT_VARS |
. 1,sNx,1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy) |
|
./pkg/fizhi/fizhi_init_vars.F |
41 |
FIZHI_INIT_VARS |
_RL pephy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
169 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
178 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
187 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
196 |
FIZHI_WRAPPER |
call PHYS2DYN(tempphy,pephy,idim1,idim2,jdim1,jdim2,Nrphys, |
|
./pkg/fizhi/fizhi_wrapper.F |
41 |
FIZHI_WRAPPER |
_RL pephy(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nrphys+1,nSx,nSy) |
|
./pkg/fizhi/fizhi_wrapper.F |
67 |
FIZHI_WRAPPER |
pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
69 |
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 |
73 |
FIZHI_WRAPPER |
pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
75 |
FIZHI_WRAPPER |
if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5) |
|
./pkg/fizhi/fizhi_wrapper.F |
76 |
FIZHI_WRAPPER |
. pephy(i,j,Nrphys+1,bi,bj) = 1.e-5 |
|
./pkg/fizhi/do_fizhi.F |
189 |
DO_FIZHI |
ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
190 |
DO_FIZHI |
pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa |
|
./pkg/fizhi/do_fizhi.F |
191 |
DO_FIZHI |
p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
205 |
DO_FIZHI |
pl(i,j,L,bi,bj) = (pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))/200. |
|
./pkg/fizhi/do_fizhi.F |
206 |
DO_FIZHI |
dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100. |
|
./pkg/fizhi/do_fizhi.F |
207 |
DO_FIZHI |
ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
41 |
DO_FIZHI |
_RL pephy(idim1:idim2,jdim1:jdim2,Nrphin+1,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
7 |
DO_FIZHI |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |