| 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 |
486 |
DYNSOLVER |
CALL DIAGNOSTICS_FILL(zeta ,'SIzeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_calc_viscosities.F |
100 |
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 |
102 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
103 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC |
|
./pkg/seaice/seaice_calc_viscosities.F |
114 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
55 |
SEAICE_CALC_VISCOSITIES |
_RL zeta (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_calc_viscosities.F |
97 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_calc_viscosities.F |
99 |
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 |
9 |
SEAICE_CALC_VISCOSITIES |
O eta, zeta, press, |
|
./pkg/seaice/seaice_diagnostics_state.F |
103 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(zeta ,'SIzeta ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_diagnostics_state.F |
152 |
SEAICE_DIAGNOSTICS_STATE |
sig1 = 2.*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
285 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_lsr.F |
212 |
SEAICE_LSR |
O eta, zeta, press, |
|
./pkg/seaice/seaice_lsr.F |
902 |
SEAICE_LSR |
sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus |
|
./pkg/seaice/seaice_lsr.F |
904 |
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 |