File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_growth.F |
180 |
SEAICE_GROWTH |
INTEGER nDim |
./pkg/seaice/seaice_growth.F |
183 |
SEAICE_GROWTH |
PARAMETER ( nDim = MULTDIM ) |
./pkg/seaice/seaice_growth.F |
191 |
SEAICE_GROWTH |
PARAMETER ( nDim = 1 ) |
./pkg/seaice/seaice_growth.F |
566 |
SEAICE_GROWTH |
DO IT=1,nDim |
./pkg/seaice/seaice_growth.F |
570 |
SEAICE_GROWTH |
ilockey = (iicekey-1)*nDim + IT |
./pkg/seaice/seaice_growth.F |
574 |
SEAICE_GROWTH |
pFac = (2.0 _d 0*real(IT)-1.0 _d 0)/nDim |
./pkg/seaice/seaice_growth.F |
591 |
SEAICE_GROWTH |
& + a_QbyATMmult_cover(I,J)/nDim |
./pkg/seaice/seaice_growth.F |
593 |
SEAICE_GROWTH |
& + a_QSWbyATMmult_cover(I,J)/nDim |
./pkg/seaice/seaice_growth.F |
595 |
SEAICE_GROWTH |
& + a_FWbySublimMult(I,J)/nDim |