integer igen_etan,igen_bdrag,igen_geoth
igen_etan=0
& igen_etan=iarr
if (igen_etan.GT.0) then
call CTRL_MAP_GENARR2D(etaN,igen_etan,myThid)