| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/forward_step_atm2d.F |
136 |
FORWARD_STEP_ATM2D |
IF (inyr.EQ.jdofmhr(monid-1)+dtcouple) THEN !do this block month start |
|
./pkg/atm2d/forward_step_atm2d.F |
174 |
FORWARD_STEP_ATM2D |
CALL ATMOSPHERE(dtatm,monid) |
|
./pkg/atm2d/forward_step_atm2d.F |
176 |
FORWARD_STEP_ATM2D |
CALL ATM2OCN_MAIN(iloop, na, monid, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
226 |
FORWARD_STEP_ATM2D |
IF (inyr.EQ.jdofmhr(monid)) THEN !do block if month-end |
|
./pkg/atm2d/forward_step_atm2d.F |
230 |
FORWARD_STEP_ATM2D |
CALL CLIMATE2TEM(monid,ndmonth(monid)) |
|
./pkg/atm2d/forward_step_atm2d.F |
232 |
FORWARD_STEP_ATM2D |
CALL TEM(idyear,monid-1) |
|
./pkg/atm2d/forward_step_atm2d.F |
233 |
FORWARD_STEP_ATM2D |
CALL TEM2CLIMATE(idyear,monid-1) |
|
./pkg/atm2d/forward_step_atm2d.F |
243 |
FORWARD_STEP_ATM2D |
PRINT *,'Month=',monid |
|
./pkg/atm2d/forward_step_atm2d.F |
247 |
FORWARD_STEP_ATM2D |
WRITE (277) iyr,monid,ch4mn,n2omn,nepmn, |
|
./pkg/atm2d/forward_step_atm2d.F |
252 |
FORWARD_STEP_ATM2D |
temnep(monid,j)=temco2(j) |
|
./pkg/atm2d/forward_step_atm2d.F |
262 |
FORWARD_STEP_ATM2D |
antemnep(j)=antemnep(j)+temnep(monid,j) |
|
./pkg/atm2d/forward_step_atm2d.F |
263 |
FORWARD_STEP_ATM2D |
nepan=nepan+temnep(monid,j) |
|
./pkg/atm2d/forward_step_atm2d.F |
272 |
FORWARD_STEP_ATM2D |
CALL MONTH_END_DIAGS( monid, myTime, myIter, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
276 |
FORWARD_STEP_ATM2D |
IF (monid.EQ.12) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
285 |
FORWARD_STEP_ATM2D |
PRINT *,'Month=',monid |
|
./pkg/atm2d/forward_step_atm2d.F |
42 |
FORWARD_STEP_ATM2D |
INTEGER monid ! current month of the year |
|
./pkg/atm2d/forward_step_atm2d.F |
79 |
FORWARD_STEP_ATM2D |
IF ((inyr.GT.jdofmhr(mn-1)).AND.(inyr.LE.jdofmhr(mn))) monid=mn |
|
./pkg/atm2d/forward_step_atm2d.F |
82 |
FORWARD_STEP_ATM2D |
dayid= int((inyr-dtcouple-jdofmhr(monid-1))/24.0) +1 |
|
./pkg/atm2d/month_end_diags.F |
27 |
MONTH_END_DIAGS |
INTEGER monid |
|
./pkg/atm2d/month_end_diags.F |
39 |
MONTH_END_DIAGS |
norm_factor = ndmonth(monid)*86400.0 |
|
./pkg/atm2d/month_end_diags.F |
44 |
MONTH_END_DIAGS |
qnet_atm_ta(i,j,monid)= qnet_atm_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
46 |
MONTH_END_DIAGS |
evap_atm_ta(i,j,monid)= evap_atm_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
48 |
MONTH_END_DIAGS |
precip_atm_ta(i,j,monid)= precip_atm_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
50 |
MONTH_END_DIAGS |
runoff_atm_ta(i,j,monid)= runoff_atm_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
52 |
MONTH_END_DIAGS |
sum_qrel_ta(i,j,monid)= sum_qrel_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
54 |
MONTH_END_DIAGS |
sum_frel_ta(i,j,monid)= sum_frel_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
56 |
MONTH_END_DIAGS |
sum_iceMask_ta(i,j,monid)= sum_iceMask_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
58 |
MONTH_END_DIAGS |
sum_iceHeight_ta(i,j,monid)= sum_iceHeight_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
60 |
MONTH_END_DIAGS |
sum_iceTime_ta(i,j,monid)= sum_iceTime_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
62 |
MONTH_END_DIAGS |
sum_oceMxLT_ta(i,j,monid)= sum_oceMxLT_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
64 |
MONTH_END_DIAGS |
sum_oceMxLS_ta(i,j,monid)= sum_oceMxLS_ta(i,j,monid) + |
|
./pkg/atm2d/month_end_diags.F |
82 |
MONTH_END_DIAGS |
WRITE(suff,'(I2.2)') monid |
|
./pkg/atm2d/month_end_diags.F |
8 |
MONTH_END_DIAGS |
SUBROUTINE MONTH_END_DIAGS( monid, myTime, myIter, myThid ) |