| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_init_fixed.F |
142 |
KPP_INIT_FIXED |
zeta = zehat / max(phepsi,usta**3) |
|
./pkg/kpp/kpp_init_fixed.F |
144 |
KPP_INIT_FIXED |
wmt(i,j) = vonk*usta/(1. + conc1*zeta) |
|
./pkg/kpp/kpp_init_fixed.F |
147 |
KPP_INIT_FIXED |
IF (zeta .GT. zetam) THEN |
|
./pkg/kpp/kpp_init_fixed.F |
148 |
KPP_INIT_FIXED |
wmt(i,j) = vonk*usta*(1. - conc2*zeta)**p25 |
|
./pkg/kpp/kpp_init_fixed.F |
152 |
KPP_INIT_FIXED |
IF (zeta .GT. zetas) THEN |
|
./pkg/kpp/kpp_init_fixed.F |
153 |
KPP_INIT_FIXED |
wst(i,j) = vonk*usta*SQRT(1. _d 0 - conc3*zeta) |
|
./pkg/kpp/kpp_init_fixed.F |
41 |
KPP_INIT_FIXED |
_RL zeta |
|
./pkg/seaice/dynsolver.F |
297 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(zeta ,'SIzeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/lsr.F |
284 |
LSR |
& + zeta(I,J,bi,bj) + zeta(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
292 |
LSR |
& + zeta(I,J,bi,bj) + zeta(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
132 |
SEAICE_CALC_LHS |
I e11, e22, e12, press, zeta, eta, etaZ, |
|
./pkg/seaice/seaice_calc_residual.F |
103 |
SEAICE_CALC_RESIDUAL |
O eta, etaZ, zeta, zetaZ, press, deltaC, |
|
./pkg/seaice/seaice_calc_stressdiv.F |
106 |
SEAICE_CALC_STRESS |
I e11, e22, e12, press, zeta, eta, etaZ, |
|
./pkg/seaice/seaice_calc_stressdiv.F |
145 |
SEAICE_CALC_STRESS |
_RL zeta (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
173 |
SEAICE_CALC_STRESS |
sig11(i,j) = zeta(i,j,bi,bj)*eplus + eta(i,j,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
175 |
SEAICE_CALC_STRESS |
sig22(i,j) = zeta(i,j,bi,bj)*eplus - eta(i,j,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_stressdiv.F |
18 |
SEAICE_CALC_STRESSDIV |
I e11, e22, e12, press, zeta, eta, etaZ, |
|
./pkg/seaice/seaice_calc_stressdiv.F |
57 |
SEAICE_CALC_STRESSDIV |
_RL zeta (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
75 |
SEAICE_CALC_STRESSDIV |
I e11, e22, e12, press, zeta, eta, etaZ, |
|
./pkg/seaice/seaice_calc_viscosities.F |
13 |
SEAICE_CALC_VISCOSITIES |
O eta, etaZ, zeta, zetaZ, press, deltaC, |
|
./pkg/seaice/seaice_calc_viscosities.F |
156 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = ZMAX(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
159 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
163 |
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 |
165 |
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 |
167 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
168 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = recip_e2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
172 |
SEAICE_CALC_VISCOSITIES |
& + TWO*zeta(I,J,bi,bj)*deltaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
189 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)*ep |
|
./pkg/seaice/seaice_calc_viscosities.F |
206 |
SEAICE_CALC_VISCOSITIES |
& ( zeta(I,J ,bi,bj) + zeta(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
207 |
SEAICE_CALC_VISCOSITIES |
& + zeta(I,J-1,bi,bj) + zeta(I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
61 |
SEAICE_CALC_VISCOSITIES |
_RL zeta (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_diagnostics_state.F |
128 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(zeta ,'SIzeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
206 |
SEAICE_DIAGNOSTICS_STATE |
I e11, e22, e12, press, zeta, eta, etaZ, |
|
./pkg/seaice/seaice_evp.F |
501 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_jfnk.F |
200 |
SEAICE_JFNK |
zetaPre(I,J,bi,bj) = zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
225 |
SEAICE_KRYLOV |
O eta, etaZ, zeta, zetaZ, press, deltaC, |
|
./pkg/seaice/seaice_krylov.F |
348 |
SEAICE_KRYLOV |
I zeta, eta, etaZ, zetaZ, dwatn, |
|
./pkg/seaice/seaice_lsr.F |
185 |
SEAICE_LSR |
zeta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
330 |
SEAICE_LSR |
O eta, etaZ, zeta, zetaZ, press, deltaC, |
|
./pkg/seaice/seaice_lsr.F |
993 |
SEAICE_LSR |
I e11, e22, e12, press, zeta, eta, etaZ, |
|
./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 |