igen_diffkr=0
& igen_diffkr=iarr
if (igen_diffkr.GT.0)
& call CTRL_MAP_GENARR3D(diffkr,igen_diffkr,myThid)
integer igen_kapgm, igen_kapredi, igen_diffkr