| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_seaice.F |
116 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc,j,bi,bj) = OBWsn(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
151 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc-1,bi,bj)+HSNOW(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
152 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
153 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
190 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc+1,bi,bj)+HSNOW(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
191 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
192 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
229 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
230 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
231 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
268 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
269 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
270 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
65 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc,bi,bj) = OBNsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
82 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc,bi,bj) = OBSsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
99 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc,j,bi,bj) = OBEsn(j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
541 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
543 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBNsn(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
568 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
570 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBSsn(i,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
595 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
597 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBEsn(j,bi,bj) ) |
|
./pkg/obcs/obcs_seaice_sponge.F |
622 |
OBCS_SEAICE_SPONGE_SN |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/obcs/obcs_seaice_sponge.F |
624 |
OBCS_SEAICE_SPONGE_SN |
& * ( HSNOW(i,j,bi,bj) - OBWsn(j,bi,bj) ) |
|
./pkg/seaice/SEAICE.h |
66 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
|
./pkg/seaice/SEAICE.h |
79 |
NO PROCEDURE |
_RL HSNOW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/cost_ice_test.F |
186 |
COST_ICE_TEST |
& HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 ) |
|
./pkg/seaice/seaice_advdiff.F |
325 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
332 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HSNOW(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
339 |
SEAICE_ADVDIFF |
I HSNOW(1-OLx,1-OLy,bi,bj), HEFFM, |
|
./pkg/seaice/seaice_advdiff.F |
347 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
348 |
SEAICE_ADVDIFF |
& HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
355 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
658 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
664 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSNOW, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_advdiff.F |
673 |
SEAICE_ADVDIFF |
U HSNOW(1-OLx,1-OLy,bi,bj), |
|
./pkg/seaice/seaice_advdiff.F |
683 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
55 |
SEAICE_COST_ACCUMULATE_MEAN |
& + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i-1,j,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
60 |
SEAICE_COST_ACCUMULATE_MEAN |
& + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i,j-1,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
99 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HSNOW ,'SIhsnow ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_growth.F |
1220 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HSNOW(I,J,bi,bj)*SNOW2ICE),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1222 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) - tmpscal2*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1357 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyATM_cover(I,J),-HSNOW(I,J,bi,bj)*SNOW2ICE) |
|
./pkg/seaice/seaice_growth.F |
1364 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1450 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1486 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1533 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1542 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)+d_HSNWbyOCNonSNW(I,J) |
|
./pkg/seaice/seaice_growth.F |
1694 |
SEAICE_GROWTH |
tmpscal0 = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1699 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth.F |
1762 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOWITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1824 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1851 |
SEAICE_GROWTH |
HSNOWITD(I,J,1,bi,bj)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2419 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
2423 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
496 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
501 |
SEAICE_GROWTH |
DIAGarrayD(I,J) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
307 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
545 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
553 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( HsnowFile, ' ', HSNOW, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
554 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(HSNOW,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
559 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
573 |
SEAICE_INIT_VARIA |
HSNOWITD(I,J,1,bi,bj) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
685 |
SEAICE_INIT_VARIA |
& + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_itd_pickup.F |
110 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,1,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
82 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
91 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_model.F |
219 |
SEAICE_MODEL |
_EXCH_XY_RL( HSNOW, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
122 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, HSNOW,'_hsnow', |
|
./pkg/seaice/seaice_output.F |
138 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSNOW.',suff,HSNOW,myIter,myThid) |
|
./pkg/seaice/seaice_read_pickup.F |
150 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSNOW , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
216 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHSNOW ', HSNOW, |
|
./pkg/seaice/seaice_read_pickup.F |
320 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(HSNOW, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
185 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj)=MAX(-HSNOW(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
186 |
SEAICE_REG_RIDGE |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+d_HSNWbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
220 |
SEAICE_REG_RIDGE |
tmpscal2=-HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
226 |
SEAICE_REG_RIDGE |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
252 |
SEAICE_REG_RIDGE |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
282 |
SEAICE_REG_RIDGE |
IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0)) THEN |
|
./pkg/seaice/seaice_write_pickup.F |
127 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSNOW , nj, myIter, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
453 |
AUTODIFF_RESTORE |
HSNOW(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
551 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,3) = HSNOW(I,J,bi,bj) |