| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_seaice.F |
118 |
OBCS_APPLY_SEAICE |
HSNOW(i,j,bi,bj) = OBWsn(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
154 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc-1,bi,bj)+HSNOW(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
155 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
156 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
193 |
OBCS_APPLY_SEAICE |
& (HSNOW(i,Jobc+1,bi,bj)+HSNOW(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
194 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
195 |
OBCS_APPLY_SEAICE |
HSNOW(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
232 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
233 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
234 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
271 |
OBCS_APPLY_SEAICE |
& (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
272 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
273 |
OBCS_APPLY_SEAICE |
HSNOW(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
61 |
OBCS_APPLY_SEAICE |
HSNOW(i,j,bi,bj) = OBNsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
80 |
OBCS_APPLY_SEAICE |
HSNOW(i,j,bi,bj) = OBSsn(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
99 |
OBCS_APPLY_SEAICE |
HSNOW(i,j,bi,bj) = OBEsn(j,bi,bj) |
|
./pkg/seaice/SEAICE.h |
64 |
NO PROCEDURE |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
|
./pkg/seaice/SEAICE.h |
67 |
NO PROCEDURE |
_RL HSNOW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/cost_ice_test.F |
185 |
COST_ICE_TEST |
& HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 ) |
|
./pkg/seaice/seaice_advdiff.F |
243 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HSNOW(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
250 |
SEAICE_ADVDIFF |
I HSNOW(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
257 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
258 |
SEAICE_ADVDIFF |
& HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
339 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSNOW, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_cost_accumulate_mean.F |
56 |
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 |
61 |
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 |
94 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HSNOW ,'SIhsnow ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_growth.F |
1065 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN |
|
./pkg/seaice/seaice_growth.F |
1259 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = MAX(ZERO,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1268 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1293 |
SEAICE_GROWTH |
hDraft = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1298 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth.F |
1486 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1490 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
317 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
344 |
SEAICE_GROWTH |
d_HSNWbyNEG(I,J)=MAX(-HSNOW(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
345 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+d_HSNWbyNEG(I,J) |
|
./pkg/seaice/seaice_growth.F |
359 |
SEAICE_GROWTH |
tmpscal3=-HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
367 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
381 |
SEAICE_GROWTH |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
392 |
SEAICE_GROWTH |
IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0)) |
|
./pkg/seaice/seaice_growth.F |
418 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
782 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
786 |
SEAICE_GROWTH |
tmpscal1 = MIN(a_FWbySublim(I,J)*rodt,HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
789 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
802 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyATM_cover(I,J)*ICE2SNOW,-HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
809 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
881 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
914 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
923 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)+d_HSNWbyOCNonSNW(I,J) |
|
./pkg/seaice/seaice_growth.F |
979 |
SEAICE_GROWTH |
hDraft = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
984 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth_if.F |
1000 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
1021 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/QS |
|
./pkg/seaice/seaice_growth_if.F |
1038 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW_ACTUAL(I,J)* |
|
./pkg/seaice/seaice_growth_if.F |
1043 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/QS |
|
./pkg/seaice/seaice_growth_if.F |
1082 |
SEAICE_GROWTH_IF |
& SEAICE_rhoIce + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth_if.F |
1128 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj), |
|
./pkg/seaice/seaice_growth_if.F |
329 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = MAX(0. _d 0,HSNOW(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth_if.F |
355 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
360 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth_if.F |
369 |
SEAICE_GROWTH_IF |
HSNOW_ACTUAL(I,J) = HSNOW(I,J,bi,bj)/ |
|
./pkg/seaice/seaice_growth_if.F |
406 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
408 |
SEAICE_GROWTH_IF |
HSNOW_ORIG(I,J) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
764 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth_if.F |
784 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = MAX(0. _d 0, HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth_if.F |
803 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth_if.F |
827 |
SEAICE_GROWTH_IF |
HSNOW(I,J,bi,bj) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
873 |
SEAICE_GROWTH_IF |
& HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
124 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
369 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
377 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( HsnowFile, ' ', HSNOW, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
378 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(HSNOW,myThid) |
|
./pkg/seaice/seaice_init_varia.F |
383 |
SEAICE_INIT_VARIA |
HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO) |
|
./pkg/seaice/seaice_init_varia.F |
428 |
SEAICE_INIT_VARIA |
CALL OBCS_COPY_TRACER( HSNOW(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_init_varia.F |
462 |
SEAICE_INIT_VARIA |
& + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_model.F |
234 |
SEAICE_MODEL |
_EXCH_XY_RL( HSNOW, myThid ) |
|
./pkg/seaice/seaice_model.F |
265 |
SEAICE_MODEL |
CALL OBCS_COPY_TRACER( HSNOW(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_model.F |
98 |
SEAICE_MODEL |
HSNOW(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_monitor.F |
119 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, HSNOW,'_hsnow', |
|
./pkg/seaice/seaice_output.F |
122 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSNOW.',suff,HSNOW,myIter,myThid) |
|
./pkg/seaice/seaice_read_pickup.F |
140 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSNOW , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
194 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHSNOW ', HSNOW, |
|
./pkg/seaice/seaice_read_pickup.F |
257 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(HSNOW, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
102 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSNOW , nj, myIter, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
448 |
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) |