| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/norm_ocn_fluxes.F |
35 |
NORM_OCN_FLUXES |
_RS nper ! number of atm steps in a coupled period |
|
./pkg/atm2d/norm_ocn_fluxes.F |
37 |
NORM_OCN_FLUXES |
nper= dtcouplo/dtatmo |
|
./pkg/atm2d/norm_ocn_fluxes.F |
44 |
NORM_OCN_FLUXES |
pass_runoff(i,j)= sum_runoff(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
45 |
NORM_OCN_FLUXES |
pass_precip(i,j)= sum_precip(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
46 |
NORM_OCN_FLUXES |
pass_evap(i,j)= -sum_evap(i,j)/nper !convert sign convention here |
|
./pkg/atm2d/norm_ocn_fluxes.F |
47 |
NORM_OCN_FLUXES |
pass_qnet(i,j)= sum_qnet(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
48 |
NORM_OCN_FLUXES |
pass_fu(i,j)= sum_fu(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
49 |
NORM_OCN_FLUXES |
pass_fv(i,j)= sum_fv(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
50 |
NORM_OCN_FLUXES |
pass_wspeed(i,j)= sum_wspeed(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
51 |
NORM_OCN_FLUXES |
pass_solarnet(i,j)= -sum_solarnet(i,j)/nper !change sign |
|
./pkg/atm2d/norm_ocn_fluxes.F |
52 |
NORM_OCN_FLUXES |
pass_slp(i,j)= sum_slp(i,j)/nper*100. _d 0 !convert to Pa |
|
./pkg/atm2d/norm_ocn_fluxes.F |
53 |
NORM_OCN_FLUXES |
pass_pCO2(i,j)= sum_pCO2(i,j)*1. _d -6/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
55 |
NORM_OCN_FLUXES |
sHeating(i,j,1,1) = sum_sHeat(i,j)/nper ! from temp-solve step |
|
./pkg/atm2d/norm_ocn_fluxes.F |
56 |
NORM_OCN_FLUXES |
flxCndBt(i,j,1,1)= sum_flxCnB(i,j)/nper ! from temp-solve step |
|
./pkg/atm2d/norm_ocn_fluxes.F |
57 |
NORM_OCN_FLUXES |
pass_PrcAtm(i,j)= sum_prcIce(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
58 |
NORM_OCN_FLUXES |
icFrwAtm(i,j,1,1)= sum_evapIce(i,j)/nper |
|
./pkg/atm2d/norm_ocn_fluxes.F |
63 |
NORM_OCN_FLUXES |
snowPrc(i,j)= sum_snowPrc(i,j)/nper |