| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
104 |
NO PROCEDURE |
_RL uIceNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/SEAICE.h |
88 |
NO PROCEDURE |
& uIceNm1, vIceNm1 |
|
./pkg/seaice/lsr.F |
262 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*uIceNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
151 |
SEAICE_EVP |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
537 |
SEAICE_EVP |
& * uIceNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
568 |
SEAICE_EVP |
& + uIceNm1(i,j,bi,bj)*(ONE-locMaskU) |
|
./pkg/seaice/seaice_init_varia.F |
273 |
SEAICE_INIT_VARIA |
uIceNm1(i,j,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
146 |
SEAICE_JFNK |
& + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_jfnk.F |
149 |
SEAICE_JFNK |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
174 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
238 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
252 |
SEAICE_LSR |
uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
267 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
367 |
SEAICE_LSR |
& *uIceNm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
861 |
SEAICE_LSR |
& ( ( (uIceNm1(i,j,bi,bj)+uIceNm1(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_model.F |
88 |
SEAICE_MODEL |
uIceNm1(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_read_pickup.F |
259 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL('siUicNm1', uIceNm1, |
|
./pkg/seaice/seaice_write_pickup.F |
165 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, uIceNm1 , nj, myIter, myThid ) |