| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
315 |
QSAT |
_RL TMAX, TICE |
|
./pkg/fizhi/fizhi_utils.F |
316 |
QSAT |
PARAMETER ( TMAX=323.15, TICE=273.16) |
|
./pkg/fizhi/fizhi_utils.F |
319 |
QSAT |
T = MIN(TT,TMAX) - TICE |
|
./pkg/fizhi/getcon.F |
125 |
NO PROCEDURE |
DATA ANAME(21),ACON(21) / 'FREEZING-POINT ', TICE / |
|
./pkg/fizhi/getcon.F |
35 |
NO PROCEDURE |
& HEATI, TICE, VKRM, DEG2RAD, CALTOJ, EPS, VIRTCON, EPSFAC, |
|
./pkg/fizhi/getcon.F |
87 |
NO PROCEDURE |
PARAMETER ( TICE = 273.16 ) |
|
./pkg/seaice/SEAICE.h |
180 |
NO PROCEDURE |
COMMON/MIX/TMIX,TICE |
|
./pkg/seaice/SEAICE.h |
182 |
NO PROCEDURE |
_RL TICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/cost_ice_test.F |
182 |
COST_ICE_TEST |
& (TICE(i,j,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) * |
|
./pkg/seaice/seaice_check_pickup.F |
95 |
SEAICE_CHECK_PICKUP |
TICES(i,j,k,bi,bj) = TICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
73 |
SEAICE_DIAGNOSTICS_STATE |
TICE(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
81 |
SEAICE_DIAGNOSTICS_STATE |
TICE(I,J,bi,bj) = TICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
90 |
SEAICE_DIAGNOSTICS_STATE |
I TICE, AREA, 1. _d 0, 1, 'SItices ', |
|
./pkg/seaice/seaice_growth.F |
360 |
SEAICE_GROWTH |
TICE(I,J,bi,bj)=celsius2K |
|
./pkg/seaice/seaice_growth.F |
578 |
SEAICE_GROWTH |
TICE(I,J,bi,bj)=TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
583 |
SEAICE_GROWTH |
U TICE, |
|
./pkg/seaice/seaice_growth.F |
596 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = TICE(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
603 |
SEAICE_GROWTH |
U TICE, |
|
./pkg/seaice/seaice_growth_if.F |
1134 |
SEAICE_GROWTH_IF |
& TICE(i,j,bi,bj) - TMELT, |
|
./pkg/seaice/seaice_growth_if.F |
377 |
SEAICE_GROWTH_IF |
IF (TICE(I,J,bi,bj) .LT. TMELT) THEN |
|
./pkg/seaice/seaice_growth_if.F |
447 |
SEAICE_GROWTH_IF |
U TICE, |
|
./pkg/seaice/seaice_init_varia.F |
134 |
SEAICE_INIT_VARIA |
TICE(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
259 |
SEAICE_INIT_VARIA |
TICE(i,j,bi,bj)=273.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
313 |
SEAICE_INIT_VARIA |
TMIX(i,j,bi,bj)=TICE(i,j,bi,bj) |
|
./pkg/seaice/seaice_model.F |
99 |
SEAICE_MODEL |
TICE(i,j,bi,bj) = celsius2K |
|
./pkg/seaice/seaice_read_pickup.F |
135 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, TICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
178 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siTICE ', TICE, |
|
./pkg/seaice/seaice_read_pickup.F |
182 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siTICE ', TICE, |
|
./pkg/seaice/seaice_read_pickup.F |
185 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siTICES ', TICE, |
|
./pkg/seaice/seaice_read_pickup.F |
254 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(TICE , myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
85 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, TICE , nj, myIter, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
449 |
AUTODIFF_RESTORE |
TICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
552 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,4) = TICE(I,J,bi,bj) |