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