| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
85 |
NO PROCEDURE |
& oceFWfx, oceSflx, oceQnet |
|
./pkg/thsice/THSICE_VARS.h |
87 |
NO PROCEDURE |
_RL oceFWfx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_advdiff.F |
197 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
490 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
111 |
THSICE_DO_ADVECT |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
78 |
THSICE_INI_VARS |
oceFWfx(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
433 |
THSICE_STEP_FWD |
EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj) |