& sum_ps4ocean_ta
_RL sum_ps4ocean_ta(jm0,nForcingPer)
sum_ps4ocean_ta(j_atm,mn)= 0. _d 0
sum_ps4ocean_ta(j_atm,inMonth)= sum_ps4ocean_ta(j_atm,inMonth) +
sum_ps4ocean_ta(j_atm,mn) = sum_ps4ocean_ta(j_atm,mn) /
WRITE(dUnit,REC=1) sum_ps4ocean_ta
sum_ps4ocean_ta(j_atm,mn) = 0. _d 0