File |
Line number |
Procedure |
Code |
./pkg/atm2d/atm2ocn_main.F |
36 |
ATM2OCN_MAIN |
_RL wght0,wght1 |
./pkg/atm2d/atm2ocn_main.F |
44 |
ATM2OCN_MAIN |
CALL CALC_FILELOAD( curTime, iloop, aloop, wght0, wght1, |
./pkg/atm2d/atm2ocn_main.F |
51 |
ATM2OCN_MAIN |
CALL SUBTRACT_MEANS( wght0, wght1, |
./pkg/atm2d/atm2ocn_main.F |
57 |
ATM2OCN_MAIN |
CALL FIXED_FLUX_ADD( inMonth, wght0,wght1, |
./pkg/atm2d/atm2ocn_main.F |
60 |
ATM2OCN_MAIN |
CALL RELAX_ADD( wght0,wght1, |
./pkg/atm2d/calc_fileload.F |
37 |
CALC_FILELOAD |
_RL wght1 |
./pkg/atm2d/calc_fileload.F |
75 |
CALC_FILELOAD |
wght1=(ifcyc - dmonth(intime0)) / |
./pkg/atm2d/calc_fileload.F |
77 |
CALC_FILELOAD |
wght0= 1. _d 0-wght1 |
./pkg/atm2d/calc_fileload.F |
8 |
CALC_FILELOAD |
& wght0, wght1, |
./pkg/atm2d/fixed_flux_add.F |
130 |
FIXED_FLUX_ADD |
& (wght0*tau0(i,j,1,1) + wght1*tau1(i,j,1,1)) |
./pkg/atm2d/fixed_flux_add.F |
132 |
FIXED_FLUX_ADD |
& (wght0*tav0(i,j,1,1) + wght1*tav1(i,j,1,1)) |
./pkg/atm2d/fixed_flux_add.F |
134 |
FIXED_FLUX_ADD |
& (wght0*wind0(i,j,1,1) + wght1*wind1(i,j,1,1)) |
./pkg/atm2d/fixed_flux_add.F |
136 |
FIXED_FLUX_ADD |
qfadj = (wght0*qnet0(i,j,1,1) + wght1*qnet1(i,j,1,1)) |
./pkg/atm2d/fixed_flux_add.F |
34 |
FIXED_FLUX_ADD |
_RL wght1 |
./pkg/atm2d/fixed_flux_add.F |
8 |
FIXED_FLUX_ADD |
SUBROUTINE FIXED_FLUX_ADD( inMonth, wght0, wght1, |
./pkg/atm2d/relax_add.F |
103 |
RELAX_ADD |
sstRelax(i,j)= (wght0*sst0(i,j,1,1) + wght1*sst1(i,j,1,1)) |
./pkg/atm2d/relax_add.F |
109 |
RELAX_ADD |
sssRelax(i,j)= (wght0*sss0(i,j,1,1) + wght1*sss1(i,j,1,1)) |
./pkg/atm2d/relax_add.F |
36 |
RELAX_ADD |
_RL wght1 |
./pkg/atm2d/relax_add.F |
8 |
RELAX_ADD |
SUBROUTINE RELAX_ADD( wght0, wght1, |
./pkg/atm2d/subtract_means.F |
25 |
SUBTRACT_MEANS |
_RL wght1 |
./pkg/atm2d/subtract_means.F |
37 |
SUBTRACT_MEANS |
& (wght0*atau(j_atm,intime0) + wght1*atau(j_atm,intime1)) |
./pkg/atm2d/subtract_means.F |
39 |
SUBTRACT_MEANS |
& (wght0*atav(j_atm,intime0) + wght1*atav(j_atm,intime1)) |
./pkg/atm2d/subtract_means.F |
41 |
SUBTRACT_MEANS |
& (wght0*awind(j_atm,intime0) + wght1*awind(j_atm,intime1)) |
./pkg/atm2d/subtract_means.F |
8 |
SUBTRACT_MEANS |
SUBROUTINE SUBTRACT_MEANS( wght0, wght1, |
./eesupp/src/get_periodic_interval.F |
111 |
GET_PERIODIC_INTERVAL |
wght1 = 1. _d 0 - wght2 |
./eesupp/src/get_periodic_interval.F |
11 |
GET_PERIODIC_INTERVAL |
O tRec0, tRec1, tRec2, wght1, wght2, |
./eesupp/src/get_periodic_interval.F |
131 |
GET_PERIODIC_INTERVAL |
wght1 = 1. _d 0 - wght2 |
./eesupp/src/get_periodic_interval.F |
49 |
GET_PERIODIC_INTERVAL |
_RL wght1, wght2 |
./eesupp/src/get_periodic_interval.F |
71 |
GET_PERIODIC_INTERVAL |
wght1 = 0. |