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