| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
161 |
GWDRAG |
call STRIPIT ( uz,us,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
191 |
GWDRAG |
dragt(i,j,L) = -( uz(i,j,L)*dragu(i,j,L)+vz(i,j,L)*dragv(i,j,L) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
49 |
GWDRAG |
_RL uz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
4 |
GWDRAG |
subroutine GWDRAG (myid,pz,pl,ple,dpres,pkz,uz,vz,tz,qz,phis_var, |
|
./pkg/fizhi/fizhi_moist.F |
26 |
MOISTIO |
_RL uz(im,jm,lm),vz(im,jm,lm) |
|
./pkg/fizhi/fizhi_moist.F |
314 |
MOISTIO |
ugather(indx,L,ntracerin-ptracer+1) = uz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
7 |
MOISTIO |
. pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer, |
|
./pkg/fizhi/fizhi_turb.F |
120 |
TURBIO |
_RL pz(im*jm,1),uz(im*jm,1,nlay),vz(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
27 |
TURBIO |
1 ,ndturb,nltop,ptop, pz, uz, vz, tz, qz, ntracers,ptracers |
|
./pkg/fizhi/fizhi_turb.F |
441 |
TURBIO |
call STRIP2TILE(uz,igrd,u,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
879 |
TURBIO |
call STRIP2TILE(uz(1,1,l),igrd,tmpstrip,nchp,ijall, |
|
./pkg/seaice/lsr.F |
1017 |
LSR |
uz(i,j) = quart * ( |
|
./pkg/seaice/lsr.F |
1019 |
LSR |
uz(i,j)= uz(i,j) + quart * ( |
|
./pkg/seaice/lsr.F |
1032 |
LSR |
& *(uz(i,j)-uz(i-1,j)) * _recip_dxC(i,j,bi,bj) |
|
./pkg/seaice/lsr.F |
1035 |
LSR |
& *(uz(i,j-1)-uz(i-1,j-1)) * _recip_dxC(i,j-1,bi,bj) |
|
./pkg/seaice/lsr.F |
133 |
LSR |
_RL uz (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |