| 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 |
294 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(zeta ,'SIzeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/lsr.F |
281 |
LSR |
& + zeta(I,J,bi,bj) + zeta(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
289 |
LSR |
& + zeta(I,J,bi,bj) + zeta(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
114 |
SEAICE_CALC_LHS |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_lhs.F |
116 |
SEAICE_CALC_LHS |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_calc_residual.F |
89 |
SEAICE_CALC_RESIDUAL |
O eta, etaZ, zeta, press, deltaC, |
|
./pkg/seaice/seaice_calc_viscosities.F |
10 |
SEAICE_CALC_VISCOSITIES |
O eta, etaZ, zeta, press, deltaC, |
|
./pkg/seaice/seaice_calc_viscosities.F |
134 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = ZMAX(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
137 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_calc_viscosities.F |
139 |
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 |
141 |
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 |
143 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
144 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
146 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
156 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
60 |
SEAICE_CALC_VISCOSITIES |
_RL zeta (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_diagnostics_state.F |
125 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(zeta ,'SIzeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
174 |
SEAICE_DIAGNOSTICS_STATE |
sig1 = 2.*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
311 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_jfnk.F |
186 |
SEAICE_JFNK |
zetaPre(I,J,bi,bj) = zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
169 |
SEAICE_LSR |
zeta (i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
293 |
SEAICE_LSR |
O eta, etaZ, zeta, press, deltaC, |
|
./pkg/seaice/seaice_lsr.F |
920 |
SEAICE_LSR |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
922 |
SEAICE_LSR |
sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus |
|
./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 |