| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
204 |
DO_FIZHI |
t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa |
|
./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 |
39 |
DO_FIZHI |
_RL thphy(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 |
167 |
FIZHI_INIT_VARS |
thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
194 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
39 |
DO_FIZHI |
_RL thphy(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 |
17 |
FIZHI_STEP_DIAG |
_RL thphy(im2,jm2,Nrphys,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
299 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = thphy(i,j,L,bi,bj)*pk(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 |
72 |
STEP_FIZHI_FG |
tempij(i,j) = thphy(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 |
15 |
NO PROCEDURE |
_RL thphy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_read_pickup.F |
107 |
FIZHI_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'thphy',thphy,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
59 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,thphy,3,myThid) |
|
./pkg/fizhi/step_fizhi_corr.F |
148 |
STEP_FIZHI_CORR |
tempphy(i,j,Nrphys+1-L,bi,bj) = thphy(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 |
273 |
STEP_FIZHI_CORR |
tempij(i,j) = thphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
167 |
FIZHI_INIT_VARS |
thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
75 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,thphy,3,myIter,myThid) |
|
./pkg/fizhi/step_physics.F |
17 |
STEP_PHYSICS |
_RL thphy(idim1:idim2,jdim1:jdim2,Nrphys,Nsx,Nsy) |
|
./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 |
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 |
203 |
DO_FIZHI |
t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa |
|
./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 |
39 |
DO_FIZHI |
_RL thphy(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 |
70 |
FIZHI_WRITE_STATE |
call MDSWRITEFIELD(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid) |