| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
144 |
NO PROCEDURE |
INTEGER MULTDIM |
|
./pkg/seaice/SEAICE.h |
145 |
NO PROCEDURE |
PARAMETER (MULTDIM=7) |
|
./pkg/seaice/SEAICE.h |
148 |
NO PROCEDURE |
_RL TICES (1-OLx:sNx+OLx,1-OLy:sNy+OLy,MULTDIM,nSx,nSy) |
|
./pkg/seaice/seaice_check_pickup.F |
92 |
SEAICE_CHECK_PICKUP |
DO k=1,MULTDIM |
|
./pkg/seaice/seaice_diagnostics_state.F |
77 |
SEAICE_DIAGNOSTICS_STATE |
recip_multdim = 1. _d 0/MULTDIM |
|
./pkg/seaice/seaice_diagnostics_state.F |
78 |
SEAICE_DIAGNOSTICS_STATE |
DO k=1,MULTDIM |
|
./pkg/seaice/seaice_growth.F |
302 |
SEAICE_GROWTH |
DO IT=1,MULTDIM |
|
./pkg/seaice/seaice_growth.F |
304 |
SEAICE_GROWTH |
ilockey = (iicekey-1)*MULTDIM + IT |
|
./pkg/seaice/seaice_growth.F |
311 |
SEAICE_GROWTH |
HICEP(I,J)=(HICE(I,J)/MULTDIM)*((2.0 _d 0*RK)-1.0 _d 0) |
|
./pkg/seaice/seaice_growth.F |
323 |
SEAICE_GROWTH |
FICE (I,J) = FICE(I,J) + FICEP(I,J)/MULTDIM |
|
./pkg/seaice/seaice_growth.F |
324 |
SEAICE_GROWTH |
QSWI (I,J) = QSWI(I,J) + QSWIP(I,J)/MULTDIM |
|
./pkg/seaice/seaice_init_varia.F |
261 |
SEAICE_INIT_VARIA |
DO k=1,MULTDIM |
|
./pkg/seaice/seaice_init_varia.F |
81 |
SEAICE_INIT_VARIA |
DO k=1,MULTDIM |
|
./pkg/seaice/seaice_read_pickup.F |
132 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,MULTDIM, TICES, nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
133 |
SEAICE_READ_PICKUP |
nj = nj + MULTDIM |
|
./pkg/seaice/seaice_read_pickup.F |
175 |
SEAICE_READ_PICKUP |
& nj, fp, MULTDIM, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
176 |
SEAICE_READ_PICKUP |
nj = nj*MULTDIM |
|
./pkg/seaice/seaice_read_pickup.F |
252 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL ( TICES, MULTDIM, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
74 |
SEAICE_READ_PICKUP |
I MULTDIM, nIter0, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
78 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,fp,MULTDIM,TICES, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
81 |
SEAICE_WRITE_PICKUP |
nj = nj*MULTDIM |