tNcyc = aim_surfForc_NppCycle
& aim_surfForc_NppCycle,
INTEGER aim_surfForc_NppCycle
nm2 = nm0 + aim_surfForc_NppCycle
nm3 = nm1 + aim_surfForc_NppCycle
nm1 = 1 + MOD(nm0,aim_surfForc_NppCycle)
aim_surfForc_NppCycle = 12
CALL WRITE_0D_I( aim_surfForc_NppCycle, INDEX_NONE,
& aim_surfForc_TimePeriod, aim_surfForc_NppCycle,