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