igen_salt0=0
& igen_salt0=iarr
if (igen_salt0.GT.0)
& call CTRL_MAP_GENARR3D(salt,igen_salt0,myThid)
integer igen_theta0, igen_salt0