| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/calc_fileload.F |
59 |
CALC_FILELOAD |
INTEGER mn ! loop counter |
|
./pkg/atm2d/calc_fileload.F |
64 |
CALC_FILELOAD |
DO mn=1,13 |
|
./pkg/atm2d/calc_fileload.F |
66 |
CALC_FILELOAD |
IF ((ifcyc.GT.dmonth(mn-1)).AND.(ifcyc.LE.dmonth(mn))) |
|
./pkg/atm2d/calc_fileload.F |
67 |
CALC_FILELOAD |
& intime1=mn |
|
./pkg/atm2d/forward_step_atm2d.F |
50 |
FORWARD_STEP_ATM2D |
INTEGER j,mn,na,no !loop counters |
|
./pkg/atm2d/forward_step_atm2d.F |
91 |
FORWARD_STEP_ATM2D |
DO mn=1,12 |
|
./pkg/atm2d/forward_step_atm2d.F |
92 |
FORWARD_STEP_ATM2D |
IF ((inyr.GT.jdofmhr(mn-1)).AND.(inyr.LE.jdofmhr(mn))) monid=mn |
|
./pkg/atm2d/init_atm2d.F |
201 |
INIT_ATM2D |
DO mn=1,nForcingPer |
|
./pkg/atm2d/init_atm2d.F |
202 |
INIT_ATM2D |
atau(j_atm,mn)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
203 |
INIT_ATM2D |
atav(j_atm,mn)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
204 |
INIT_ATM2D |
awind(j_atm,mn)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
287 |
INIT_ATM2D |
DO mn=1,nForcingPer |
|
./pkg/atm2d/init_atm2d.F |
288 |
INIT_ATM2D |
sum_tauu_ta(j_atm,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
289 |
INIT_ATM2D |
sum_tauv_ta(j_atm,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
290 |
INIT_ATM2D |
sum_wsocean_ta(j_atm,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
291 |
INIT_ATM2D |
sum_ps4ocean_ta(j_atm,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
298 |
INIT_ATM2D |
DO mn=1,nForcingPer |
|
./pkg/atm2d/init_atm2d.F |
299 |
INIT_ATM2D |
qnet_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
300 |
INIT_ATM2D |
evap_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
301 |
INIT_ATM2D |
precip_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
302 |
INIT_ATM2D |
runoff_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
303 |
INIT_ATM2D |
sum_qrel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
304 |
INIT_ATM2D |
sum_frel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
305 |
INIT_ATM2D |
sum_iceMask_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
306 |
INIT_ATM2D |
sum_iceHeight_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
307 |
INIT_ATM2D |
sum_iceTime_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
308 |
INIT_ATM2D |
sum_oceMxLT_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
309 |
INIT_ATM2D |
sum_oceMxLS_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
49 |
INIT_ATM2D |
INTEGER j_atm, mn |
|
./pkg/atm2d/tave_end_diags.F |
100 |
TAVE_END_DIAGS |
& runoff_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
102 |
TAVE_END_DIAGS |
& qrel_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
104 |
TAVE_END_DIAGS |
& frel_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
106 |
TAVE_END_DIAGS |
qnet_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
107 |
TAVE_END_DIAGS |
evap_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
108 |
TAVE_END_DIAGS |
precip_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
109 |
TAVE_END_DIAGS |
runoff_atm_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
110 |
TAVE_END_DIAGS |
sum_qrel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
111 |
TAVE_END_DIAGS |
sum_frel_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
112 |
TAVE_END_DIAGS |
sum_iceMask_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
113 |
TAVE_END_DIAGS |
sum_iceHeight_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
114 |
TAVE_END_DIAGS |
sum_iceTime_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
115 |
TAVE_END_DIAGS |
sum_oceMxLT_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
116 |
TAVE_END_DIAGS |
sum_oceMxLS_ta(i,j,mn)= 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
122 |
TAVE_END_DIAGS |
sum_tauu_ta(j_atm,mn) = sum_tauu_ta(j_atm,mn) / norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
123 |
TAVE_END_DIAGS |
sum_tauv_ta(j_atm,mn) = sum_tauv_ta(j_atm,mn) / norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
124 |
TAVE_END_DIAGS |
sum_wsocean_ta(j_atm,mn) = sum_wsocean_ta(j_atm,mn) / |
|
./pkg/atm2d/tave_end_diags.F |
126 |
TAVE_END_DIAGS |
sum_ps4ocean_ta(j_atm,mn) = sum_ps4ocean_ta(j_atm,mn) / |
|
./pkg/atm2d/tave_end_diags.F |
130 |
TAVE_END_DIAGS |
WRITE(suff,'(I2.2)') mn |
|
./pkg/atm2d/tave_end_diags.F |
198 |
TAVE_END_DIAGS |
DO mn=1,nForcingPer |
|
./pkg/atm2d/tave_end_diags.F |
200 |
TAVE_END_DIAGS |
sum_tauu_ta(j_atm,mn) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
201 |
TAVE_END_DIAGS |
sum_tauv_ta(j_atm,mn) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
202 |
TAVE_END_DIAGS |
sum_wsocean_ta(j_atm,mn) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
203 |
TAVE_END_DIAGS |
sum_ps4ocean_ta(j_atm,mn) = 0. _d 0 |
|
./pkg/atm2d/tave_end_diags.F |
39 |
TAVE_END_DIAGS |
INTEGER i,j,mn,j_atm |
|
./pkg/atm2d/tave_end_diags.F |
75 |
TAVE_END_DIAGS |
DO mn=1,nForcingPer |
|
./pkg/atm2d/tave_end_diags.F |
77 |
TAVE_END_DIAGS |
norm_factor=nYears*ndmonth(mn)*86400.0 |
|
./pkg/atm2d/tave_end_diags.F |
81 |
TAVE_END_DIAGS |
qnet_mon(i,j)= qnet_atm_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
82 |
TAVE_END_DIAGS |
evap_mon(i,j)= evap_atm_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
83 |
TAVE_END_DIAGS |
precip_mon(i,j)= precip_atm_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
84 |
TAVE_END_DIAGS |
runoff_mon(i,j)= runoff_atm_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
85 |
TAVE_END_DIAGS |
qrel_mon(i,j)= sum_qrel_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
86 |
TAVE_END_DIAGS |
frel_mon(i,j)= sum_frel_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
87 |
TAVE_END_DIAGS |
iceMask_mon(i,j)= sum_iceMask_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
88 |
TAVE_END_DIAGS |
iceHeight_mon(i,j)= sum_iceHeight_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
89 |
TAVE_END_DIAGS |
iceTime_mon(i,j)= sum_iceTime_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
90 |
TAVE_END_DIAGS |
oceMxLT_mon(i,j)= sum_oceMxLT_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
91 |
TAVE_END_DIAGS |
oceMxLS_mon(i,j)= sum_oceMxLS_ta(i,j,mn)/norm_factor |
|
./pkg/atm2d/tave_end_diags.F |
94 |
TAVE_END_DIAGS |
& qnet_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
96 |
TAVE_END_DIAGS |
& evap_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/atm2d/tave_end_diags.F |
98 |
TAVE_END_DIAGS |
& precip_mon(i,j)*ndmonth(mn)/365.0 |
|
./pkg/cal/cal_checkdate.F |
123 |
CAL_CHECKDATE |
mn = MOD(hhmmss/100,100) |
|
./pkg/cal/cal_checkdate.F |
131 |
CAL_CHECKDATE |
IF ( mn.GE.minutesPerHour ) THEN |
|
./pkg/cal/cal_checkdate.F |
49 |
CAL_CHECKDATE |
INTEGER hh, mn, ss |