| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
13 |
THSICE_SOLVE4TEMP |
O dTsf, flxAtm, evpAtm, |
|
./pkg/thsice/thsice_solve4temp.F |
291 |
THSICE_SOLVE4TEMP |
flxAtm = flxSW + flxExceptSw + df0dT*dTsf |
|
./pkg/thsice/thsice_solve4temp.F |
294 |
THSICE_SOLVE4TEMP |
flxAtm = 0. |
|
./pkg/thsice/thsice_solve4temp.F |
66 |
THSICE_SOLVE4TEMP |
_RL flxAtm |
|
./pkg/thsice/thsice_ave.F |
10 |
THSICE_AVE |
I frwAtm, flxAtm, |
|
./pkg/thsice/thsice_ave.F |
126 |
THSICE_AVE |
CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm, |
|
./pkg/thsice/thsice_ave.F |
141 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(flxAtm, 'SIflxAtm',0,1,2,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
40 |
THSICE_AVE |
_RL flxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_ave.F |
93 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_1T(ice_flxAtm_Ave, flxAtm, |
|
./pkg/thsice/thsice_check_conserv.F |
11 |
THSICE_CHECK_CONSERV |
I qleft, ffresh, fsalt, flxAtm, frwAtm, |
|
./pkg/thsice/thsice_check_conserv.F |
40 |
THSICE_CHECK_CONSERV |
_RL flxAtm, frwAtm |
|
./pkg/thsice/thsice_check_conserv.F |
76 |
THSICE_CHECK_CONSERV |
IF (dBug) WRITE(6,1010) 'ThSI_CHK: fxH,fxW,fxS=',flxAtm-qleft, |
|
./pkg/thsice/thsice_check_conserv.F |
78 |
THSICE_CHECK_CONSERV |
dEnerg = dEnerg + thSIce_deltaT*flxFrac*(flxAtm-qleft) |
|
./pkg/thsice/thsice_step_fwd.F |
102 |
THSICE_STEP_FWD |
flxAtm(i,j) = 0. |
|
./pkg/thsice/thsice_step_fwd.F |
139 |
THSICE_STEP_FWD |
O tmpdTs, flxAtm(i,j), evpAtm(i,j), |
|
./pkg/thsice/thsice_step_fwd.F |
159 |
THSICE_STEP_FWD |
& flxAtm(i,j), evpAtm(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
239 |
THSICE_STEP_FWD |
flxAtm(i,j) = flxAtm(i,j) - Lfresh*snowPrc(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
243 |
THSICE_STEP_FWD |
& iceMask(i,j,bi,bj),flxAtm(i,j),evpAtm(i,j),-Lfresh*snowPr |
|
./pkg/thsice/thsice_step_fwd.F |
250 |
THSICE_STEP_FWD |
I flx2oc, frw2oc, fsalt, flxAtm(i,j), frwAtm, |
|
./pkg/thsice/thsice_step_fwd.F |
268 |
THSICE_STEP_FWD |
flxAtm(i,j) = icFrac*flxAtm(i,j) - opFrac*Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
279 |
THSICE_STEP_FWD |
flxAtm(i,j) = -Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
282 |
THSICE_STEP_FWD |
flxAtm(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
354 |
THSICE_STEP_FWD |
flxSW (i,j) = flxAtm(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
80 |
THSICE_STEP_FWD |
_RL flxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |