| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
173 |
NO PROCEDURE |
COMMON/MULTICATEGORY/TICES |
|
./pkg/seaice/SEAICE.h |
174 |
NO PROCEDURE |
_RL TICES (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
|
./pkg/seaice/cost_ice_test.F |
183 |
COST_ICE_TEST |
& (TICES(i,j,1,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) * |
|
./pkg/seaice/seaice_diagnostics_state.F |
91 |
SEAICE_DIAGNOSTICS_STATE |
& + TICES(I,J,K,bi,bj)*tmp*recip_multDim |
|
./pkg/seaice/seaice_growth.F |
792 |
SEAICE_GROWTH |
ticeInMult(I,J,IT) = TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
793 |
SEAICE_GROWTH |
ticeOutMult(I,J,IT) = TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
794 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = ZERO |
|
./pkg/seaice/seaice_growth.F |
879 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = ticeOutMult(I,J,IT) |
|
./pkg/seaice/seaice_init_varia.F |
338 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
425 |
SEAICE_INIT_VARIA |
TICES(i,j,k,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_read_pickup.F |
146 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,nITD, TICES, nj,nIter0,myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
150 |
SEAICE_READ_PICKUP |
CALL READ_REC_LEV_RL( fn, fp, nITD,1,1, TICES, |
|
./pkg/seaice/seaice_read_pickup.F |
191 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siTICES ', TICES, |
|
./pkg/seaice/seaice_read_pickup.F |
196 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_LEV_RL( 'siTICE ', TICES, |
|
./pkg/seaice/seaice_read_pickup.F |
202 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_LEV_RL( 'siTICE ', TICES, |
|
./pkg/seaice/seaice_read_pickup.F |
205 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_LEV_RL( 'siTICES ', TICES, |
|
./pkg/seaice/seaice_read_pickup.F |
312 |
SEAICE_READ_PICKUP |
TICES(i,j,k,bi,bj) = TICES(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_read_pickup.F |
324 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL( TICES, nITD, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
225 |
SEAICE_REG_RIDGE |
TICES(I,J,IT,bi,bj)=celsius2K |
|
./pkg/seaice/seaice_reg_ridge.F |
333 |
SEAICE_REG_RIDGE |
& + TICES(I,J,IT,bi,bj) * HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_write_pickup.F |
105 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,fp,nITD,TICES, nj, myIter, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
111 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_LEV_RL( fn, fp, nITD, 1, 1, TICES, |
|
./pkg/seaice/seaice_write_pickup.F |
86 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, TICES, -j, myIter,myThid ) |