| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
202 |
DO_FIZHI |
u(i,j,L) = uphy(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 |
37 |
DO_FIZHI |
_RL uphy(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 |
149 |
FIZHI_INIT_VARS |
uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
177 |
DO_FIZHI |
duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
37 |
DO_FIZHI |
_RL uphy(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 |
15 |
FIZHI_STEP_DIAG |
_RL uphy(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
277 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = uphy(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 |
56 |
STEP_FIZHI_FG |
tempij(i,j) = uphy(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 |
13 |
NO PROCEDURE |
_RL uphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_read_pickup.F |
105 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'uphy',uphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
57 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,uphy,1,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
112 |
STEP_FIZHI_CORR |
windphy(i,j,L,bi,bj) = sqrt(uphy(i,j,L,bi,bj)*uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
130 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = uphy(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 |
257 |
STEP_FIZHI_CORR |
tempij(i,j) = uphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
149 |
FIZHI_INIT_VARS |
uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
73 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,uphy,1,myIter,myThid) |
|
./pkg/fizhi/step_physics.F |
15 |
STEP_PHYSICS |
_RL uphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./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 |
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 |
201 |
DO_FIZHI |
u(i,j,L) = uphy(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 |
37 |
DO_FIZHI |
_RL uphy(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 |
64 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,uphy,1,myIter,myThid) |