| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
57 |
NO PROCEDURE |
& snowPrc, siceAlb, icAlbNIR, |
|
./pkg/thsice/THSICE_VARS.h |
66 |
NO PROCEDURE |
_RL snowPrc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_ave.F |
70 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_snowPr_Ave,snowPrc, iceMask, |
|
./pkg/thsice/thsice_check_conserv.F |
104 |
THSICE_CHECK_CONSERV |
& hIce, hSnow, snowPrc(i,j,bi,bj)*thSIce_deltaT/rhos |
|
./pkg/thsice/thsice_get_precip.F |
14 |
THSICE_GET_PRECIP |
O precip, snowPrc, flxSW, |
|
./pkg/thsice/thsice_get_precip.F |
49 |
THSICE_GET_PRECIP |
_RL snowPrc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_precip.F |
71 |
THSICE_GET_PRECIP |
snowPrc(i,j) = rain(i,j,bi,bj)*rhofw |
|
./pkg/thsice/thsice_ini_vars.F |
74 |
THSICE_INI_VARS |
snowPrc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
168 |
THSICE_MAIN |
snowPrc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_main.F |
199 |
THSICE_MAIN |
O prcAtm, snowPrc(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_main.F |
208 |
THSICE_MAIN |
O prcAtm, snowPrc(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_map_exf.F |
14 |
THSICE_MAP_EXF |
O totPrc, snowPrc, flxSW, |
|
./pkg/thsice/thsice_map_exf.F |
50 |
THSICE_MAP_EXF |
_RL snowPrc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_map_exf.F |
87 |
THSICE_MAP_EXF |
snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
98 |
THSICE_MAP_EXF |
snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_output.F |
326 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_snowPrc.',suff,snowPrc, |
|
./pkg/thsice/thsice_step_fwd.F |
157 |
THSICE_STEP_FWD |
IF ( snowPrc(i,j,bi,bj).GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
159 |
THSICE_STEP_FWD |
& * EXP( - snowFac*snowPrc(i,j,bi,bj) ) |
|
./pkg/thsice/thsice_step_fwd.F |
166 |
THSICE_STEP_FWD |
& - Lfresh*snowPrc(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
177 |
THSICE_STEP_FWD |
I snowPrc, iceMask,tmpFac,1,'SIsnwPrc', |
|
./pkg/thsice/thsice_step_fwd.F |
219 |
THSICE_STEP_FWD |
& icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
234 |
THSICE_STEP_FWD |
I snowPrc(siLo,sjLo,bi,bj), prcAtm, |
|
./pkg/aim_v23/aim_aim2sioce.F |
168 |
AIM_AIM2SIOCE |
snowPrc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
171 |
AIM_AIM2SIOCE |
snowPrc(i,j,bi,bj) = prcAtm(i,j)*convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
174 |
AIM_AIM2SIOCE |
snowPrc(i,j,bi,bj) = 0. _d 0 |
|
./pkg/atm2d/atm2d_read_pickup.F |
58 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,snowPrc, 15, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
168 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,snowPrc, 15,myIter,myThid ) |
|
./pkg/atm2d/norm_ocn_fluxes.F |
60 |
NORM_OCN_FLUXES |
snowPrc(i,j,1,1)= sum_snowPrc(i,j)/nper |