t0prd = myTime / aim_surfForc_TimePeriod
_RL aim_surfForc_TimePeriod, aim_surfForc_TransRatio
& aim_surfForc_TimePeriod, aim_surfForc_TransRatio,
aim_surfForc_TimePeriod = 30.*86400.
CALL WRITE_0D_RL(aim_surfForc_TimePeriod, INDEX_NONE,
& aim_surfForc_TimePeriod, aim_surfForc_NppCycle,