| File |
Line number |
Procedure |
Code |
|
./verification/flt_example/extra/cvprofiles.F |
191 |
NO PROCEDURE |
allocate (zeta(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
206 |
NO PROCEDURE |
zeta(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
287 |
NO PROCEDURE |
zeta(ip,np) = SNGL(tmp(6)) |
|
./verification/flt_example/extra/cvprofiles.F |
529 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, zeta, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
66 |
NO PROCEDURE |
real, dimension(:,:), allocatable :: xpart,ypart,kpart,zeta |
|
./verification/flt_example/extra/cvfloat.F |
180 |
NO PROCEDURE |
allocate (zeta(npart,icount)) |
|
./verification/flt_example/extra/cvfloat.F |
193 |
NO PROCEDURE |
zeta(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
256 |
NO PROCEDURE |
zeta(ip,np) = SNGL(tmp(10)) |
|
./verification/flt_example/extra/cvfloat.F |
448 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, zeta, iret) |
|
./verification/flt_example/extra/cvfloat.F |
64 |
NO PROCEDURE |
& ,uvel,vvel,temp,salt,zeta |
|
./pkg/kpp/kpp_init.F |
36 |
KPP_INIT |
_KPP_RL zeta |
|
./pkg/kpp/kpp_init.F |
57 |
KPP_INIT |
zeta = zehat / max(phepsi,usta**3) |
|
./pkg/kpp/kpp_init.F |
59 |
KPP_INIT |
wmt(i,j) = vonk*usta/(1. + conc1*zeta) |
|
./pkg/kpp/kpp_init.F |
62 |
KPP_INIT |
if (zeta .gt. zetam) then |
|
./pkg/kpp/kpp_init.F |
63 |
KPP_INIT |
wmt(i,j) = vonk*usta*(1. - conc2*zeta)**(1./4.) |
|
./pkg/kpp/kpp_init.F |
67 |
KPP_INIT |
if (zeta .gt. zetas) then |
|
./pkg/kpp/kpp_init.F |
68 |
KPP_INIT |
wst(i,j) = vonk*usta*(1. - conc3*zeta)**(1./2.) |
|
./pkg/seaice/seaice_lsr.F |
114 |
SEAICE_LSR |
O eta, zeta, press, |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
zetaMinusEta(I,J) = zeta(I,J,bi,bj) - eta(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
89 |
SEAICE_OCEAN_STRESS |
O eta, zeta, press, |
|
./pkg/seaice/seaice_ocean_stress.F |
99 |
SEAICE_OCEAN_STRESS |
etaPlusZeta (I,J) = eta(I,J,bi,bj) + zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
zeta(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
106 |
SEAICE_CALC_VISCOSITIES |
zeta(I,J,bi,bj)=MIN(ZMAX(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
107 |
SEAICE_CALC_VISCOSITIES |
zeta(I,J,bi,bj)=MAX(ZMIN(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
109 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
110 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
111 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO*zeta(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
150 |
SEAICE_CALC_VISCOSITIES |
_EXCH_XY_R8( zeta, myThid) |
|
./pkg/seaice/seaice_calc_viscosities.F |
46 |
SEAICE_CALC_VISCOSITIES |
_RL zeta (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_calc_viscosities.F |
9 |
SEAICE_CALC_VISCOSITIES |
O eta, zeta, press, |
|
./pkg/seaice/seaice_evp.F |
119 |
SEAICE_EVP |
O eta, zeta, press, |