| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
203 |
DO_FIZHI |
v(i,j,L) = vphy(i,j,L,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
307 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres, |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
38 |
DO_FIZHI |
_RL vphy(idim1:idim2,jdim1:jdim2,Nrphin,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 |
158 |
FIZHI_INIT_VARS |
vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
178 |
DO_FIZHI |
dvphy(i,j,L,bi,bj)= -kV*vphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
38 |
DO_FIZHI |
_RL vphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
7 |
DO_FIZHI |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |
|
./pkg/fizhi/fizhi_step_diag.F |
16 |
FIZHI_STEP_DIAG |
_RL vphy(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
288 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
5 |
FIZHI_STEP_DIAG |
subroutine FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pk,dp, |
|
./pkg/fizhi/step_fizhi_fg.F |
47 |
STEP_FIZHI_FG |
call STEP_PHYSICS(uphy,vphy,thphy,sphy,dt,idim1,idim2, |
|
./pkg/fizhi/step_fizhi_fg.F |
64 |
STEP_FIZHI_FG |
tempij(i,j) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_coms.h |
10 |
NO PROCEDURE |
common /physics_state/ uphy,vphy,thphy,sphy, |
|
./pkg/fizhi/fizhi_coms.h |
14 |
NO PROCEDURE |
_RL vphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_read_pickup.F |
106 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'vphy',vphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
58 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,vphy,2,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
113 |
STEP_FIZHI_CORR |
. + vphy(i,j,L,bi,bj)*vphy(i,j,L,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
139 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
248 |
STEP_FIZHI_CORR |
call STEP_PHYSICS(uphy,vphy,thphy,sphy,dt,im1,im2,jm1,jm2, |
|
./pkg/fizhi/step_fizhi_corr.F |
265 |
STEP_FIZHI_CORR |
tempij(i,j) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
158 |
FIZHI_INIT_VARS |
vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
74 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,vphy,2,myIter,myThid) |
|
./pkg/fizhi/step_physics.F |
16 |
STEP_PHYSICS |
_RL vphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./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 |
5 |
STEP_PHYSICS |
subroutine STEP_PHYSICS(uphy,vphy,thphy,sphy,dt, |
|
./pkg/fizhi/fizhi_wrapper.F |
140 |
FIZHI_WRAPPER |
. uphy,vphy,thphy,sphy,pephy4fiz,xC,yC,topoZ, |
|
./pkg/fizhi/do_fizhi.F |
202 |
DO_FIZHI |
v(i,j,L) = vphy(i,j,L,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
306 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres, |
|
./pkg/fizhi/do_fizhi.F |
38 |
DO_FIZHI |
_RL vphy(idim1:idim2,jdim1:jdim2,Nrphin,Nsxin,Nsyin) |
|
./pkg/fizhi/do_fizhi.F |
7 |
DO_FIZHI |
. uphy,vphy,thphy,sphy,pephy,lons,lats,Zsurf, |
|
./pkg/fizhi/fizhi_write_state.F |
67 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,vphy,1,myIter,myThid) |