File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_balance_frw.F |
102 |
THSICE_BALANCE_FRW |
& - sumFrW*maskInC(i,j,bi,bj) |
./pkg/thsice/thsice_balance_frw.F |
104 |
THSICE_BALANCE_FRW |
& - sumFrW*maskInC(i,j,bi,bj) |
./pkg/thsice/thsice_balance_frw.F |
114 |
THSICE_BALANCE_FRW |
tmpFac = sumFrW / sumPrc |
./pkg/thsice/thsice_balance_frw.F |
55 |
THSICE_BALANCE_FRW |
_RL sumFrW, sumTileFrW(nSx,nSy) |
./pkg/thsice/thsice_balance_frw.F |
81 |
THSICE_BALANCE_FRW |
CALL GLOBAL_SUM_TILE_RL( sumTileFrW, sumFrW, myThid ) |
./pkg/thsice/thsice_balance_frw.F |
85 |
THSICE_BALANCE_FRW |
sumFrW = sumFrW / globalArea |
./pkg/thsice/thsice_balance_frw.F |
90 |
THSICE_BALANCE_FRW |
adjustFrW = -sumFrW |